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

Question

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

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

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

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

提前致谢！

score 4 · Accepted Answer

这将用 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

1 回答 1