用VB删除txt文件最后一行

Question

因为我从Exce表中复制文件到text1中，最下面会有一个空的行。
有空行时删除
没有空行就不删除，用VB怎么去最后一个空行。
请在家帮帮忙!!!!

Answer 1

'首行空行，是InStr(s, vbCrLf)=1
'末行空行，是InStrRev(s, vbCrLf)=Len(s)-1
'其他行出现空行，是InStr(s, vbCrLf & vbCrLf)＞0
Private Sub Command1_Click()
Dim s As String, b As Boolean
s = Text1
Do Until InStr(s, vbCrLf & vbCrLf) = 0
s = Replace(s, vbCrLf & vbCrLf, vbCrLf)
b = True
Loop
If InStrRev(s, vbCrLf) = Len(s) - 1 Then s = Left(s, Len(s) - 2): b = True
If InStr(s, vbCrLf) = 1 Then s = Right(s, Len(s) - 2): b = True
If b Then Text1 = s
s = ""
End Sub

'只去除最后一行是空行
Private Sub Command2_Click()
If InStrRev(Text1, vbCrLf) = Len(Text1) - 1 Then Text1 = Left(Text1, Len(Text1) - 2)
End Sub

Answer 2

把文件一行一行 读出来，判断是不是空行，如果是，就放弃，不是，就存到新文件。

Answer 3

检测到 vbctrl 就停止加载 用mid函数截取vbctrl前面的字符串。