新手问题，VB读取TXT的内容【高分】

显示全部楼层 · 2008-7-15 00:22:05

我的想法是，将txt每行内容与现有变量向核对，若正确则将下一行内容显示。
目前问题是怎样将内容加以核对，并将下一行显示
我是初学者，多有不懂，越详细越好。
谢谢。

千问 · 2008-7-15 00:22:05

Dim TextLine Open app.path & "\aa.txt" For Input As #1 ' 打开文件。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量,这里是赋给了TEXTLINE if a= TextLine then' 把读入的文本与A核对Line Input #1, TextLine '读入下一行print textline '在窗体上显示这一行end ifLoop Close #1 ' 关闭文件。