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