home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2002 April / VPR0204A.ISO / OLS / KAKIMAC1 / kakimac1.lzh / GYOUTAG2.MAC < prev    next >
Text File  |  1994-07-07  |  3KB  |  93 lines
  1. //【マクロ名】 gyouTAG2.mac by 水銀水(Suigwinsui) / 小田 明夫 (HGD01603) 94/07/06(水) 14:10:13
  2. //【主な用途】日本語文書作成支援「書きマクロ」シリーズ Vol.5.#K3
  3. //             gyouCHK2.mac出力結果ファイル専用、一発ジャンプ（gyouCHK2.mac特化タグジャンプ）
  4. //【使用対象】秀丸 for Windows 上で日本語文章を快適に処理したい全てのみなさま。
  5. //【機能概略】(1)youCHK2.mac出力結果ファイルで一発見出ジャンプ（gyouCHK2.mac特化タグジャンプ）
  6. //          (2)gyouTAG2.mac は、キー割当でいずれかのキーに設定しておくと、キー一発で折り返し設定出来ます。
  7. //          (3)gyouCHK2.mac とコンビで使う以外はあまり用途はありません(^^;
  8. //【使用法】  gyouCHK2.mac で出力された結果ファイルで、調べて見たい見出行にカーソルを置き、
  9. //          このマクロを実行する。
  10. if(code == eof)call missline;
  11. $OrgFileName=filename;$disp_m1="(C) 1994  My Friend Office 水銀水(Suigwinsui)/小田 明夫(HGD01603)";
  12. golinetop;
  13. //括弧のチェック
  14. call k1;
  15. if (##return)call missline;
  16. call k2;
  17. if (##return)call missline;
  18. //括弧内の番号のチェック
  19. $SearchMidasi0 = gettext(#xx1,y,#xx2+1,y);
  20. $SearchMidasi00 = gettext(#xx1+1,y,#xx2,y);
  21. #Numlen = strlen($SearchMidasi00);
  22. #n=0;
  23. while(1){
  24.     $c1=midstr($SearchMidasi00,#n,1);
  25.     if (ascii($c1)<48||ascii($c1)>57)call missline;
  26.     #n=#n+1;
  27.     if(#n>=#Numlem)break;
  28. }
  29. $SearchMidasi1 = "●"+$SearchMidasi0;
  30. $SearchMidasi2 = "■"+$SearchMidasi0;
  31. //ファイル名取得
  32. searchup "対象ファイル名";
  33. call k1;
  34. if (##return)call missline;
  35. call k2;
  36. if (##return)call missline;
  37. //ファイルチェック＆移動
  38. $SearchFile = gettext(#xx1+1,y,#xx2,y);
  39. if (findhidemaru($SearchFile)==-1) openfile $SearchFile;
  40. else setactivehidemaru findhidemaru($SearchFile);
  41. if(code == eof){
  42.     message "対象ファイル:["+$SearchFile+"] は、ありませんでした。\n"+
  43.     "結果出力後にファイル削除か、ファイル名変更を行ったと考えられます。\n"+
  44.     "調べたいファイルを開き再度、gyouCHK2.mac を実行して下さい\n"+
  45.     "-------------------------------------------------\n"+$disp_m1;
  46.     exit;
  47.     setactivehidemaru findhidemaru($OrgFileName);
  48.     endmacro;
  49. }
  50. gofiletop;
  51. while(1){
  52.     searchdown $SearchMidasi1;
  53.     if(!result)searchdown $SearchMidasi2;
  54.     if(!result){//検索失敗
  55.         message "ジャンプ目標の見出行 ["+$SearchMidasi+"] が見つかりません。\n"+
  56.         "行数チェックの後でファイルを操作したか、\n"+
  57.         "結果ファイルの連番を書き直したと考えられます。\n"+
  58.         "このファイルで gyouCHK2.mac を実行し、見出連番を付け直して下さい(^^;\n\n"+
  59.         "--------------------------------------------\n"+$disp_m1;
  60.     }
  61.     #xx1=x;#yy1=y;
  62.     moveto #xx1,#yy1;
  63.     if(x==0)break;
  64. }
  65. endmacro;
  66.  
  67. k1:
  68. ##endf=0;
  69. while(1){
  70.     if(code=='['){#xx1=x;break}
  71.     right;
  72.     if(code == 13)##endf=1;
  73. }
  74. return ##endf;
  75.  
  76. k2:
  77. ##endf=0;
  78. while(1){
  79.     if(code==']'){#xx2=x;break}
  80.     right;
  81.     if(code == 13)##endf=1;
  82. }
  83. return ##endf;
  84.  
  85. missline:
  86. message "カーソルのある行が不適切です。\n"+
  87.     "結果出力の行頭が [1],[2],..などの行にカーソルを置いて下さい。\n"+
  88.     "--------------------------------------------\n"+$disp_m1;
  89.     endmacro;
  90. return;
  91.  
  92.  
  93.