home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / KAKIMAC / KAKIMACK.LZH / K_KNZAA1.MAC next >
Text File  |  1995-10-21  |  5KB  |  99 lines
  1. // k_knzAa1.mac 水銀水(Suigwinsui)/小田明夫(HGD01603)
  2. //一括変換。旧漢字(Old)→現代漢字(旧漢字の候補全てを現代漢字に変換)
  3.  
  4.  
  5. call starting;
  6. call setKanzi;
  7. call mainKyuuKanzi;
  8. call ending;
  9.  
  10. mainKyuuKanzi:
  11. if(selecting){// 選擇時
  12.     #sx=seltopx;#sy=seltopy;
  13.     #ex=selendx;#ey=selendy;
  14.     disabledraw;
  15.     escape;
  16.     call changeChrG;
  17.     enabledraw;
  18. }else{
  19.     message "●報告...当マクロを実行できません<m(_._)m> \n"+
  20.         "●理由...実行前に「範囲選択」することが必要です\n"+
  21.         "●対策...文字列選択や行選択をして、当マクロを実行して下さい。";
  22.     #ret=1;
  23.     goto ending;
  24. }
  25. return;
  26.  
  27. changeChrG://開始座標と終点座標を与えて、その間の旧漢字を現代漢字に変換する
  28.     moveto #sx,#sy;
  29.     while(1){
  30.         #cCH=#cCH+1;
  31.         #g=code;
  32.         if(#g==eof)break;
  33.         call chkCharG;// #c;
  34.         title "●一括変換中『旧漢字\/異体字→現代漢字』...走査["+str(#cCH)+"]字　　変換["+str(#gOK)+"]字";
  35.         right;
  36.         if((#ex==x && #ey==y)||#ey<y)break;
  37.     }
  38. return;
  39.  
  40. chkCharG://旧漢字＜＞現代漢字
  41. //#g=code;
  42. $g=char(#g);
  43. #c=strstr($O,$g);
  44. if(#c>=0){
  45.     $InsK=midstr($K,#c,2);
  46.     #gOK=#gOK+1;
  47.     delete;
  48.     insertfix $InsK;
  49. //    title "　　旧漢字："+$g+"現在の漢字："+$InsK;
  50. }
  51. return;
  52.  
  53. setKanzi:
  54.  
  55. //--- 漢字テーブルtype.3.1 ---QKANJI2 .LZH   by 上村　郁夫(Ikuo Kamimura) (NIFTY-Serve:NBD00533)氏によるテーブル（舮、疇は入れ替え）
  56. $K="亜悪芦鯵圧庵囲為医育一一一壱稲飲淫隠卯欝厩厩叡営曳栄穎衛詠駅円煙艶塩奥往応欧殴鴬沖穏仮価嘩峨画会解回壊怪懐絵蟹碍蓋蓋蛎鈎拡撹殻覚学学岳楽竃釜粥勧巻歓潅缶観諌鑑関陥陥館雁雁顔器奇期棋棄帰帰気亀偽戯犠却糾旧拠挙挙京峡挟況狭尭暁極区駆駆勲群径径恵憩携渓渓経継茎蛍軽頚鶏芸欠決倹剣剣剣剣剣圏検権献県険顕験厳虎鼓効広恒晃稿鉱劫轟国嵯済砕剤財冴冴坂崎崎崎桜冊雑皐参惨桟蚕讃賛残糸紙歯事児辞湿質実篠蕊蕊舎写写釈呪寿収秋秋讐従渋渋獣縦粛準処叙叙嘗奨奨将廠松焼称証乗剰場壌嬢条浄畳畳畳穣譲醸嘱触唇寝慎晋真刃尽靭靭酢図厨垂粋翠酔随髄髄数枢世畝凄栖声静斉摂窃専戦浅潜潜線繊繊船賎践銭善禅曽疎蘇遡鼠双壮捜挿争窓総聡荘装走騒臓蔵属続卒多堕舵楕体対帯滞台滝択沢鐸達竪狸単担胆団弾断恥痴稚遅昼虫鋳瀦猪庁庁町聴腸勅珍鎮壷逓鉄鉄鉄纏転点伝兎兎兎砺党島島梼盗灯当逃闘働独読栃届縄二二二二迩韮妊廼悩脳覇廃拝杯梅売蝿函発髪罰抜蛮秘桧氷浜富払仏幣並閉箆変辺弁弁弁舗穂宝宝峰萌褒豊冒貌没本翻槙侭万満蓑蓑脈夢婿麺黙餅野弥薬訳薮薮癒湧予余与誉揺様窯耀謡踊遥来乱覧略溜留竜両涼猟瞭糧隣瑠塁涙励礼隷霊齢恋聯炉労朗楼篭禄亘湾仭俎伜僣冤冦冪剋剳卮厠厦厮喀噪嚏址埓壜奘奩佞嫺嬲尓崙嵌廸彝彎彿忰慚懺戛扠抬旙昿枡梹棕櫁檗檪殱洵洌渕渕炯煕燻犁犲狢獏琅瑶珱畴疣皸眥稟筐筍箏籐籖緕羈羈羮膣舮苺萼虱蟇蟒蠧衄衽褝謚譛豼賍躙軆輒輌逎鈩鑚閙闊韲飄鰛鳧鵄鵞鶇鷆麸齧";
  57.  
  58. //--- 旧漢字テーブルtype.3.2 ---上村　郁夫(Ikuo Kamimura) (NIFTY-Serve:NBD00533)氏によるqkanji.txtを改変
  59. $O="亞惡蘆鰺壓菴圍爲醫毓弌壱壹壹稻飮婬隱夘鬱廐廏睿營曵榮頴衞咏驛圓烟艷鹽奧徃應歐毆鶯冲穩假價譁峩畫會觧囘壞恠懷繪蠏礙葢盖蠣鉤擴攪殼覺學斈嶽樂竈釡鬻勸卷歡灌罐觀諫鑒關陷陷舘鴈鳫顏噐竒朞棊弃歸皈氣龜僞戲犧卻糺舊據擧舉亰峽挾况狹堯曉亟區驅駈勳羣徑逕惠憇攜溪谿經繼莖螢輕頸鷄藝缺决儉剱釼劍劔劒圈檢權獻縣險顯驗嚴乕皷效廣恆晄稾鑛刧軣國嵳濟碎劑戝冱沍阪埼嵜碕櫻册雜皋參慘棧蠶讚贊殘絲帋齒亊兒辭濕貭實筱蘂蕋舍寫冩釋咒壽收穐龝讎從澁澀獸縱肅凖處敍敘甞奬獎將厰枩燒稱證乘剩塲壤孃條淨疊疂疉穰讓釀囑觸脣寢愼晉眞刄盡靫靱醋圖廚埀粹翆醉隨髓膸數樞丗畆淒棲聲靜齋攝竊專戰淺潛濳綫纎纖舩賤踐錢譱禪曾踈蘓溯鼡雙壯搜插爭窗總聰莊裝赱騷臟藏屬續卆夛墮柁橢躰對帶滯臺瀧擇澤鈬逹豎貍單擔膽團彈斷耻癡穉遲晝蟲鑄潴豬廰廳甼聽膓敕珎鎭壺遞鐡鐵銕纒轉點傳兔莵菟礪黨嶋嶌檮盜燈當迯鬪仂獨讀杤屆繩弍弐貮貳邇韭姙迺惱腦霸廢拜盃楳賣蠅凾發髮罸拔蠻祕檜冰濱冨拂佛幤竝閇篦變邊辯辧瓣舖穗寶寳峯萠襃豐冐皃沒夲飜槇儘萬滿簑簔脉梦壻麪默餠埜彌藥譯藪籔瘉涌豫餘與譽搖樣窰燿謠踴遙來亂覽畧澑畄龍兩凉獵暸粮鄰璢壘泪勵禮隸靈齡戀聨爐勞朖樓籠祿亙灣仞爼倅僭寃寇羃尅箚巵廁廈廝咯譟嚔阯埒罎弉匳侫嫻嫐爾崘篏迪彜弯髴悴慙懴戞扨擡旛曠桝檳椶樒蘗櫟殲徇冽淵渊烱熈熏犂豺貉貘瑯瑤瓔疇肬皹眦禀筺笋筝籘籤纃羇覊羹腟艫莓蕚蝨蟆蠎蠹衂袵襌諡譖貔贓躪體輙輛遒鑪鑽鬧濶齏飃鰮鳬鴟鵝鶫鷏麩囓";
  60.  
  61. return;
  62.  
  63. starting:
  64. // 上書きキャンセル
  65. if(overwrite){#overWrite=1;overwriteswitch;}
  66. if(imestate){
  67.     #imeON=1;
  68.     imeswitch;
  69. }
  70. if(freecursor){
  71.     #freeCursChang=1;
  72.     config "r-";
  73. }
  74. #orgX=x;#orgY=y;//設定変更後のカーソル位置は変化する場合もあるが、これを初期位置とする
  75. #endCancelSelectStr=1;//マクロ終了時のカーソル位置
  76. return;
  77.  
  78. ending:
  79. if(#overWrite){if(!overwrite)overwriteswitch;}
  80. if(#freeCursChang){
  81.     config "r+";
  82. }
  83. if(#endCancelSelectStr){
  84.     moveto #orgX,#orgY;
  85.     escape;
  86. }
  87. if(#imeON)imeswitch;
  88. //moveto #orgX,#orgY;
  89. if(#cCH>0)message "●一括変換(旧／異 -->> 現)報告\n"+
  90.     "───────────────\n"+
  91.     "　・走査した文字数："+str(#cCH)+
  92.     "\n　・変換した漢字数："+str(#gOK)+" \n"+
  93.     "───────────────\n"+
  94.     "　　　　　　　　　　(C)水銀水";
  95. if(#ret)endmacro;
  96. else endmacroall;
  97.  
  98.  
  99.