VBScript удалить перевод строки

Question

У меня есть HTML-страница с одним или несколькими символами новой строки после </html>.Мой файл VBScript может найти замену строк с пустыми.Но, похоже, OpenTextFile снова ставит новую строку в конце.Помогите!

'Pulled this from the InterWebs
Const ForReading = 1 Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("a.html", ForReading)
strText = objFile.ReadAll
'Wscript.Echo strText
objFile.Close

strNewText = Replace(strText, "</html>" & vbCrlf, "</html>")
Set objFile = objFSO.OpenTextFile("a.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

Answer 1

Вместо objFile.WriteLine strNewText используйте objFile.Write strNewText.Это запишет файл без новой строки в конце.

Кстати, еще один способ удаления новой строки после того, как ваш тег </html> будет strNewText = Trim(strText) вместо использования Replace()

Answer 2

Это может помочь:

Объект TextStream имеет следующие важные методы для записи в текстовые файлы:

• Запись (строка) - записывает строку в открытый текстовый файл.
• WriteLine (строка) - записывает строку в текстовый файл и завершает ее символом новой строки.
• WriteBlankLines (lines) - записывает указанное количество символов новой строки.

Если вам не нужен перевод строки в конце, используйте

objFile.Write strNewText

вместо

objFile.WriteLine strNewText

Answer 3

Ваш код в основном правильный.Это не OpenTextFile, который добавляет новую строку, это WriteLine.Если вы замените это на Write, оно будет работать так, как вы ожидаете.