home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / KAKIMAC / KAKIMAC2.LZH / WS_DEL12.MAC < prev    next >
Text File  |  1994-06-23  |  2KB  |  52 lines
  1. //【マクロ名】 ws_del12.mac by 水銀水(Suigwinsui) / 小田 明夫 (HGD01603)
  2. //             日本語文書作成支援「書きマクロ」シリーズ Vol.2 #M2
  3. //             (秀丸マクロ作成支援「まくりまくろ」シリーズ・行頭｢//｣削除)_
  4. //【主な用途】秀丸マクロ作成支援（コメント行マーク削除）
  5. //【使用対象】秀丸 for Windows 上で日本語文章を快適に処理したい全てのみなさま。
  6. //【機能概略】指定範囲あるいはファイル全体の行頭の「//」を削除。
  7. //              (1)文頭にある「//」を削除。
  8. //              (2)文頭が「//」以外の行はなにもしない。
  9. //                 従って、安心して削除範囲を指定出来ます。
  10. //【使 用 法】範囲指定後，本マクロ実行（主な使用形態）。
  11. //            全文＝範囲指定をしていない状態で本マクロを実行。
  12. //                  （全文に使用するか，確認をいれる）
  13. //【補注】    マクロ作成時のみの使用を想定しています。
  14. //            折り返し等の対処は省いてありますので，
  15. //            誤動作が起きる可能性に，注意して下さい。
  16. //            できるだけ、これが発生しないようにファイルの尻尾から
  17. //            削除を開始してはいるのですが、厳密に考えたわけではありません(^^;。
  18. //            なお，文頭にある総ての｢/｣群（例: /////message）を一気に
  19. //            削除したい場合は delete;delete; を delewordall; に代えて下さい。
  20.  
  21. if(!selecting){      //非選択状態の場合
  22.     question "テキスト全体に行頭の\n｢//｣を削除して良いですか？";
  23.     if ( result ){
  24.         disabledraw;
  25.         selectall;
  26.         escape;
  27.     }else endmacro;
  28. }    // if( !selecting )'s end ).
  29.  
  30. //範囲の取得
  31. #tlx=seltopx;
  32. #tly=seltopy;
  33. #elx=selendx;
  34. #ely=selendy;
  35. if ( #elx == 0)#ely = #ely -1;
  36. moveto #elx,#ely;
  37. while(1){
  38.     golinetop;
  39.     if ( code == '/' ){
  40.         right;
  41.         if (code == '/' ){
  42.             golinetop;
  43.             delete;delete;  //deletewordall;
  44.         }else golinetop;
  45.     } else golinetop;
  46.     if ( y <= #tly ){break;}
  47.     up;
  48. }
  49. enabledraw;
  50. endmacro;
  51.  
  52.