・同じ処理を繰り返す場合、エクセルを使って短時間にコードを生成できるようになります
・半角↔︎全角変換はエクセルの関数を使うことで効果的にコーディングができます
PowerQueryのコード生成にエクセルを使う事例として、半角↔︎全角変換のコード生成を例に説明します。
サンプルとして、取り込むデータは次のような、産地と品名がリストになっているエクセルファイルを準備しました。
コードの繰り返し要素を特定する
全角数字を半角数字に変換するコードは次のようなものになります。
このコード例は、数字だけを変換していますが、全角から半角に変換する必要があるのは、数字だけでなく、カナや記号などもあります。
(TargetText as nullable text)=>
let
num0 = Replacer.ReplaceText(TargetText,"０","0"),
num1 = Replacer.ReplaceText(num0,"１","1"),
num2 = Replacer.ReplaceText(num1,"２","2"),
num3 = Replacer.ReplaceText(num2,"３","3"),
num4 = Replacer.ReplaceText(num3,"４","4"),
num5 = Replacer.ReplaceText(num4,"５","5"),
num6 = Replacer.ReplaceText(num5,"６","6"),
num7 = Replacer.ReplaceText(num6,"７","7"),
num8 = Replacer.ReplaceText(num7,"８","8"),
num9 = Replacer.ReplaceText(num8,"９","9"),
result = num9
in
result
ここで、繰り返し要素を特定するとこの部分が、共通しててい繰り返されていることがわかります。
"X"の部分が変化しており、それ以外は同じ記述になっています。
numX = Replacer.ReplaceText(numX,"X","X"),
まず、値が変化する "X" を含む文字の前後を分けるようにセルに記述していきます。
次に、CONCAT()を使って、B〜I列の文字を連結させていきます。
次に、F列の全角文字を直接入力するのではなく、JISコードで入力します。
CHAR()を使い()には、JISコード表の対応する値を入力します。加工しやすいようにJISコードをJ列に入力します。このとき、全角の "0" は9008で表せます。
そして、H列には半角文字を入力しますが、エクセルの関数には、全角を半角に変換するASC()関数があるため、F列の値を半角に変換するようにASC()を記述します。
入力した関数をコピーして量産する！
B、DおよびJ列の数字を増加させるようにして行をコピーするため、A〜J列選択した状態とした後、選択セルの右下を下にドラッグしてコピーしていきます。
次のようにB、D、J列の数字が増加していくようにコピーされると思います。
J列が9590になるまでコピーすると数字、英字、記号、カナの全てが表示されます。
次に途中に該当する文字がないJISコードがあるため、その行を削除していきます。
最後に、濁点、破裂音の行を、上の方の行になるよう移動させます。これは、半角の濁点や破裂音は、濁点や破裂音がない文字と濁点（ﾞ）や破裂音（ﾟ）の文字の２文字で構成されているため、濁点や破裂音を１文字で表現する全角に変換しようとすると、濁点や破裂音がない文字部分だけを先に全角に変換してしまい、濁点や破裂音が余ってしまうためです。
コードの完成
完成した全角を半角にするコードサンプルを次に示します。
(TargetText as nullable text)=>
let
char0 = Replacer.ReplaceText(TargetText,"０","0"),
char1 = Replacer.ReplaceText( char0,"１","1"),
char2 = Replacer.ReplaceText( char1,"２","2"),
char3 = Replacer.ReplaceText( char2,"３","3"),
char4 = Replacer.ReplaceText( char3,"４","4"),
char5 = Replacer.ReplaceText( char4,"５","5"),
char6 = Replacer.ReplaceText( char5,"６","6"),
char7 = Replacer.ReplaceText( char6,"７","7"),
char8 = Replacer.ReplaceText( char7,"８","8"),
char9 = Replacer.ReplaceText( char8,"９","9"),
char10 = Replacer.ReplaceText( char9,"Y","Y"),
char11 = Replacer.ReplaceText( char10,"Z","Z"),
char12 = Replacer.ReplaceText( char11,"[","["),
char13 = Replacer.ReplaceText( char12,"¥","¥"),
char14 = Replacer.ReplaceText( char13,"]","]"),
char15 = Replacer.ReplaceText( char14,"^","^"),
char16 = Replacer.ReplaceText( char15,"_","_"),
char17 = Replacer.ReplaceText( char16,"Ａ","A"),
char18 = Replacer.ReplaceText( char17,"Ｂ","B"),
char19 = Replacer.ReplaceText( char18,"Ｃ","C"),
char20 = Replacer.ReplaceText( char19,"Ｄ","D"),
char21 = Replacer.ReplaceText( char20,"Ｅ","E"),
char22 = Replacer.ReplaceText( char21,"Ｆ","F"),
char23 = Replacer.ReplaceText( char22,"Ｇ","G"),
char24 = Replacer.ReplaceText( char23,"Ｈ","H"),
char25 = Replacer.ReplaceText( char24,"Ｉ","I"),
char26 = Replacer.ReplaceText( char25,"Ｊ","J"),
char27 = Replacer.ReplaceText( char26,"Ｋ","K"),
char28 = Replacer.ReplaceText( char27,"Ｌ","L"),
char29 = Replacer.ReplaceText( char28,"Ｍ","M"),
char30 = Replacer.ReplaceText( char29,"Ｎ","N"),
char31 = Replacer.ReplaceText( char30,"Ｏ","O"),
char32 = Replacer.ReplaceText( char31,"Ｐ","P"),
char33 = Replacer.ReplaceText( char32,"Ｑ","Q"),
char34 = Replacer.ReplaceText( char33,"Ｒ","R"),
char35 = Replacer.ReplaceText( char34,"Ｓ","S"),
char36 = Replacer.ReplaceText( char35,"Ｔ","T"),
char37 = Replacer.ReplaceText( char36,"Ｕ","U"),
char38 = Replacer.ReplaceText( char37,"Ｖ","V"),
char39 = Replacer.ReplaceText( char38,"Ｗ","W"),
char40 = Replacer.ReplaceText( char39,"Ｘ","X"),
char41 = Replacer.ReplaceText( char40,"Ｙ","Y"),
char42 = Replacer.ReplaceText( char41,"Ｚ","Z"),
char43 = Replacer.ReplaceText( char42,"z","z"),
char44 = Replacer.ReplaceText( char43,"{","{"),
char45 = Replacer.ReplaceText( char44,"|","|"),
char46 = Replacer.ReplaceText( char45,"}","}"),
char47 = Replacer.ReplaceText( char46,"~","~"),
char48 = Replacer.ReplaceText( char47,"\","\"),
char49 = Replacer.ReplaceText( char48,"ａ","a"),
char50 = Replacer.ReplaceText( char49,"ｂ","b"),
char51 = Replacer.ReplaceText( char50,"ｃ","c"),
char52 = Replacer.ReplaceText( char51,"ｄ","d"),
char53 = Replacer.ReplaceText( char52,"ｅ","e"),
char54 = Replacer.ReplaceText( char53,"ｆ","f"),
char55 = Replacer.ReplaceText( char54,"ｇ","g"),
char56 = Replacer.ReplaceText( char55,"ｈ","h"),
char57 = Replacer.ReplaceText( char56,"ｉ","i"),
char58 = Replacer.ReplaceText( char57,"ｊ","j"),
char59 = Replacer.ReplaceText( char58,"ｋ","k"),
char60 = Replacer.ReplaceText( char59,"ｌ","l"),
char61 = Replacer.ReplaceText( char60,"ｍ","m"),
char62 = Replacer.ReplaceText( char61,"ｎ","n"),
char63 = Replacer.ReplaceText( char62,"ｏ","o"),
char64 = Replacer.ReplaceText( char63,"ｐ","p"),
char65 = Replacer.ReplaceText( char64,"ｑ","q"),
char66 = Replacer.ReplaceText( char65,"ｒ","r"),
char67 = Replacer.ReplaceText( char66,"ｓ","s"),
char68 = Replacer.ReplaceText( char67,"ｔ","t"),
char69 = Replacer.ReplaceText( char68,"ｕ","u"),
char70 = Replacer.ReplaceText( char69,"ｖ","v"),
char71 = Replacer.ReplaceText( char70,"ｗ","w"),
char72 = Replacer.ReplaceText( char71,"ｘ","x"),
char73 = Replacer.ReplaceText( char72,"ｙ","y"),
char74 = Replacer.ReplaceText( char73,"ｚ","z"),
char75 = Replacer.ReplaceText( char74,"ガ","ｶﾞ"),
char76 = Replacer.ReplaceText( char75,"ギ","ｷﾞ"),
char77 = Replacer.ReplaceText( char76,"グ","ｸﾞ"),
char78 = Replacer.ReplaceText( char77,"ゲ","ｹﾞ"),
char79 = Replacer.ReplaceText( char78,"ゴ","ｺﾞ"),
char80 = Replacer.ReplaceText( char79,"ザ","ｻﾞ"),
char81 = Replacer.ReplaceText( char80,"ジ","ｼﾞ"),
char82 = Replacer.ReplaceText( char81,"ズ","ｽﾞ"),
char83 = Replacer.ReplaceText( char82,"ゼ","ｾﾞ"),
char84 = Replacer.ReplaceText( char83,"ゾ","ｿﾞ"),
char85 = Replacer.ReplaceText( char84,"ダ","ﾀﾞ"),
char86 = Replacer.ReplaceText( char85,"ヂ","ﾁﾞ"),
char87 = Replacer.ReplaceText( char86,"ヅ","ﾂﾞ"),
char88 = Replacer.ReplaceText( char87,"デ","ﾃﾞ"),
char89 = Replacer.ReplaceText( char88,"ド","ﾄﾞ"),
char90 = Replacer.ReplaceText( char89,"バ","ﾊﾞ"),
char91 = Replacer.ReplaceText( char90,"パ","ﾊﾟ"),
char92 = Replacer.ReplaceText( char91,"ビ","ﾋﾞ"),
char93 = Replacer.ReplaceText( char92,"ピ","ﾋﾟ"),
char94 = Replacer.ReplaceText( char93,"ブ","ﾌﾞ"),
char95 = Replacer.ReplaceText( char94,"プ","ﾌﾟ"),
char96 = Replacer.ReplaceText( char95,"ベ","ﾍﾞ"),
char97 = Replacer.ReplaceText( char96,"ペ","ﾍﾟ"),
char98 = Replacer.ReplaceText( char97,"ボ","ﾎﾞ"),
char99 = Replacer.ReplaceText( char98,"ポ","ﾎﾟ"),
char100 = Replacer.ReplaceText( char99,"ヴ","ヴ"),
char101 = Replacer.ReplaceText( char100,"ァ","ｧ"),
char102 = Replacer.ReplaceText( char101,"ア","ｱ"),
char103 = Replacer.ReplaceText( char102,"ィ","ｨ"),
char104 = Replacer.ReplaceText( char103,"イ","ｲ"),
char105 = Replacer.ReplaceText( char104,"ゥ","ｩ"),
char106 = Replacer.ReplaceText( char105,"ウ","ｳ"),
char107 = Replacer.ReplaceText( char106,"ェ","ｪ"),
char108 = Replacer.ReplaceText( char107,"エ","ｴ"),
char109 = Replacer.ReplaceText( char108,"ォ","ｫ"),
char110 = Replacer.ReplaceText( char109,"オ","ｵ"),
char111 = Replacer.ReplaceText( char110,"カ","ｶ"),
char112 = Replacer.ReplaceText( char111,"キ","ｷ"),
char113 = Replacer.ReplaceText( char112,"ク","ｸ"),
char114 = Replacer.ReplaceText( char113,"ケ","ｹ"),
char115 = Replacer.ReplaceText( char114,"コ","ｺ"),
char116 = Replacer.ReplaceText( char115,"サ","ｻ"),
char117 = Replacer.ReplaceText( char116,"シ","ｼ"),
char118 = Replacer.ReplaceText( char117,"ス","ｽ"),
char119 = Replacer.ReplaceText( char118,"セ","ｾ"),
char120 = Replacer.ReplaceText( char119,"ソ","ｿ"),
char121 = Replacer.ReplaceText( char120,"タ","ﾀ"),
char122 = Replacer.ReplaceText( char121,"チ","ﾁ"),
char123 = Replacer.ReplaceText( char122,"ッ","ｯ"),
char124 = Replacer.ReplaceText( char123,"ツ","ﾂ"),
char125 = Replacer.ReplaceText( char124,"テ","ﾃ"),
char126 = Replacer.ReplaceText( char125,"ト","ﾄ"),
char127 = Replacer.ReplaceText( char126,"ナ","ﾅ"),
char128 = Replacer.ReplaceText( char127,"ニ","ﾆ"),
char129 = Replacer.ReplaceText( char128,"ヌ","ﾇ"),
char130 = Replacer.ReplaceText( char129,"ネ","ﾈ"),
char131 = Replacer.ReplaceText( char130,"ノ","ﾉ"),
char132 = Replacer.ReplaceText( char131,"ハ","ﾊ"),
char133 = Replacer.ReplaceText( char132,"ヒ","ﾋ"),
char134 = Replacer.ReplaceText( char133,"フ","ﾌ"),
char135 = Replacer.ReplaceText( char134,"ヘ","ﾍ"),
char136 = Replacer.ReplaceText( char135,"ホ","ﾎ"),
char137 = Replacer.ReplaceText( char136,"マ","ﾏ"),
char138 = Replacer.ReplaceText( char137,"ミ","ﾐ"),
char139 = Replacer.ReplaceText( char138,"ム","ﾑ"),
char140 = Replacer.ReplaceText( char139,"メ","ﾒ"),
char141 = Replacer.ReplaceText( char140,"モ","ﾓ"),
char142 = Replacer.ReplaceText( char141,"ャ","ｬ"),
char143 = Replacer.ReplaceText( char142,"ヤ","ﾔ"),
char144 = Replacer.ReplaceText( char143,"ュ","ｭ"),
char145 = Replacer.ReplaceText( char144,"ユ","ﾕ"),
char146 = Replacer.ReplaceText( char145,"ョ","ｮ"),
char147 = Replacer.ReplaceText( char146,"ヨ","ﾖ"),
char148 = Replacer.ReplaceText( char147,"ラ","ﾗ"),
char149 = Replacer.ReplaceText( char148,"リ","ﾘ"),
char150 = Replacer.ReplaceText( char149,"ル","ﾙ"),
char151 = Replacer.ReplaceText( char150,"レ","ﾚ"),
char152 = Replacer.ReplaceText( char151,"ロ","ﾛ"),
char153 = Replacer.ReplaceText( char152,"ヮ","ヮ"),
char154 = Replacer.ReplaceText( char153,"ワ","ﾜ"),
char155 = Replacer.ReplaceText( char154,"ヰ","ヰ"),
char156 = Replacer.ReplaceText( char155,"ヱ","ヱ"),
char157 = Replacer.ReplaceText( char156,"ヲ","ｦ"),
char158 = Replacer.ReplaceText( char157,"ン","ﾝ"),
char159 = Replacer.ReplaceText( char158,"ヵ","ヵ"),
char160 = Replacer.ReplaceText( char159,"ヶ","ヶ")
result = char160
in
result
また、半角を全角に変換するコードサンプルを次に示します。
(TargetText as nullable text)=>
let
char0 = Replacer.ReplaceText(TargetText,"0","０"),
char1 = Replacer.ReplaceText( char0,"1","１"),
char2 = Replacer.ReplaceText( char1,"2","２"),
char3 = Replacer.ReplaceText( char2,"3","３"),
char4 = Replacer.ReplaceText( char3,"4","４"),
char5 = Replacer.ReplaceText( char4,"5","５"),
char6 = Replacer.ReplaceText( char5,"6","６"),
char7 = Replacer.ReplaceText( char6,"7","７"),
char8 = Replacer.ReplaceText( char7,"8","８"),
char9 = Replacer.ReplaceText( char8,"9","９"),
char10 = Replacer.ReplaceText( char9,"Y","Ｙ"),
char11 = Replacer.ReplaceText( char10,"Z","Ｚ"),
char12 = Replacer.ReplaceText( char11,"[","［"),
char13 = Replacer.ReplaceText( char12,"¥","¥"),
char14 = Replacer.ReplaceText( char13,"]","］"),
char15 = Replacer.ReplaceText( char14,"^","＾"),
char16 = Replacer.ReplaceText( char15,"_","＿"),
char17 = Replacer.ReplaceText( char16,"A","Ａ"),
char18 = Replacer.ReplaceText( char17,"B","Ｂ"),
char19 = Replacer.ReplaceText( char18,"C","Ｃ"),
char20 = Replacer.ReplaceText( char19,"D","Ｄ"),
char21 = Replacer.ReplaceText( char20,"E","Ｅ"),
char22 = Replacer.ReplaceText( char21,"F","Ｆ"),
char23 = Replacer.ReplaceText( char22,"G","Ｇ"),
char24 = Replacer.ReplaceText( char23,"H","Ｈ"),
char25 = Replacer.ReplaceText( char24,"I","Ｉ"),
char26 = Replacer.ReplaceText( char25,"J","Ｊ"),
char27 = Replacer.ReplaceText( char26,"K","Ｋ"),
char28 = Replacer.ReplaceText( char27,"L","Ｌ"),
char29 = Replacer.ReplaceText( char28,"M","Ｍ"),
char30 = Replacer.ReplaceText( char29,"N","Ｎ"),
char31 = Replacer.ReplaceText( char30,"O","Ｏ"),
char32 = Replacer.ReplaceText( char31,"P","Ｐ"),
char33 = Replacer.ReplaceText( char32,"Q","Ｑ"),
char34 = Replacer.ReplaceText( char33,"R","Ｒ"),
char35 = Replacer.ReplaceText( char34,"S","Ｓ"),
char36 = Replacer.ReplaceText( char35,"T","Ｔ"),
char37 = Replacer.ReplaceText( char36,"U","Ｕ"),
char38 = Replacer.ReplaceText( char37,"V","Ｖ"),
char39 = Replacer.ReplaceText( char38,"W","Ｗ"),
char40 = Replacer.ReplaceText( char39,"X","Ｘ"),
char41 = Replacer.ReplaceText( char40,"Y","Ｙ"),
char42 = Replacer.ReplaceText( char41,"Z","Ｚ"),
char43 = Replacer.ReplaceText( char42,"z","ｚ"),
char44 = Replacer.ReplaceText( char43,"{","｛"),
char45 = Replacer.ReplaceText( char44,"|","｜"),
char46 = Replacer.ReplaceText( char45,"}","｝"),
char47 = Replacer.ReplaceText( char46,"~","～"),
char48 = Replacer.ReplaceText( char47,"\","￥"),
char49 = Replacer.ReplaceText( char48,"a","ａ"),
char50 = Replacer.ReplaceText( char49,"b","ｂ"),
char51 = Replacer.ReplaceText( char50,"c","ｃ"),
char52 = Replacer.ReplaceText( char51,"d","ｄ"),
char53 = Replacer.ReplaceText( char52,"e","ｅ"),
char54 = Replacer.ReplaceText( char53,"f","ｆ"),
char55 = Replacer.ReplaceText( char54,"g","ｇ"),
char56 = Replacer.ReplaceText( char55,"h","ｈ"),
char57 = Replacer.ReplaceText( char56,"i","ｉ"),
char58 = Replacer.ReplaceText( char57,"j","ｊ"),
char59 = Replacer.ReplaceText( char58,"k","ｋ"),
char60 = Replacer.ReplaceText( char59,"l","ｌ"),
char61 = Replacer.ReplaceText( char60,"m","ｍ"),
char62 = Replacer.ReplaceText( char61,"n","ｎ"),
char63 = Replacer.ReplaceText( char62,"o","ｏ"),
char64 = Replacer.ReplaceText( char63,"p","ｐ"),
char65 = Replacer.ReplaceText( char64,"q","ｑ"),
char66 = Replacer.ReplaceText( char65,"r","ｒ"),
char67 = Replacer.ReplaceText( char66,"s","ｓ"),
char68 = Replacer.ReplaceText( char67,"t","ｔ"),
char69 = Replacer.ReplaceText( char68,"u","ｕ"),
char70 = Replacer.ReplaceText( char69,"v","ｖ"),
char71 = Replacer.ReplaceText( char70,"w","ｗ"),
char72 = Replacer.ReplaceText( char71,"x","ｘ"),
char73 = Replacer.ReplaceText( char72,"y","ｙ"),
char74 = Replacer.ReplaceText( char73,"z","ｚ"),
char75 = Replacer.ReplaceText( char74,"ｶﾞ","ガ"),
char76 = Replacer.ReplaceText( char75,"ｷﾞ","ギ"),
char77 = Replacer.ReplaceText( char76,"ｸﾞ","グ"),
char78 = Replacer.ReplaceText( char77,"ｹﾞ","ゲ"),
char79 = Replacer.ReplaceText( char78,"ｺﾞ","ゴ"),
char80 = Replacer.ReplaceText( char79,"ｻﾞ","ザ"),
char81 = Replacer.ReplaceText( char80,"ｼﾞ","ジ"),
char82 = Replacer.ReplaceText( char81,"ｽﾞ","ズ"),
char83 = Replacer.ReplaceText( char82,"ｾﾞ","ゼ"),
char84 = Replacer.ReplaceText( char83,"ｿﾞ","ゾ"),
char85 = Replacer.ReplaceText( char84,"ﾀﾞ","ダ"),
char86 = Replacer.ReplaceText( char85,"ﾁﾞ","ヂ"),
char87 = Replacer.ReplaceText( char86,"ﾂﾞ","ヅ"),
char88 = Replacer.ReplaceText( char87,"ﾃﾞ","デ"),
char89 = Replacer.ReplaceText( char88,"ﾄﾞ","ド"),
char90 = Replacer.ReplaceText( char89,"ﾊﾞ","バ"),
char91 = Replacer.ReplaceText( char90,"ﾊﾟ","パ"),
char92 = Replacer.ReplaceText( char91,"ﾋﾞ","ビ"),
char93 = Replacer.ReplaceText( char92,"ﾋﾟ","ピ"),
char94 = Replacer.ReplaceText( char93,"ﾌﾞ","ブ"),
char95 = Replacer.ReplaceText( char94,"ﾌﾟ","プ"),
char96 = Replacer.ReplaceText( char95,"ﾍﾞ","ベ"),
char97 = Replacer.ReplaceText( char96,"ﾍﾟ","ペ"),
char98 = Replacer.ReplaceText( char97,"ﾎﾞ","ボ"),
char99 = Replacer.ReplaceText( char98,"ﾎﾟ","ポ"),
char100 = Replacer.ReplaceText( char99,"ヴ","ヴ"),
char101 = Replacer.ReplaceText( char100,"ｧ","ァ"),
char102 = Replacer.ReplaceText( char101,"ｱ","ア"),
char103 = Replacer.ReplaceText( char102,"ｨ","ィ"),
char104 = Replacer.ReplaceText( char103,"ｲ","イ"),
char105 = Replacer.ReplaceText( char104,"ｩ","ゥ"),
char106 = Replacer.ReplaceText( char105,"ｳ","ウ"),
char107 = Replacer.ReplaceText( char106,"ｪ","ェ"),
char108 = Replacer.ReplaceText( char107,"ｴ","エ"),
char109 = Replacer.ReplaceText( char108,"ｫ","ォ"),
char110 = Replacer.ReplaceText( char109,"ｵ","オ"),
char111 = Replacer.ReplaceText( char110,"ｶ","カ"),
char112 = Replacer.ReplaceText( char111,"ｷ","キ"),
char113 = Replacer.ReplaceText( char112,"ｸ","ク"),
char114 = Replacer.ReplaceText( char113,"ｹ","ケ"),
char115 = Replacer.ReplaceText( char114,"ｺ","コ"),
char116 = Replacer.ReplaceText( char115,"ｻ","サ"),
char117 = Replacer.ReplaceText( char116,"ｼ","シ"),
char118 = Replacer.ReplaceText( char117,"ｽ","ス"),
char119 = Replacer.ReplaceText( char118,"ｾ","セ"),
char120 = Replacer.ReplaceText( char119,"ｿ","ソ"),
char121 = Replacer.ReplaceText( char120,"ﾀ","タ"),
char122 = Replacer.ReplaceText( char121,"ﾁ","チ"),
char123 = Replacer.ReplaceText( char122,"ｯ","ッ"),
char124 = Replacer.ReplaceText( char123,"ﾂ","ツ"),
char125 = Replacer.ReplaceText( char124,"ﾃ","テ"),
char126 = Replacer.ReplaceText( char125,"ﾄ","ト"),
char127 = Replacer.ReplaceText( char126,"ﾅ","ナ"),
char128 = Replacer.ReplaceText( char127,"ﾆ","ニ"),
char129 = Replacer.ReplaceText( char128,"ﾇ","ヌ"),
char130 = Replacer.ReplaceText( char129,"ﾈ","ネ"),
char131 = Replacer.ReplaceText( char130,"ﾉ","ノ"),
char132 = Replacer.ReplaceText( char131,"ﾊ","ハ"),
char133 = Replacer.ReplaceText( char132,"ﾋ","ヒ"),
char134 = Replacer.ReplaceText( char133,"ﾌ","フ"),
char135 = Replacer.ReplaceText( char134,"ﾍ","ヘ"),
char136 = Replacer.ReplaceText( char135,"ﾎ","ホ"),
char137 = Replacer.ReplaceText( char136,"ﾏ","マ"),
char138 = Replacer.ReplaceText( char137,"ﾐ","ミ"),
char139 = Replacer.ReplaceText( char138,"ﾑ","ム"),
char140 = Replacer.ReplaceText( char139,"ﾒ","メ"),
char141 = Replacer.ReplaceText( char140,"ﾓ","モ"),
char142 = Replacer.ReplaceText( char141,"ｬ","ャ"),
char143 = Replacer.ReplaceText( char142,"ﾔ","ヤ"),
char144 = Replacer.ReplaceText( char143,"ｭ","ュ"),
char145 = Replacer.ReplaceText( char144,"ﾕ","ユ"),
char146 = Replacer.ReplaceText( char145,"ｮ","ョ"),
char147 = Replacer.ReplaceText( char146,"ﾖ","ヨ"),
char148 = Replacer.ReplaceText( char147,"ﾗ","ラ"),
char149 = Replacer.ReplaceText( char148,"ﾘ","リ"),
char150 = Replacer.ReplaceText( char149,"ﾙ","ル"),
char151 = Replacer.ReplaceText( char150,"ﾚ","レ"),
char152 = Replacer.ReplaceText( char151,"ﾛ","ロ"),
char153 = Replacer.ReplaceText( char152,"ヮ","ヮ"),
char154 = Replacer.ReplaceText( char153,"ﾜ","ワ"),
char155 = Replacer.ReplaceText( char154,"ヰ","ヰ"),
char156 = Replacer.ReplaceText( char155,"ヱ","ヱ"),
char157 = Replacer.ReplaceText( char156,"ｦ","ヲ"),
char158 = Replacer.ReplaceText( char157,"ﾝ","ン"),
char159 = Replacer.ReplaceText( char158,"ヵ","ヵ"),
char160 = Replacer.ReplaceText( char159,"ヶ","ヶ")
result = char160
in
result
