クリスタルレポート(Crystal Reports)で、全角→半角変換する、式フィールド

クリスタルレポート(Visual Studio 2010 + CrystalReports Ver13 )で、全角→半角変換するまともな方法が見つからなかったので、ごりっと力技しました。

どこかの誰かのために貼り付けときます。

Local StringVar target := {フィールド名};

target := Replace(target, "１","1");
target := Replace(target, "２","2");
target := Replace(target, "３","3");
target := Replace(target, "４","4");
target := Replace(target, "５","5");
target := Replace(target, "６","6");
target := Replace(target, "７","7");
target := Replace(target, "８","8");
target := Replace(target, "９","9");
target := Replace(target, "０","0");
target := Replace(target, "ァ","ｧ");
target := Replace(target, "ア","ｱ");
target := Replace(target, "ィ","ｨ");
target := Replace(target, "イ","ｲ");
target := Replace(target, "ゥ","ｩ");
target := Replace(target, "ウ","ｳ");
target := Replace(target, "ェ","ｪ");
target := Replace(target, "エ","ｴ");
target := Replace(target, "ォ","ｫ");
target := Replace(target, "オ","ｵ");
target := Replace(target, "カ","ｶ");
target := Replace(target, "ガ","ｶﾞ");
target := Replace(target, "キ","ｷ");
target := Replace(target, "ギ","ｷﾞ");
target := Replace(target, "ク","ｸ");
target := Replace(target, "グ","ｸﾞ");
target := Replace(target, "ケ","ｹ");
target := Replace(target, "ゲ","ｹﾞ");
target := Replace(target, "コ","ｺ");
target := Replace(target, "ゴ","ｺﾞ");
target := Replace(target, "サ","ｻ");
target := Replace(target, "ザ","ｻﾞ");
target := Replace(target, "シ","ｼ");
target := Replace(target, "ジ","ｼﾞ");
target := Replace(target, "ス","ｽ");
target := Replace(target, "ズ","ｽﾞ");
target := Replace(target, "セ","ｾ");
target := Replace(target, "ゼ","ｾﾞ");
target := Replace(target, "ソ","ｿ");
target := Replace(target, "ゾ","ｿﾞ");
target := Replace(target, "タ","ﾀ");
target := Replace(target, "ダ","ﾀﾞ");
target := Replace(target, "チ","ﾁ");
target := Replace(target, "ヂ","ﾁﾞ");
target := Replace(target, "ッ","ｯ");
target := Replace(target, "ツ","ﾂ");
target := Replace(target, "ヅ","ﾂﾞ");
target := Replace(target, "テ","ﾃ");
target := Replace(target, "デ","ﾃﾞ");
target := Replace(target, "ト","ﾄ");
target := Replace(target, "ド","ﾄﾞ");
target := Replace(target, "ナ","ﾅ");
target := Replace(target, "ニ","ﾆ");
target := Replace(target, "ヌ","ﾇ");
target := Replace(target, "ネ","ﾈ");
target := Replace(target, "ノ","ﾉ");
target := Replace(target, "ハ","ﾊ");
target := Replace(target, "バ","ﾊﾞ");
target := Replace(target, "パ","ﾊﾟ");
target := Replace(target, "ヒ","ﾋ");
target := Replace(target, "ビ","ﾋﾞ");
target := Replace(target, "ピ","ﾋﾟ");
target := Replace(target, "フ","ﾌ");
target := Replace(target, "ブ","ﾌﾞ");
target := Replace(target, "プ","ﾌﾟ");
target := Replace(target, "ヘ","ﾍ");
target := Replace(target, "ベ","ﾍﾞ");
target := Replace(target, "ペ","ﾍﾟ");
target := Replace(target, "ホ","ﾎ");
target := Replace(target, "ボ","ﾎﾞ");
target := Replace(target, "ポ","ﾎﾟ");
target := Replace(target, "マ","ﾏ");
target := Replace(target, "ミ","ﾐ");
target := Replace(target, "ム","ﾑ");
target := Replace(target, "メ","ﾒ");
target := Replace(target, "モ","ﾓ");
target := Replace(target, "ャ","ｬ");
target := Replace(target, "ヤ","ﾔ");
target := Replace(target, "ュ","ｭ");
target := Replace(target, "ユ","ﾕ");
target := Replace(target, "ョ","ｮ");
target := Replace(target, "ヨ","ﾖ");
target := Replace(target, "ラ","ﾗ");
target := Replace(target, "リ","ﾘ");
target := Replace(target, "ル","ﾙ");
target := Replace(target, "レ","ﾚ");
target := Replace(target, "ロ","ﾛ");
target := Replace(target, "ヮ","ヮ");
target := Replace(target, "ワ","ﾜ");
target := Replace(target, "ヰ","ヰ");
target := Replace(target, "ヱ","ヱ");
target := Replace(target, "ヲ","ｦ");
target := Replace(target, "ン","ﾝ");
target := Replace(target, "Ａ","A");
target := Replace(target, "Ｂ","B");
target := Replace(target, "Ｃ","C");
target := Replace(target, "Ｄ","D");
target := Replace(target, "Ｅ","E");
target := Replace(target, "Ｆ","F");
target := Replace(target, "Ｇ","G");
target := Replace(target, "Ｈ","H");
target := Replace(target, "Ｉ","I");
target := Replace(target, "Ｊ","J");
target := Replace(target, "Ｋ","K");
target := Replace(target, "Ｌ","L");
target := Replace(target, "Ｍ","M");
target := Replace(target, "Ｎ","N");
target := Replace(target, "Ｏ","O");
target := Replace(target, "Ｐ","P");
target := Replace(target, "Ｑ","Q");
target := Replace(target, "Ｒ","R");
target := Replace(target, "Ｓ","S");
target := Replace(target, "Ｔ","T");
target := Replace(target, "Ｕ","U");
target := Replace(target, "Ｖ","V");
target := Replace(target, "Ｗ","W");
target := Replace(target, "Ｘ","X");
target := Replace(target, "Ｙ","Y");
target := Replace(target, "Ｚ","Z");
target := Replace(target, "Ａ","A");
target := Replace(target, "Ｂ","B");
target := Replace(target, "Ｃ","C");
target := Replace(target, "Ｄ","D");
target := Replace(target, "Ｅ","E");
target := Replace(target, "Ｆ","F");
target := Replace(target, "Ｇ","G");
target := Replace(target, "Ｈ","H");
target := Replace(target, "Ｉ","I");
target := Replace(target, "Ｊ","J");
target := Replace(target, "Ｋ","K");
target := Replace(target, "Ｌ","L");
target := Replace(target, "Ｍ","M");
target := Replace(target, "Ｎ","N");
target := Replace(target, "Ｏ","O");
target := Replace(target, "Ｐ","P");
target := Replace(target, "Ｑ","Q");
target := Replace(target, "Ｒ","R");
target := Replace(target, "Ｓ","S");
target := Replace(target, "Ｔ","T");
target := Replace(target, "Ｕ","U");
target := Replace(target, "Ｖ","V");
target := Replace(target, "Ｗ","W");
target := Replace(target, "Ｘ","X");
target := Replace(target, "Ｙ","Y");
target := Replace(target, "Ｚ","Z");
target := Replace(target, "ａ","a");
target := Replace(target, "ｂ","b");
target := Replace(target, "ｃ","c");
target := Replace(target, "ｄ","d");
target := Replace(target, "ｅ","e");
target := Replace(target, "ｆ","f");
target := Replace(target, "ｇ","g");
target := Replace(target, "ｈ","h");
target := Replace(target, "ｉ","i");
target := Replace(target, "ｊ","j");
target := Replace(target, "ｋ","k");
target := Replace(target, "ｌ","l");
target := Replace(target, "ｍ","m");
target := Replace(target, "ｎ","n");
target := Replace(target, "ｏ","o");
target := Replace(target, "ｐ","p");
target := Replace(target, "ｑ","q");
target := Replace(target, "ｒ","r");
target := Replace(target, "ｓ","s");
target := Replace(target, "ｔ","t");
target := Replace(target, "ｕ","u");
target := Replace(target, "ｖ","v");
target := Replace(target, "ｗ","w");
target := Replace(target, "ｘ","x");
target := Replace(target, "ｙ","y");
target := Replace(target, "ｚ","z");
target := Replace(target, "ａ","a");
target := Replace(target, "ｂ","b");
target := Replace(target, "ｃ","c");
target := Replace(target, "ｄ","d");
target := Replace(target, "ｅ","e");
target := Replace(target, "ｆ","f");
target := Replace(target, "ｇ","g");
target := Replace(target, "ｈ","h");
target := Replace(target, "ｉ","i");
target := Replace(target, "ｊ","j");
target := Replace(target, "ｋ","k");
target := Replace(target, "ｌ","l");
target := Replace(target, "ｍ","m");
target := Replace(target, "ｎ","n");
target := Replace(target, "ｏ","o");
target := Replace(target, "ｐ","p");
target := Replace(target, "ｑ","q");
target := Replace(target, "ｒ","r");
target := Replace(target, "ｓ","s");
target := Replace(target, "ｔ","t");
target := Replace(target, "ｕ","u");
target := Replace(target, "ｖ","v");
target := Replace(target, "ｗ","w");
target := Replace(target, "ｘ","x");
target := Replace(target, "ｙ","y");
target := Replace(target, "ｚ","z");
target := Replace(target, "ー","-");
target := Replace(target, "（","(");
target := Replace(target, "）",")");

以下の文字列ジェネレータが便利でした。(レイズソフトウェアさんのサイトへ)
http://lazesoftware.com/tool/strgen/