excel - 如何删除文本文件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 的评论：为了获得更好的答案，您绝对应该提供有关输入文件和导入失败方式的更多详细信息。