Question

在我的文本文件下面：

"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

Answer 1

你试过＆＃34;修剪＆＃34;功能？以下是参考：http://www.w3schools.com/asp/func_trim.asp

编辑：修剪工作在一个字符串中。如果你的文件不是太大，你可以用字符串读取它，修剪它并再次写入文件。文件上这些消隐空间的一个可能原因可能是因为您正在编写文件，即添加字符串而不修剪它们。另一个方法是在空白区的开头放置一个标记，然后在那时分割文件。

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

1 个答案: