如何刪除文本文件中的換行符VBScript

Question

我有很多CSV文件，他們不能正確導入到Excel中，我只是問有沒有辦法使用VBScript刪除StrLine結尾處的換行符？

Answer 1

是的，您可以從CSV中刪除換行符。 ReadLine將自動從行的末尾刪除換行符：

Set fso = CreateObject("Scripting.FileSystemObject") 

filename = "C:\path\to\your.csv" 

f1 = fso.OpenTextFile(filename) 
f2 = fso.OpenTextFile(filename & ".tmp", 2, True) 
Do Until f1.AtEndOfStream 
    f2.Write f1.ReadLine 
Loop 
f1.Close 
f2.Close 

或者你可以讀取整個文件，並替換換行符：

Set fso = CreateObject("Scripting.FileSystemObject") 

filename = "C:\path\to\your.csv" 

text = fso.OpenTextFile(filename).ReadAll 
fso.OpenTextFile(filename, 2).Write Replace(text, vbNewLine, ",") 

然而，這可能是解決的症狀，而不是原因。我第二Ekkehard.Horner的評論：爲了更好的答案，你應該提供更多關於你的輸入文件的細節和導入失敗的方式。