home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / MM95370 / MM95370.LZH / RENKETU.MAC < prev    next >
Text File  |  1996-05-17  |  600b  |  34 lines
  1. // ［行連結マクロ］
  2. //  renketu.mac
  3. //
  4. // 整形した段落行を空白行の前までを連結します。
  5. // ２行目以降の先頭の全角スペースは連結のさい自動的に削除します。
  6. // カーソル位置を段落先頭行で実行して下さい。
  7. //
  8. main()
  9. {
  10.     int n;
  11.     
  12.     while(1)
  13.     {
  14.       KbHit();
  15.       if(Result == 0x1b)    // [ESC]が押されたら中断
  16.         break;
  17.       REdge();
  18.       Right();
  19.       if(Tcode < 2)        // CR か EOF なら終了
  20.         break;
  21.       n = 1;
  22.       while(Code == 0x8140)    // 行先頭の全角スペース数を数える
  23.       {
  24.         ++n;
  25.         Right();
  26.       }
  27.       while(n > 0)    // 行先頭の全角スペースは削除
  28.       {
  29.         --n;
  30.         Bs();
  31.       }
  32.     }
  33. }
  34.