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