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

Question

我有一个批处理文件正在运行，它会输出一个文本/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