CScript e VBS rimuovere interruzioni di riga da file di testo

Question

Ho un file batch in esecuzione, che sputa fuori un file di testo/html. Il file batch sta causando alcune interruzioni di riga nel file di testo, che non si traducono molto bene ad aprire il file in una e-mail. Ho cercato di leggere su CScript per creare uno script VBS che può leggere il file di testo e nudo fuori le interruzioni di riga, ma non hanno avuto fortuna. Qualche consiglio?

Answer 1

Non sono sicuro di come si preferisce farlo, ma questo script prende un nome di file come argomento e scrive i risultati per lo stesso file.

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