home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2002 April / VPR0204A.ISO / OLS / GREP109 / grep109.lzh / searchEx / string.mac < prev    next >
Text File  |  2001-06-16  |  1KB  |  43 lines
  1. //無視する文字列の種類選択・設定
  2. $ini = macrodir + "\\searchEx\\searchEx.ini";
  3. $$blockKind[0] = "(&C)無視する文字列選択・設定の切り替え (現在は選択))";
  4. ##selectConf = 0;
  5. ##i = 0;
  6. while(##i < 10){
  7.     $$blockKind[##i + 1] = "(&" + str(##i) + ")" + getinistr($ini,"STRING",str(##i));
  8.     ##i = ##i + 1;
  9. }
  10. $$blockKind[11] = "(&X)マクロ終了";
  11. while(1){
  12.     menuarray $$blockKind, 12;
  13.     ##i = result - 2;
  14.     if(result == 0 || result == 12)endmacroall;
  15.     else if(result == 1){
  16.         if(##selectConf == 0){
  17.             $$blockKind[0] = "(&C)無視する文字列選択・設定の切り替え (現在は設定))";
  18.             ##selectConf = 1;
  19.         }
  20.         else{
  21.             $$blockKind[0] = "(&C)無視する文字列選択・設定の切り替え (現在は選択))";
  22.             ##selectConf = 0;
  23.         }
  24.     }
  25.     else if(##selectConf){
  26.         call StringConf ##i;
  27.         $$block = getinistr($ini,"STRINGSTRING",str(##i));
  28.         if($$block != "")$$blockKind[##i + 1] =  "(&" + str(##i) + ")" + getinistr($ini,"STRING",str(##i));
  29.     }
  30.     else{
  31.         if(getinistr($ini,"STRINGSTRING",str(##i)) != ""){
  32.             writeininum $ini,"SEARCH","joint", ##i + 1;
  33.             endmacro;
  34.         }
  35.     }
  36. }
  37.  
  38. StringConf://無視する文字列を実際に設定
  39.     $$tmp = input("無視する種類は?",getinistr($ini,"STRING",str(##1)));
  40.     writeinistr $ini,"STRING",str(##1),"\""+ $$tmp + "\"";
  41.     $$tmp = input("実際に無視する文字列は?\n正規表現を用いて無視されるように設定してください",getinistr($ini,"STRINGSTRING",str(##1)));
  42.     writeinistr $ini,"STRINGSTRING",str(##1),"\""+ $$tmp + "\"";
  43.     return;