如何使用adodb读取文本文件？

harrisondan2000

1. 附件中是文本文件，请问如何使用adodb读取这个文本文件？我自己尝试写了几次不成功。
2. 我希望可以在读取的同时执行select 姓名，工单，工单所在群 from xxxx.txt where 对应领导=‘AB’，请问可以实现吗？

望大神指导小白！万分感谢！

duquancai

可以                    但是要逗号分隔的！        用正则表达式 或者 split 。。。。。。。。。。。。。。。。。。。。。。。。。。

duquancai

1. Private Function getArr(ByVal S$) As Variant
   
2.     Dim re As Object, mt, n&, arr(), i&
   
3.     Set re = CreateObject("VBScript.Regexp")
   
4.     re.Global = True: re.Pattern = "(\S+)\s+AB\s+(\S+)\s+(\S+)"
   
5.     If re.Execute(S).Count = 0 Then Exit Function
   
6.     ReDim arr(1 To re.Execute(S).Count, 1 To 3)
   
7.     For Each mt In re.Execute(S)
   
8.         n = n + 1
   
9.         For i = 0 To 2: arr(n, i + 1) = mt.submatches(i): Next
   
10.     Next
    
11.     getArr = arr
    
12. End Function
    
13. Sub main()
    
14.     Dim arr, S$
    
15.     S = "姓名：  对应领导：  工单：  工单所在群" & vbCrLf
    
16.     S = S & "山依萱  AB  25137129171 3456" & vbCrLf
    
17.     S = S & "出元基  AC  13496401657 3356" & vbCrLf
    
18.     S = S & "红若芳  AD  8572498961  5346" & vbCrLf
    
19.     S = S & "贺寒松  AB  31070877046 3348" & vbCrLf
    
20.     S = S & "九彗云  AC  70157189083 2348" & vbCrLf
    
21.     S = S & "百里鹏天    AD  77571850783 3456" & vbCrLf
    
22.     S = S & "锐沈思  AB  62913168343 3356"
    
23.     arr = getArr(S)
    
24.     If Not IsArray(arr) Then Exit Sub
    
25.     Range("a2").Resize(UBound(arr), 3) = arr
    
26. End Sub

复制代码

harrisondan2000

duquancai 发表于 2018-9-24 12:45

好的， 我试试正则的用法。您这边能给一个adodb的方式吗？自己正在看这一块。所以想试试这种方法，和FSO做一个对比。

duquancai

harrisondan2000 发表于 2018-9-24 13:23
好的， 我试试正则的用法。您这边能给一个adodb的方式吗？自己正在看这一块。所以想试试这种方法，和FSO ...

没看2楼 的回复吗？ 你这个附件 没法 给出adodb的方式！！！！