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

У меня есть выполнение пакетного файла, которое выкладывает файл текста/HTML. Пакетный файл вызывает некоторые разрывы строки в текстовом файле, которые не переводят очень хорошо в открытии файла в электронном письме. Я пытался читать на CScript для создания vbs сценария, который может считать текстовый файл и разделить разрывы строки, но не имел никакой удачи. Совет?

7
задан skaffman 4 June 2010 в 10:12
поделиться

1 ответ

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

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
12
ответ дан 6 December 2019 в 21:12
поделиться
Другие вопросы по тегам:

Похожие вопросы: