Ich brauche eine Textdatei und kopieren Sie in anderer Datei zu lesen, aber einige Zeilen enthalten ASCII nicht druckbare Codes als NUL
, ETX
, SOH
usw.liest Zeichenfolge mit ASCII
I ReadLine
in diesem Code verwenden, kopieren Datei und alle Zeilen werden kopiert, aber keine ASCII-Zeile. Es gibt eine Möglichkeit, auch diese Zeile zu kopieren?
Set file = fso.GetFile(FileNameIn)
Set OutFile = fso.CreateTextFile(FileNameOut, True)
Set ts = file.OpenAsTextStream(1, -2)
Do Until ts.AtEndOfStream
strLine = ts.ReadLine
OutFile.WriteLine(strLine)
Loop
Klingt für mich wie Sie eine Binärdatei haben, keine ASCII-Datei. Wenn das der Fall ist, lesen Sie [diese Frage] (http://StackOverflow.com/q/6060529/1630171) zum Umgang mit Binärdateien in VBScript. –
BTW, dumme Frage: Warum kopierst du nicht einfach (https://msdn.microsoft.com/en-us/library/e1wf9e7w%28v=vs.84%29.aspx) die Datei, da du anscheinend Willst du das nicht ändern? –
Weil ich es ändern möchte. Ich muss einige Saiten mit anderen ersetzen, und das Ersetzen funktioniert perfekt. Aber wenn ich die BITMAP-Zeichenfolge bekomme, bekomme ich Fehler 5 – Vardar