VB中如何按行读取txt文档中的数据，文档中的一行数据即为一条记录。

Question

文档中的记录格式如下所示（文档中有大量这种记录）：
"26",11/16/2010 18:06:34,+08:00,54,,0.0,0,,,,,,,,,777039.6,,,,,,,,
“25",11/16/2010 18:06:37,+08:00,54,,0.0,0,,,,,,,,,779500.3,,,,,,,,
如何把符合特定条件（如第一个字段值为"25"且第二个字段的值为”11/16/2010 8:06:37“）的那一行记录读取出来。
同时，请问能否将帅选出来的多个记录的特定字段（有些字段不需要显示出来的）在DataGrid（数据网格控件）中显示出来。

Answer 1

很简单的，读取出数据的方法
Dim s As String
Dim t() As String
Open "C:\data.txt" For Input As #1
Do While Not EOF(1)
Line Input #1,s
t=Split(s,",")
Msgbox "第一个字段为" & t(0) '这里是第一个字段，如25或26
Msgbox "提取出的数据为" & t(1) ' 这里是第二个字段就是11/16/2010 8:06:37
Loop
Close #1

DataGrid是数据库控件，也要指定一个数据库文件的。而前面那个data.txt文件相当于也是一种数据文件了。所以如果想要在DataGrid，需要把data.txt里的数据填入到比如Access数据库文件里才行。

DataGrid用法十分简单，直接选择Data1的属性DataBaseName，然后指定一个*.mdb的Access数据库文件；在RecordSource属性选数据表名。然后拽个Text1到Form上，并在属性DataSource里选Data1；在属性DataField里选择数据库里的字段。
现在DataGrid控件已经与Text1相互绑定，更改Text1里的内容就是更改数据库里的内容，很简单吧，一句代码没写就实现了。

数据库操作其它功能都有代码提示，输入
data1.Recordset.就能看到里面有很多操作数据库方法的代码提示了
比如data1.Recordset.MoveNext 就是跳到下一条记录，这时Text1里会显示相应的字段的内容。当然其它字段都不显示，只有与Text1绑定的字段会显示出来

Answer 2

你导入EXCEL在转化成数据库，在用DataGrid显示追问

txt数据库随时会更新，转化成excel数据库不现实