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