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