怎样提取每段最后一行呢 vb

Question

比如说 有若干组文字,提取每组的最后一行,比如说文本框1=

MPG何如取提
格式的录像,录像
的内容太长，想从
中提

如果没有视频
编辑软件，用格式
工厂也行。把

到要剪的切

地方设为开始，
到要结束的地方停止，

保存就行了。 ...sv
Converter这个好用，但
注册要100...

时间点拉
解的决疑问了您

---------提取后,文本框2=
中提
工厂也行。把
到要剪的切
到要结束的地方停止，
注册要100...
解决了您的疑问
我这个办法好像也行.呵呵
Private Sub Command1_Click()
b = Split(Text1.Text, vbCrLf + vbCrLf)
For i = 0 To UBound(b)
a = Split(b(i), vbCrLf)
Text2.Text = Text2.Text + vbCrLf + a(UBound(a))
Next

Answer 1

'我有个更好的办法。不用兴建再删除txt,方法:窗体新建text1,text2，设置多行和垂直滚动条，加一个按钮控件，代码如下。（把你的若干文字复制到text1,再按command1结果就会显示到text2）

Private Sub Command1_Click()
Text2 = ""
x = Split(Text1, vbCrLf)
For i = 0 To UBound(x)
If x(i) = "" Then Text2 = Text2 & x(i - 1) & vbCrLf
Next i
End Sub

Answer 2

Dim b
Private Sub Command1_Click()
Open "d:\temp.txt" For Output As #1
Print #1, Text1
Close

Open "d:\temp.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
If a = "" Then Text2 = Text2 & vbCrLf & b
b = a
If EOF(1) Then Text2 = Text2 & vbCrLf & b
Loop
Close
Kill "d:\temp.txt"
End Sub

Answer 3

text1中为你的文本，text2中为提取的文本，添加一个command1
代码如下：
Dim x As Integer
Dim y As Integer
Dim b(100) As String
Private Sub Command1_Click()
Open "d:\temp.txt" For Output As #1
Print #1, Text1
Close
Open "d:\temp.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
x = x + 1
b(x) = a
If a = "" Then
Text2.Text = Text2 & vbCrLf & b(x - 1)
For y = 0 To 100
b(y) = ""
Next y
End If
Loop
Text2.Text = Right(Text2.Text, Len(Text2.Text) - 1)
Close
Kill "d:\temp.txt"
End Sub