マクロ 公開データ (2000.10～2008.01)

[1070] 文字列一括変換マクロ - Keiji <> 02/11/16 19:52

 
 Subject: [1070] 文字列一括変換マクロ
    Date: Sat, 16 Nov 2002 19:52:13 +0900
    From: Keiji <>

//このマクロは一太郎のマクロ作者 nns <nns_＠_jstaro.club.ne.jp> さんのマクロを
//EdMax 用に書き換えました。
//文字列一括変換マクロ
// Start of EdMax Macro
SetFocusToEditor( ) ;
KeyDown( VK_HOME , 2 ) ;
// 丸数字置換
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "①" , "(1)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "②" , "(2)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "③" , "(3)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "④" , "(4)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑤" , "(5)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑥" , "(6)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑦" , "(7)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑧" , "(8)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑨" , "(9)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑩" , "(10)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑪" , "(11)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑫" , "(12)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑬" , "(13)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑭" , "(14)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑮" , "(15)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑯" , "(16)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑰" , "(17)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑱" , "(18)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑲" , "(19)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "⑳" , "(20)" ) ;
// 記号半角変換
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "，" , "," ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "．" , "." ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "：" , ":" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "；" , ";" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "？" , "?" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "！" , "!" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "＿" , "_" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "／" , "/" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "｜" , "|" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "（" , "(" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "）" , ")" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "［" , "[" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "］" , "]" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "｛" , "{" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "｝" , "}" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "＋" , "+" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "＝" , "=" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "＜" , "<" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "＞" , ">" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "￥" , "\" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "＄" , "$" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "％" , "%" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "＃" , "#" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "＆" , "&" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "＊" , "*" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "＠" , "_＠_" ) ;
// ローマ数字変換
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Ⅰ" , "I" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Ⅱ" , "II" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Ⅲ" , "III" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Ⅳ" , "IV" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Ⅴ" , "V" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Ⅵ" , "VI" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Ⅶ" , "VII" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Ⅷ" , "VIII" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Ⅸ" , "IX" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Ⅹ" , "X" ) ;
//機種依存文字変換
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㍉" , "ミリ" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㌔" , "キロ" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㌢" , "センチ" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㍍" , "メートル" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㌘" , "グラム" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㌧" , "トン" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㌃" , "アール" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㌶" , "ヘクタール" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㍑" , "リットル" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㍗" , "ワット" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㌍" , "カロリー" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㌦" , "ドル" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㌣" , "セント" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㌫" , "パーセント" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㍊" , "ミリバール" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㌻" , "ページ" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㎜" , "mm" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㎝" , "cm" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㎞" , "km" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㎎" , "mg" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㎏" , "kg" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㏄" , "cc" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "№" , "No." ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㏍" , "K.K." ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "℡" , "TEL" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㊤" , "(上)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㊥" , "(中)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㊦" , "(下)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㊧" , "(左)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㊨" , "(右)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㈱" , "(株)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㈲" , "(有)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㈹" , "(代)" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㍾" , "明治" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㍽" , "大正" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㍼" , "昭和" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "㍻" , "平成" ) ;
//以下の記号は全角へ
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "｢" , "「" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "｣" , "」" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "･" , "・" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "｡" , "。" ) ;
// End of EdMax Macro