home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1999 February / VPR9902A.BIN / OLS / svseike4 / svseike4.lzh / HANKN2ZE.MAC next >
Text File  |  1997-03-08  |  1KB  |  55 lines
  1. //  半角カタカナを全角カタカナに変換するマクロ  HANKN2ZE.MAC ver.2.00
  2. //  by ＪＲくん(GFB03426@niftyserve.or.jp) 1997.3.8
  3.  
  4. //  当該ファイル全文を対象にします。
  5.  
  6.     $b = searchbuffer;
  7.     #s = searchoption;
  8.     #SF = getininum("hidemaru.ini", "Env", "SelectFound");
  9.     if(!#SF) {
  10.         writeininum "hidemaru.ini", "Env", "SelectFound", 1;
  11.         envchanged;
  12.     }
  13.     disableinvert;
  14.     disabledraw;
  15.  
  16.     #count = 0;
  17.  
  18.     escape;
  19.     gofiletop;
  20.  
  21.     #code = ((code >= 0xa1) && (code <= 0xdf));
  22.     if (#code) {    //  先頭が半角カタカナの場合
  23.         insert " ";
  24.         gofiletop;
  25.     }
  26.  
  27.     while(1){
  28.         searchdown "[｡-ﾟ]+", regular;
  29.         if(!result) break;
  30.         tozenkakukata;
  31.         #count = #count + 1;
  32.         escape;
  33.     }
  34.  
  35.     if (#code) {    //  先頭が半角カタカナの場合
  36.         gofiletop;
  37.         delete;
  38.     }
  39.  
  40.     //  INIファイルを取得
  41.     $INIdir = getinistr("HIDEMARU.INI", "Env", "MacroPath");
  42.     if ($INIdir == "") $INIdir = hidemarudir;
  43.     $INIfile = $INIdir+"\\HANKN2ZE.INI";
  44.     writeininum $INIfile, "Result", "Count", #count;
  45.  
  46.     if(!#SF) {
  47.         writeininum "hidemaru.ini", "Env", "SelectFound", 0;
  48.         envchanged;
  49.     }
  50.     setsearch $b,#s;
  51.     enabledraw;
  52.     enableinvert;
  53.  
  54.     endmacro;
  55.