Metin Dosyasından Satır Sonlarını Kaldırmak için CScript ve VBS

Question

Bir metin/html dosyasını yayan bir toplu iş dosyası çalıştırıyorum. Toplu iş dosyası, bir e-postada dosyayı açarken çok iyi çeviri yapılmayan metin dosyasında bazı satır sonlarına neden oluyor. Metin dosyasını okuyabilecek ve satır sonlarını kesebilecek ancak hiç şansı olmayan bir vbs komut dosyası oluşturmak için CScript'i okumaya çalışıyorum. Herhangi bir tavsiye?

Answer 1

Bunu nasıl yapmayı tercih ettiğinizden emin değilsiniz, ancak bu komut dosyası bir argüman olarak bir dosya adı alır ve sonuçları aynı dosyaya yazar.

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