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

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

vbscript

Vbscript CScript和VBS从文本文件中删除换行符,vbscript,line-breaks,wsh,Vbscript,Line Breaks,Wsh,我有一个批处理文件正在运行，它会输出一个text/html文件。批处理文件导致文本文件中出现一些换行，在电子邮件中打开文件时，这些换行不能很好地转换。我一直在尝试阅读CScript来创建一个vbs脚本，它可以读取文本文件并去除换行符，但没有成功。有什么建议吗？不确定您希望如何操作，但此脚本将文件名作为参数，并将结果写入同一文件 Const ForReading = 1, ForWriting = 2 Dim fs, txt, contents Set fs = CreateObject("Sc

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

不确定您希望如何操作，但此脚本将文件名作为参数，并将结果写入同一文件

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