VB中如何提取数据中指定的一段

来源:百度知道 编辑:UC知道 时间:2024/05/30 08:14:47
文件格式如下:
...
W0
...
...
...
L0
...

如果我希望提取出W0-L0之间各行的数据,应该怎么写呀?本人菜鸟,请高手详细说明下,谢谢!
谢谢一楼的回答,不过你这个程序是不是连W0前面 L0后面的数据都取出来了?

一行一行的读 读到W0了 开始记录 然后再继续一行行的读啊 读到L0就结束...

Dim tmpString As String
Open "c:\123.txt" For Input As #1
Do Until EOF(1)
Line Input #1, tmpString
If UCase(tmpString) = "W0" Then
Do
Line Input #1, tmpString
If UCase(tmpString) = "L0" Then Exit Do
MsgBox tmpString
Loop
End If
Loop
Close #1

open "c:\1.txt" for input as #1

do while ucase(r)<>"W0"
line input #1, r
loop

do while ucase(r)<>"L0"
line input #1,r
print r
loop
close #1