VB6.0中 如何读取一个TXT中特定的一行字？

Question

读取TXT中特定的一行字
1.sadgsdag
1.dgsgsdgds
2.shfdhfd
2.hfdhdfd

读出2.开头的

Answer 1

假设你这个TXT文件名是"D:\a.txt"
dim Str as string
Open "D:\a.txt" For Input As #1
Do Until EOF(1)
Line Input #1,Str '读出一整行
if left(Str,1)="2" then msgbox "找到一行啦，其结果是=" & Str '判断左边是否是2，是就显示
Loop
Close #1

更详细的还可以参考我的以下回答《关于如何读取TXT文件》：
http://zhidao.baidu.com/question/266494810.html?oldq=1

Answer 2

split(text1,vbcrlf)(行数) '从0开始是第一行