VB 读取TXT指定字符在第几行

Question

TXT里保存的内容是

11111
22222
33333
44444
55555

如何判断
444444在第4行， 并且显示到TEXT1.TEXT里
TXT内容是数字+字母，。 随机的

Answer 1

代码如下：

Dim TextLine
Dim cz
Dim i
cz = "444444" '要查找的内容
i=0
Open app.path & "\aa.txt" For Input As #1 ' 打开文件aa.TXT。
Do While Not EOF(1) ' 循环至文件尾。
i=i+1 '第几行
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
if TextLine=cz '这行内容如果是和要查找的内容一样
text1.text= cz & "在第" & i & "行出现！"
Loop
Close #1 ' 关闭文件。