CScript和VBS从文本文件中删除换行符

Question

我有一个批处理文件正在运行，它会吐出一个text / html文件。批处理文件在文本文件中导致一些换行符，这些换行符在打开电子邮件中的文件时无法很好地转换。我一直试图阅读CScript来创建一个vbs脚本，可以读取文本文件并删除换行符，但没有运气。有什么建议吗？

Answer 1

不确定您喜欢这样做，但此脚本将文件名作为参数并将结果写入同一文件。

Const ForReading = 1, ForWriting = 2
Dim fs, txt, contents

Set fs = CreateObject("Scripting.FileSystemObject")
Set txt = fs.OpenTextFile(WScript.Arguments(0), ForReading)
contents = txt.ReadAll
txt.Close

contents = Replace(contents, vbCr, "")
contents = Replace(contents, vbLf, "")

Set txt = fs.OpenTextFile(WScript.Arguments(0), ForWriting)
txt.Write contents
txt.Close