VB删除txt文件中的空行？

Question

处理前
123

456

000
处理后
123
456
000

Answer 1

假设你的文件名为：1.txt存放在C盘；

添加1个按钮，代码如下：
Option Explicit

Private Sub Command1_Click()
'读文件
Dim Filetxt As String
Dim Linetxt As String
Filetxt = ""

Open "C:\1.txt" For Input As #1 '打开文件读。
Do While Not EOF(1) '循环至文件尾。
Input #1, Linetxt '将数据读入变量。
If Linetxt <> "" Then '如果非空行，就保存到变量
Filetxt = Filetxt & Linetxt & vbCrLf
End If
Loop
Close #1

'写文件
Open "C:\1.txt" For Output As #1 '打开文件写
Print #1, Filetxt
Close #1

End Sub
基本思路与方法：
1，逐行读取原文件数据，若数据非空行，就连接起来保存到变量；若为空行就舍弃。
2，将保存在变量里的非空数据，写到原文件（覆盖原数据）。

Answer 2

dim data,str as string
data=""
open "filename.txt" for input as #1
do
line input #1,str'从#1读（下）一行到str中
if str &lt;&gt; vbnullstring then'遇到的不是空字符串
data=date &amp; str &amp; vbcrlf'把data跟读取到的str串起来
end if
loop until eof(1)
close #1
open "filename.txt" for output as #2
print #2,data
close #2
'凭着记忆写的，有错请指出