vb 怎样去除文件里空行

[ajunajun]

一行一行的读文件，可怎样去除空行呢？

[goosen]

Private Sub Command1_Click()
    Dim strTemp As String
    Open "c:\1.txt" For Input As #1
    Open "c:\strFile.txt" For Output As #2
      While (Not EOF(1))
        Line Input #1, strTemp
        If Mid(Trim(strTemp), 1, 1) <> "" Then Print #2, strTemp
      Wend
    Close #1
    Close #2
    MsgBox "你的数据已保存到c:\strFile.txt中"
End Sub

[ajunajun]

补充：只去除中间的空行，末尾的空行不去除

[goosen]

什么意思啊...
你贴一段你的数据

12255 25545
ddff 256 225
是这样的数据吗

[SYSSZ]

Private Sub Command1_Click()
    Dim nextline, b, c As String
    Dim i, j, k, l As Integer
    Open "c:\01.txt" For Input As #1
    b = ""
    i = 0
    Do Until EOF(1)
    Line Input #1, nextline
    i = i + 1
    If Trim(nextline) <> "" Then
    b = b & nextline & vbCrLf
    j = i
    End If
      Loop
    Close #1
   k = i - j
   Select Case k
   Case 0
   b = Left(b, Len(b) - 2)
    Case Is > 0
    Do Until k - l = 0
    c = c & vbCrLf
    l = l + 1
     Loop
      b = Left(b, Len(b) - 2) & c
     End Select
    Open "c:\02.txt" For Output As #2
  Print #2, b
    Close #2
   Kill "c:\01.txt"
   Name "c:\02.txt" As "c:\01.txt"
End Sub

[of123]

判断一下，去除所有空行。读到 EOF 后补一个空行。

[白发程序猿]

这么多星级专家回复了
我就来顶顶好了