home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / KAKIMAC / KAKIMACD.LZH / K_SRCHST.MAC < prev    next >
Text File  |  1995-06-18  |  4KB  |  143 lines
  1. //【マクロ名】k_srchST.mac by 水銀水(Suigwinsui)/小田 明夫 (HGD01603)
  2. //            日本語文書作成支援「書きマクロ」αシリーズ　第Ｄ集 Ver.1
  3. //            平成7年06月18日(日曜日) 午後00時17分31秒
  4. //【主な用途】k_SRCH.mac の従属マクロ。
  5. //【機能概略】(1)k_SRCH.mac の各種オプションを設定を担当。
  6. //【マクロ構成】
  7. //            k_SRCH Ver.1は全３マクロで構成
  8. //            ・メインマクロ:k_SRCH,mac このマクロを実行して下さい(マクロ登録もこのマクロだけでＯＫ)
  9. //            ・従属マクロ:k_srchST,mac k_srchHL,mac
  10. // 
  11.  
  12. call startSetting;
  13. call setMarkH1;
  14. call setMarkH2;
  15. call setMarkH3;
  16. while(1){
  17.  
  18. menu "● 設定　　　　　　　　　　k_SRCH Ver.1 (C)1995 水銀水",
  19.     "□ 起動画面(&h)─────────────────────",
  20.     "　　　 &1."+$h11+"文字列を自動取得して即、全文検索実行",
  21.     "　　　 &2."+$h12+"文字列は取得しないで、k_SRCHメイン画面",
  22.     "□ 非選択起動時の取得文字列(&h)─────────────",
  23.     "　　　 &3."+$h21+"カーソル以降の単語の部分を取得",
  24.     "　　　 &4."+$h22+"カーソルのある単語全体を取得",
  25.     "　　　 &5."+$h23+"検索バッファにある文字列",
  26.     "□ k_SRCH終了時の検索バッファ(&h)────────────",
  27.     "　　　 &6."+$h31+"秀丸上での元の検索状態に戻す",
  28.     "　　　 &7."+$h32+"k_SRCHでの検索状態を継続させる",
  29.     "-───────────────────────────",
  30.     "　　　　　　　　　　　　　　　　　　[×] 設定破棄(&Esc)",// [ ]の中身は”ぺけ”マークです(^^;
  31.     "　　　　　[◎] 決定(&w)";// [ ]の中身は”二重丸”マークです(^^;
  32.     if(result==0)endmacro;
  33.     else if(result==1){
  34.         call k_help0 4;
  35.     }else if(result==2){
  36.         call k_help0 5;
  37.     }else if(result==3){
  38.         #getSearchChar=0;
  39.         call setMarkH1;
  40.     }else if(result==4){
  41.         #getSearchChar=1;
  42.         call setMarkH1;
  43.     }else if(result==5){
  44.         call k_help0 6;
  45.     }else if(result==6){
  46.         #getWordChar=0;
  47.         call setMarkH2;
  48.     }else if(result==7){
  49.         #getWordChar=1;
  50.         call setMarkH2;
  51.     }else if(result==8){
  52.         #getWordChar=2;
  53.         call setMarkH2;
  54.     }else if(result==9){
  55.         call k_help0 7;
  56.     }else if(result==10){
  57.         #endSetBuffer=0;
  58.         call setMarkH3;
  59.     }else if(result==11){
  60.         #endSetBuffer=1;
  61.         call setMarkH3;
  62.     }else if(result==13){
  63.         call writeIniChange;
  64.     }else if(result==14){
  65.         break;
  66.     }
  67. }
  68. call CheckRealChange;//定数が変化したかチェック
  69. if(##return){
  70.     call writeIniChanged;
  71.     message "●報告...設定内容を新たに書き込みました。\n"+
  72.         "●確認...起動時の変更（ 1.～5.までの変更した設定内容）は、次回のk_SRCH.macの起動時から有効になります。"+
  73.         "また、終了時の変更（ 6.～7.までの変更した設定内容）は、現在のマクロ終了時から有効です。";
  74. }
  75. endmacro;
  76.  
  77. CheckRealChange:
  78. if(#getSearchCharOrg!=#getSearchChar || #getWordCharOrg!=#getWordChar || #endSetBufferOrg!=#endSetBuffer)return 1;
  79. else return 0;
  80.  
  81. k_help0:
  82.     writeininum $f0,"LOOK00","helpNumb",##1;
  83.     execmacro "k_SRCHHL.mac";
  84. return;
  85.  
  86.  
  87. setMarkH1:
  88. if(!#getSearchChar){
  89.     $h11="[◎]";
  90.     $h12="[－]";
  91. }else{
  92.     $h11="[－]";
  93.     $h12="[◎]";
  94. }
  95. return;
  96.  
  97. setMarkH2:
  98. if(#getWordChar==0){
  99.     $h21="[◎]";
  100.     $h22="[－]";
  101.     $h23="[－]";
  102. }else if(#getWordChar==1){
  103.     $h21="[－]";
  104.     $h22="[◎]";
  105.     $h23="[－]";
  106. }else if(#getWordChar==2){
  107.     $h21="[－]";
  108.     $h22="[－]";
  109.     $h23="[◎]";
  110. }
  111. return;
  112.  
  113. setMarkH3:
  114. if(!#endSetBuffer){
  115.     $h31="[◎]";
  116.     $h32="[－]";
  117. }else{
  118.     $h31="[－]";
  119.     $h32="[◎]";
  120. }
  121.  
  122. return;
  123.  
  124.  
  125. startSetting:
  126. $f0=hidemarudir+"\\kakimac\\kakimac.kdf";
  127. #getSearchChar=getininum($f0,"LOOK00","getSearchChar");
  128. #getWordChar=getininum($f0,"LOOK00","getWordChar");
  129. #endSetBuffer=getininum($f0,"LOOK00","endSetBuffer");
  130. #getSearchCharOrg=#getSearchChar;
  131. #getWordCharOrg=#getWordChar;
  132. #endSetBufferOrg=#endSetBuffer;
  133. return;
  134.  
  135. writeIniChanged:
  136. writeininum $f0,"LOOK00","getSearchChar",#getSearchChar;
  137. writeininum $f0,"LOOK00","getWordChar",#getWordChar;
  138. writeininum $f0,"LOOK00","endSetBuffer",#endSetBuffer;
  139. return;
  140.  
  141.  
  142.  
  143.