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()