vbscript - テキスト ファイルから改行を削除する CScript と VBS

Question

text/html ファイルを吐き出すバッチ ファイルを実行しています。バッチ ファイルが原因でテキスト ファイルに改行が発生しており、電子メールでファイルを開く際にうまく変換されません。テキストファイルを読み取って改行を削除できるvbsスクリプトを作成するためにCScriptを読み込もうとしましたが、うまくいきませんでした。何かアドバイス？

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