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
Funktion zum Speichern von RecSet: – Ruslan