如何使用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