如何使用VBScript删除文本文件末尾的空行？

下面是我的文本文件：

"LIRRR 1M",.412900,02/08/2016
"LIRRR 3M",.222700,02/08/2016
"10YRCMT",1.860000,02/08/2016

我的文本文件末尾有空白行。我想从空白处清理我的文件。 添加了我使用的代码，但是我的代码没有删除文件末尾的空白。 下面是我创建的代码：

Const ForReading = 1

Const ForWriting = 2


Set objFSO = CreateObject(“Scripting.FileSystemObject”)

Set objFile = objFSO.OpenTextFile(“C:\Users\Desktop\Test.txt”, ForReading)


Do Until objFile.AtEndOfStream

    strLine = objFile.Readline

    strLine = Trim(strLine)

    If Len(strLine) > 0 Then

        strNewContents = strNewContents & strLine & vbCrLf

    End If

Loop
objFile.Close


Set objFile = objFSO.OpenTextFile(“C:\Users\Desktop\Test2.txt”, ForWriting)

objFile.Write strNewContents

objFile.Close

你试过“修剪”功能吗？以下是参考资料：

编辑：

---

Trim在一个字符串中工作。若你们的文件不是太大，你们可以在一个字符串中读取它，修剪它，然后再次写入文件。文件中出现这些空格的一个可能原因是，您正在编写文件，即添加字符串，而没有对其进行修剪。另一个方法是在空白开始时放一个标记，然后在那个点拆分文件。

你有没有试图解决这个问题？找出每个空白行上的所有字符。它们可能是选项卡、空间或硬空间。每一行看起来都是空白的，但包含的字符使行看起来像有内容一样。是的，我尝试了修剪功能，但它对我不起作用