vbscript - 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