CScript и VBS для удаления разрывов строк из текстового файла - PullRequest
Новая
       16

CScript и VBS для удаления разрывов строк из текстового файла

7 голосов
/ 11 марта 2010

У меня запущен командный файл, который выплевывает текстовый / html файл. Пакетный файл вызывает некоторые разрывы строк в текстовом файле, которые не очень хорошо переводятся при открытии файла в электронном письме. Я пытался прочитать на CScript, чтобы создать скрипт VBS, который может читать текстовый файл и вырезать разрывы строк, но безуспешно. Любой совет?

1 Ответ

11 голосов
/ 04 июня 2010

Не знаю, как вы предпочитаете это делать, но этот сценарий принимает имя файла в качестве аргумента и записывает результаты в тот же файл. 

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
...