如何查询字典中的值？ - 编程论坛

#2

风吹过b2022-09-02 17:31

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

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

#3

yuma2022-09-02 18:47

回复 2楼风吹过b

你这种方法不实用。

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

程序代码：

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
………………………………
……………………

#4

kings123332022-09-05 23:23

回复 3楼 yuma

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

#5

yuma2022-09-06 13:10

回复 4楼 kings12333

只有本站会员才能查看附件，请登录

像我这样

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

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

#6

kings123332022-09-07 18:36

回复 5楼 yuma

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

只有本站会员才能查看附件，请登录

#7

yuma2022-09-07 20:15

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

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

#8

kings123332022-09-07 20:21

回复 7楼 yuma

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

#9

yuma2022-09-07 20:35

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

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

程序代码：

有序数的快速查找方法(非递归法)
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

#10

kings123332022-09-07 20:45

回复 9楼 yuma

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

#11

yuma2022-09-07 20:55

看我写的例子,写成函数也很容易：

用FOr...Next应该也不慢吧，找一遍就全出来了。

程序代码：

Private Sub Form_Load()
Dim str As String
str = "白菜价,股票,女朋友,购物,中国银行,汽车商行,交通信号灯,鸡蛋,手表,电脑,网站,工商银行"
s = Split(str, ",")
appoint = "银行" '要查找的字符串
For i = 1 To UBound(s)
pos = InStr(s(i), appoint)
If pos > 0 Then
MsgBox "你要查找的值在数组：" & "s" & "(" & i & ")" & "中"
End If
Next
End Sub

[此贴子已经被作者于2022-9-7 20:56编辑过]

#12

kings123332022-09-07 21:22

回复 11楼 yuma

如果是这样的方式，就只是少了一个打开TXT的步骤，我实际查找是打开TXT的过程用的INSTR查的，估计没啥区别，反而4000+行的数据常时间驻内存会影响反应速度

#13

kings123332022-09-07 21:24

除非是将查找项也组成数组完成匹配

#14

yuma2022-09-07 22:52

不清楚你的具体需求，反正对于我来说够了。

#15

yuma2022-09-08 00:20

回复 12楼 kings12333

以下是引用kings12333在2022-9-7 21:22:55的发言：

如果是这样的方式，就只是少了一个打开TXT的步骤，我实际查找是打开TXT的过程用的INSTR查的，估计没啥区别，反而4000+行的数据常时间驻内存会影响反应速度

用instr函数查，如果多处有相同的字符串，你就傻眼了。

instr默认只能返回字符串第一次出现的位置。

#16

William19492022-09-12 17:29

回复 6楼 kings12333

你这是要写股票软件吗？
那你用哪家的数据源？
我以前写过很多股票数据分析的小程序。用的是新浪提供的数据源，可是现在人家停掉了。写的那些“宝贝”全废了。唉

#17

kings123332022-09-12 22:46

回复 16楼 William1949

看看。。。数据源大把啊。。网页，APP,本地软件TDX...