如何使用vbscript将LF转换为文本文件中的CRLF？

Question

我有一个由Mac程序生成的CSV文件（遗憾的是，编码灵活性很小），它在行尾写入LF。然后一个vbscript就像这样读取这个文件：

Set objTextFile = fso.OpenTextFile("the_file.csv", 1)
lineItemString = objTextFile.Readline

但是，由于它在行的末尾查找CRLF，lineItemString包含整个文件的文本。由于这是一个日常程序，我不想添加使用某些实用程序的临时步骤，该程序正确地将所有行结尾转换为CRLF。

有没有办法通过在我的vbscript中进行此转换来避免这种情况？

提前致谢！

Answer 1

这将用CRLF替换字符串中的每个LF：

Replace(str, vbLf, vbCrLf)

根据您希望如何处理文件，可能更容易阅读整个文件并按vbLf拆分内容。

Set objTextFile = fso.OpenTextFile("the_file.csv", 1)
For Each line In Split(objTextFile.ReadAll, vbLf)
  ' do stuff
Next