用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 Method

MSDN: CreateTextFile Method

在输出文件中省略unicode参数应该没问题 - 假定它的ASCII。