CScript y VBS para eliminar saltos de línea del archivo de texto

Question

Tengo un archivo por lotes en ejecución que escupe un archivo de texto/html. El archivo por lotes está causando algunos saltos de línea en el archivo de texto, que no se traducen muy bien al abrir el archivo en un correo electrónico. He intentado leer en CScript para crear un script vbs que puede leer el archivo de texto y eliminar los saltos de línea, pero no ha tenido suerte. ¿Algún consejo?

Answer 1

No estoy seguro de cómo preferiría hacerlo, pero este script toma un nombre de archivo como argumento y escribe los resultados en el mismo archivo.

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