Question

vb获取txt指定文字之间的字

开始
你好
aaa
123
结束
怎样把txt中“开始”后面“结束”上面的几行读取到text1中

Answer 1

用一个开关变量a 控制开始读取
Dim a As Boolean
Dim tmp As String
a = False
Open App.Path + "文件名.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, tmp
If tmp = "开始" Then a = True
If tmp = "结束" Then Exit Do
If a = True Then text1 = text1 & vbCrLf & tmp
Loop