2010-11-30 16 views
0

Ich möchte Daten aus DB2 Mainframe, die IBM Codepage 285 (EBCDIC-Codepage) mit VBScript zu extrahieren, aber diese Datei speichern (XML-Daten) zeigt es falsch angezeigt. Wie kann ich vbscript RecSet von 285 nach ASCII oder UTF-8 konvertieren, bevor die Datei gespeichert wird?DB2 Extract mit VBScript

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 

'' Set objTextFile = objFSO.CreateTextFile (sFilePath, True, True) '' verwendet, um UTF8 zu konvertieren, als ob nur ein wahrer Fehler erscheint, wenn

+0

Funktion zum Speichern von RecSet: – Ruslan

Antwort