有一个文件格式如下
Z1 123 345 3466
1234 345 345353 46346 3636 37347

Z2 453125 52 252 W36234 262 363 12
2542 23562 2152
2542 2363 236
2623 477

Z3 45256 452 263
5225 262

Z4 42523 632462 73276 5737
626 763 753 734 74 236
6236 6236 37 37 27 62R
236 3654 63 265 65234

Z5 5213123 564236 623 124 51
5124 6423 653 753 62
532 52463



我想对上面文件操作
找到将Z3,Z4中的数据找出
放在另一个文本文件里


非常谢谢

line模式读取文本，，判断前2个字符是不是Z3、Z5（一个设置起点一个设置终点）

谢谢
帮我写一段可以吗??
万分感激

谢谢
帮我写一段可以吗??

Option Explicit

Private Sub Command1_Click()
Open "d:\slorelee\桌面\1.txt" For Input As #1

Dim Read As Boolean
Read = False '也可以不要
Dim tep, WantStr As String
Do Until EOF(1)
Line Input #1, tep
If Left$(tep, 2) = "Z3" Then Read = True
If Left$(tep, 2) = "Z5" Then Text1 = WantStr: Exit Sub
If Read = True Then WantStr = WantStr & tep & vbCrLf
Loop
End Sub