マクロ 公開データ (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 , "A" , "(2)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "B" , "(3)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "C" , "(4)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "D" , "(5)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "E" , "(6)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "F" , "(7)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "G" , "(8)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "H" , "(9)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "I" , "(10)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "J" , "(11)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "K" , "(12)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "L" , "(13)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "M" , "(14)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "N" , "(15)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "O" , "(16)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "P" , "(17)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Q" , "(18)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "R" , "(19)" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "S" , "(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 , "T" , "I" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "U" , "II" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "V" , "III" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "W" , "IV" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "X" , "V" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Y" , "VI" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "Z" , "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 , "a" , "センチ" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "b" , "メートル" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "c" , "グラム" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "d" , "トン" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "e" , "アール" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "f" , "ヘクタール" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "g" , "リットル" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "h" , "ワット" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "i" , "カロリー" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "j" , "ドル" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "k" , "セント" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "l" , "パーセント" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "m" , "ミリバール" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "n" , "ページ" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "o" , "mm" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "p" , "cm" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "q" , "km" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "r" , "mg" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "s" , "kg" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , "t" , "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