home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / FWINDOWS / Win31 / Seikei / SEIKEI.LZH / SEIKEI.MAC < prev    next >
Text File  |  1996-10-22  |  3KB  |  100 lines
  1. // マクロ名　seikei.mac
  2. // 
  3. //   指定桁数以上の行に対して改行を挿入します。
  4. //   #retern で指定された桁位置を越える行に対して、改行を挿入。(ログの整形用)
  5. //
  6. //  ** 注意** メニュー「その他-設定-詳細-折り返し文字数」に設定された値
  7. //          (rightmargine)
  8. //          はこのマクロで指定する #retern の値以上でないと、動作しません。
  9. //          またフリーカーソルモードでは正常に動作しません。
  10.  
  11. // 　　↓変数 #retern で折曲げ位置を指定
  12. #retern = 75; // XY座標で表示されるX桁数より５程度小さい数字を設定してください。
  13. //　↓変数 $in で指定した記号が先頭にある行は整形の対象にしない。
  14. $in =">";       //引用符の設定　""のなかにある記号をお使いの引用符に書き換えて
  15. //　　　　　　　　ください。またここで指定した引用符の桁数を36行目で指定してく
  16. //                ださい。(right 1;)の部分です。
  17. //
  18. // 行頭禁則文字
  19. $mae = "、。）」｝＞］》』】；：～ー＝？・／＿ぁぃぅぇ
  20. ぉっゃゅょァィゥェォッャュョ,.)]}｣>;:-=^?･/_";
  21. //
  22. // 行末禁則文字
  23. $matu = "（「｛＜［《『【([{｢<^_";
  24.  
  25.  
  26. title "整形マクロ実行中です。";
  27.  
  28. gofiletop;       //カーソル１行目
  29. disabledraw;     // 表示抑制(処理速度向上)
  30. disableinvert;  //選択部分の反転表示の禁止
  31. top:
  32. while ( code != eof ) {
  33.         golinetop;
  34.         golinetop;
  35.         beginsel;
  36.         right 1; //引用符の桁数の設定
  37.         copy;
  38.         escape;
  39.         beginclipboardread;
  40.                 $a = getclipboard;
  41.         if ($a == $in ){
  42.                   down;
  43.             up;
  44.     }else
  45.         golineend;
  46.         if ( x > #retern ) {
  47.             moveto #retern,y;
  48.         if(strstr($mae,char(code)) != -1) {
  49.             right;
  50.             }
  51.  
  52.             if(code == 0x0d) {
  53.                         down;
  54.                         goto top;
  55.             }
  56.  
  57.         while(strstr($mae,char(code)) != -1) {
  58.             left;
  59.         }
  60.         #pos = column;
  61.         left;
  62.         while(strstr($matu,char(code)) != -1) {
  63.             left;
  64.         }
  65.         right;
  66.         if(strstr($mae,char(code)) != -1) {
  67.             moveto #pos,y;
  68.         }
  69.             insertreturn;
  70.                 golineend;
  71.                 if ( x < #retern ) 
  72.                    down;
  73.                    up;    
  74.             } else {
  75.                down;
  76.                 }
  77. }
  78. gofiletop;
  79. enabledraw;       //表示制御の抑制解除
  80. enableinvert;    //選択部分の反転禁止の解除
  81. beep;   // 処理終了通知
  82. //整形マクロ終了時に保存をするダイアログを表示する部分です。
  83. //マクロ終了時にダイアログを出す場合は下の４行の先頭にある//を
  84. //削除してください。
  85.  
  86. //question "保存して終了していいですか？";
  87. //    if( result == yes ) {
  88. //        saveexit;
  89. //    }
  90.  
  91. //整形マクロ終了時にメッセージを出す部分です。メッセージが欲しい場合は
  92. //下の行の//を削除してください。
  93.  
  94. message "整形マクロ終了しました。";
  95.  
  96. endmacro;
  97.  
  98.  
  99. //　　　1996/10/23  Copyright (C)　NIFTY-Serve  PXA02040 たにっこ
  100.