2010-03-10 18 views
6

Ich habe eine Batch-Datei ausgeführt, die eine Text/HTML-Datei ausspuckt. Die Stapeldatei verursacht einige Zeilenumbrüche in der Textdatei, die beim Öffnen der Datei in einer E-Mail nicht sehr gut umgesetzt werden. Ich habe versucht, auf CScript zu lesen, um ein VBS-Skript zu erstellen, das die Textdatei lesen und die Zeilenumbrüche ausstreichen kann, aber kein Glück hatte. Irgendein Rat?CScript und VBS zum Entfernen von Zeilenumbrüchen aus Textdatei

Antwort

10

Nicht sicher, wie Sie es vorziehen würden, aber dieses Skript nimmt einen Dateinamen als Argument und schreibt die Ergebnisse in die gleiche Datei.

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 
Verwandte Themen