如何删除文本文件中的换行符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的评论：为了更好的答案，你应该提供更多关于你的输入文件的细节和导入失败的方式。