UC知道VB 删除TEXT行
来源：百度知道 编辑：UC知道 时间：2024/05/22 00:35:14
Private Sub Timer2_Timer()
If i = 0 Then '当第一次按下按钮的时候，程度需要截取字符串等操作，所以单独列出来。
If Right(Text1.Text, 2) <> vbNewLine Then Text1.Text = Text1.Text & vbNewLine
A() = Split(Text1.Text, vbNewLine) '这里用Chr(13) & Chr(10)也可以的。
Text2.Text = A(0)
Else '当第二次以后按下按钮，执行以下操作！
If i = UBound(A) Then
Timer2.Interval = 0
MsgBox "已经读到text1的最后一行了!"
Text1.Text = Text3.Text
Exit Sub
End If
Text2.Text = A(i)
End If
i = i + 1
这段代码是TEXT1读到TEXT2的
我想读每一行都在TEXT1中删除掉
If i = 0 Then '当第一次按下按钮的时候，程度需要截取字符串等操作，所以单独列出来。
If Right(Text1.Text, 2) <> vbNewLine Then Text1.Text = Text1.Text & vbNewLine
A() = Split(Text1.Text, vbNewLine) '这里用Chr(13) & Chr(10)也可以的。
Text2.Text = A(0)
Else '当第二次以后按下按钮，执行以下操作！
If i = UBound(A) Then
Timer2.Interval = 0
MsgBox "已经读到text1的最后一行了!"
Text1.Text = Text3.Text
Exit Sub
End If
Text2.Text = A(i)
End If
i = i + 1
这段代码是TEXT1读到TEXT2的
我想读每一行都在TEXT1中删除掉
Private Sub Timer2_Timer()
If i = 0 Then '当第一次按下按钮的时候，程度需要截取字符串等操作，所以单独列出来。
If Right(Text1.Text, 2) <> vbNewLine Then Text1.Text = Text1.Text & vbNewLine
a() = Split(Text1.Text, vbNewLine) '这里用Chr(13) & Chr(10)也可以的。
Text2.Text = a(0)
Else '当第二次以后按下按钮，执行以下操作！
If i = UBound(a) Then
Timer2.Interval = 0
MsgBox "已经读到text1的最后一行了!"
Text1.Text = Text3.Text
Exit Sub
End If
Text2.Text = a(i)
End If
Text1.Text = Replace(Text1.Text, a(i) & vbNewLine, "") '**读每一行都在TEXT1中删除掉
i = i + 1
End Sub
每处理完一行后执行一次 Text1.Text = Replace(Text1.Text,A(i),"")就行了