我有一个文本文件,我使用命令提示符导入到访问表中。问题是此文本文件的最后一行有一个空行。任何人都可以为我提供一个脚本,删除文件末尾的空行,以便我可以完成自动化过程。我使用的是Windows 2000平台。
答案 0 :(得分:4)
答案 1 :(得分:3)
答案 2 :(得分:-1)
Here是一个从文本文件中删除空行的脚本。它是为Windows 2000编写的。
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\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:\Scripts\Test.txt", ForWriting)
objFile.Write strNewContents
objFile.Close