VB中如何提取一TXT文档中的数据,并将数据放在数组中。
发布网友
发布时间：2023-08-22 22:16
共1个回答
热心网友
时间：2023-10-24 18:10
'可以在提取时，在sql语句中 设置条件，返回符合条件的数据
'程序中引用Microsoft ActiveX Data Objects 2.8 Library
'本例中d:\为存放数据文本文件路径，ddd.txt为数据文件
'在文本文件同路径下新建文本文件，文件名为：Schema.ini，内容为：
[ddd.txt]----数据文件名
ColNameHeader=False----无字段名
Format=TabDelimited-----使用tab为分隔符
'以下为vb代码：
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim SqlStr As String
Dim i As Integer
Set Cnn = New ADODB.Connection
Set Rst = New ADODB.Recordset
‘ado的文本文件连接字符串：
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\;Extended Properties=""text;HDR=No;FMT=TabDelimited"""
Cnn.Open
'查询SQL语句，其中where not F2 is null and not F3 is null 为剔除你前两行，可以在这里设置其他限定条件（无字段名时，系统默认为F1、F2、F3。。。）：
SqlStr = "select * from ddd.txt where not F2 is null and not F3 is null"
Rst.Open SqlStr, Cnn, adOpenStatic, adLockOptimistic, adCmdText
If Rst.RecordCount > 0 Then
For i = 0 To Rst.RecordCount - 1
’这里给你的数组赋值
Debug.Print Rst.Fields(“f1"), Rst.Fields("f2"), Rst.Fields("f3")
Rst.MoveNext
Next
End If
Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing
