字典内容如图：


除了将字典内容全部读取，分解成数组。FOR……Next循环比较。这种方法太慢。

有没有更快更方便的查询方法。

请赐代码，谢谢。

比如我要查询：者 的五笔编码。

[此贴子已经被作者于2022-9-2 16:41编辑过]

排序 ，对分法查找 。
--------------
只是单字，还有一种方法
多用点内容，把所有的字根据内码换算成下标，
如，先转正数，然后 减于 啊 的数值，换算成0-N
读取时，每读到一个，按上面换算，换算结果当作下标，保存编码

使用时，按上面换算，当作下标 ，直接读编码
---------------
嗯，不用查表了。

你这种方法不实用。

将文本作为数据库进行检索，应该很快。

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

strPathToTextFile = "C:\Scripts\"
strFile = "Test.txt"

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & strPathtoTextFile & ";" & _
          "Extended Properties=""text;HDR=NO;FMT=Delimited"""

objRecordSet.Open "Select DISTINCT * FROM " & strFile, _
    objConnection, adOpenStatic, adLockOptimistic, adCmdText
………………………………
……………………

楼主，用这个思路来个完整的代码，并将写成函数式的，看看速度快多少，我有个文件4000多行，也是需要每次循环打开TXT一个个查找到了数据再返回，如果有100个需要查找项，这样就要打开TXT一百快，这样好慢。。感觉你的这种思路非常好。

像我这样

你的字典前是一个汉字单字，查询的值不能有汉字（除汉字外都可以）。我才能提供代码。

因为我的代码只能应用于我的场景。

附档有4000+行，弄个涵数，只要一输代码如“600080”，这行的数据就直接带出来了

将文件全部内容切分为数组，每个数组值为一行。数组常驻内存，避免多次重复读写文件。

找到相对应的数组值就出来了。

常驻内存会不会影响使用速度,帮写个我来测试看看

百度上复制粘贴过来的，参考一下

他是查找数组的值，非遍历递归方法。

有序数的快速查找方法(非递归法)
Private Sub Command1_Click()
Dim dd(27) As Long
Dim aa As Long
Dim v As Long
dd(0) = 75
dd(1) = 80
dd(2) = 85
dd(3) = 90
dd(4) = 95
dd(5) = 100
dd(6) = 106
dd(7) = 112
dd(8) = 118
dd(9) = 125
dd(10) = 132
dd(11) = 140
dd(12) = 150
dd(13) = 160
dd(14) = 180
dd(15) = 200
dd(16) = 224
dd(17) = 250
dd(18) = 280
dd(19) = 315
dd(20) = 355
dd(21) = 400
dd(22) = 450
dd(23) = 500
dd(24) = 560
dd(25) = 630
dd(26) = 710
dd(27) = 800
aa = 280 '要查找的数字
v = NumFind(dd, aa) '调用查找函数
If v = -1 Then
MsgBox "没发现要查找的数据", vbExclamation, "提示"
Else
MsgBox "当前要查找的：" & aa & " 值在dd数组的第：" & v & " 个元素。", vbInformation, "信息"
End If
End Sub
Public Function NumFind(ByRef Myarray, FNumber As Variant) As Long
Dim K As Long, I As Long
Dim L1 As Long, R1 As Long
Dim l As Long, R As Long
l = LBound(Myarray): R = UBound(Myarray)
NextLoop:
K = (l + R) Mod 2
If K = 1 Then '中点
I = (l + R + 1) \ 2
Else
I = (l + R) \ 2
End If
If Myarray(I) <> FNumber Then
If Myarray(I) > FNumber Then
L1 = l: R1 = I
Else
L1 = I: R1 = R
End If
If (R1 - L1) = 1 Then '第一个和最后一个
If Myarray(L1) = FNumber Then
NumFind = L1
ElseIf Myarray(R1) = FNumber Then
NumFind = R1
Else
NumFind = -1 '没有发现
End If
Else
l = L1: R = R1
GoTo NextLoop
End If
Else
NumFind = I
End If
End Function

那怎么把这个文件的4000+行放入到数组呢?