Читать строку с ASCII

Question

Мне нужно прочитать текстовый файл и скопировать в другой файл, но некоторая строка содержит ASCII непечатный код как NUL, ETX, SOH, так далее.

я использую ReadLine в этом коде для копирования файла и все строки копируются, но не ASCII строки. Есть способ скопировать и эту строку?

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

Answer 1

Похоже, вам нужно указать параметр формата ASCII при открытии файла (без системных значений по умолчанию -2).

 Set ts = file.OpenAsTextStream(1,0)

проверить для полной справки:

MSDN: метод OpenTextFile

MSDN: метод CreateTextFile

Параметр пропуска Unicode в выходном файле должен быть в порядке - предполагается его ASCII.