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