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