有没有什么工具可以自动把两行间的
首先 将你需要修改的东西 保存在一个文本文件里
(这里 假设是 C:\test。txt)
打开记事本 输入以下:
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting。 FileSystemObject")
Set objFile = objFSO。OpenTextFile("C:\Test。txt", ForReading)
Do Until objFile。 AtEndOfStream
strLine = objFile。Readline
strLine = Trim(strLi...全部
首先 将你需要修改的东西 保存在一个文本文件里
(这里 假设是 C:\test。txt)
打开记事本 输入以下:
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting。
FileSystemObject")
Set objFile = objFSO。OpenTextFile("C:\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:\Test。txt", ForWriting)
objFile。Write strNewContents
objFile。
Close
另存为 rename。vbs
只要运行 rename。vbs 就可以将 C:\test。txt文件中所有的空白行去掉
注意:这里的C:\test。txt只是举例说明,你需要根据实际情况 更改上面的两处代码
不要感谢我 给我加分吧。
收起