Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objInput = objFSO.OpenTextFile("text.txt", ForReading)
Set objOutput = objFSO.OpenTextFile("out.txt", ForWriting, True)
'変換用データ
fullKana = Array("ヴ","ガ","ギ","グ","ゲ","ゴ","ザ","ジ","ズ","ゼ","ゾ","ダ","ヂ","ヅ","デ","ド"," バ","ビ","ブ","ベ","ボ","パ","ピ","プ","ペ","ポ","゛","。","「","」","、","・"," ヲ","ァ","ィ","ゥ","ェ","ォ","ャ","ュ","ョ","ッ","ー","ア","イ","ウ","エ","オ","カ","キ"," ク","ケ","コ","サ","シ","ス","セ","ソ","タ","チ","ツ","テ","ト","ナ","ニ","ヌ","ネ","ノ"," ハ","ヒ","フ","ヘ","ホ","マ","ミ","ム","メ","モ","ヤ","ユ","ヨ","ラ","リ","ル","レ","ロ"," ワ","ン","゜","")
halfKana = Array("ヴ","ガ","ギ","グ","ゲ","ゴ","ザ","ジ","ズ","ゼ","ゾ","ダ","ヂ"," ヅ","デ","ド","バ","ビ","ブ","ベ","ボ","パ","ピ","プ","ペ"," ポ","゙","。"," 「","」","、","・","ヲ","ァ","ィ","ゥ","ェ","ォ","ャ","ュ","ョ","ッ","ー","ア","イ","ウ"," エ","オ","カ","キ","ク","ケ","コ","サ","シ","ス","セ","ソ","タ","チ","ツ","テ","ト","ナ"," ニ","ヌ","ネ","ノ","ハ","ヒ","フ","ヘ","ホ","マ","ミ","ム","メ","モ","ヤ","ユ","ヨ","ラ"," リ","ル","レ","ロ","ワ","ン","゚")
'regExオブジェクトの準備
Set regEx = New RegExp
regEx.Global = True
'入力ファイル終端まで処理
Do Until objInput.AtEndOfStream
strLine = objInput.ReadLine ' 入力ファイルを1行読み込む
'半角カナを全角カナに変換する
For cnt=LBound(halfKana) TO UBound(halfKana)
regEx.Pattern = halfKana(cnt)
strLine = regEx.replace(strLine, fullKana(cnt))
Next
objOutput.WriteLine(strLine)
Loop
objInput.Close
objOutput.Close
書いたはいいけれど、xyzzyで好きなように変換できる事実。