vbscriptを使用したDB2抽出

Question

IBMコードページ285（EBCDICコードページ） をvbscriptで使用するdb2メインフレームからデータを抽出したいが、このファイル（xmlデータ）を保存すると間違った方法で表示される。 ファイルを保存する前にvbscript RecSetを285からASCIIまたはUTF-8に変換するにはどうすればよいですか？

Function used for saving file: 
Function WriteFileText(sText, sFileName) 
    Dim sFilePath 
Dim objFSO 'As FileSystemObject 
Dim objTextFile 'As Object 
    Dim i 
    Dim arr 

sFilePath = "c:\jdk1.3\temp\" & sFileName 
Const ForWriting = 2 


Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objTextFile = objFSO.CreateTextFile(sFilePath, True, True) 

a = 0 

for i=1 to len(sText) 
s2Text = right(left(sText,i),1) 
if i > 54 and asc(s2Text) = 63 then a = a + 1 else objTextFile.Write (s2Text) end if 
next 

objTextFile.Close 

'' objTextFile = objFSO.CreateTextFile設定します（sFilePath、真、真） ''

Answer 1

がHow to convert between ASCII and EBCDIC character codesを参照してくださいファイルへの書き込み時に一つだけ真のエラーが表示されたかのように、UTF8に変換するために使用されます。 VBで書かれていますが、VBScriptに変換するのは簡単です。