打造自己的字典

三坛老窖

Zamyi 发表于 2017-12-20 14:13
已修改，再试试 32位行不。另，10^6和10^5也就差10倍左右，完全无必要建立多个字典。

AddN方法里，还是漏写了一条语句：
k = (hash(0, StrPtr(Key), LenB(Key)) And &H7FFFFFFF) Mod Hash_Count

楼主可真是马大哈，哈哈……

Zamyi

三坛老窖 发表于 2017-12-20 14:34
AddN方法里，还是漏写了一条语句：
k = (hash(0, StrPtr(Key), LenB(Key)) And &H7FFFFFFF) Mod Hash_Co ...

哈哈，你自己再看看，我特别要求要配合Exists使用。要那样没什么意义。

三坛老窖

Zamyi 发表于 2017-12-20 14:38
哈哈，你自己再看看，我特别要求要配合Exists使用。要那样没什么意义。

嗯，我看明白你的用意了。
不过你这个AddN完全没有意义：你的本意是想避免Exists检查的重复，可是事实在AddN前还是要Exists一下，这不是多此一举吗？！

一把小刀闯天下

Zamyi 发表于 2017-12-20 14:13
已修改，再试试 32位行不。另，10^6和10^5也就差10倍左右，完全无必要建立多个字典。

确实非常快:  0.8s,65万条数据。

ivccav

已有老窖字典了。不知楼主的字典和老窖的有和区别？

QQ107172400

数组下标应该兼容原来的字典，这样人家直接套用你的类更方便一些。老大有时间再写个VB.NET的字典更爽了！

小x白

火前留名，点个赞

QQ107172400

Compare属性没有哦？

Zamyi

QQ107172400 发表于 2017-12-27 08:18
数组下标应该兼容原来的字典，这样人家直接套用你的类更方便一些。老大有时间再写个VB.NET的字典更爽了！

字典内部Hash_Index是指向pKeys、pItems的下标，故pKeys、pItems的下标从1开始计算更方便；读取Keys时直接用Redim，省时省空间。

lxw6

以下代码运行时出错，提示：运行时错误'450' 错误的参数号或无效的属性赋值。换成d.key(arr1(i,1))也出同样的错。

1. Sub 大量数据匹配_zamyi字典()
   
2.     t1 = Timer()
   
3.     Dim Lst1 As Long        '字典大小，必须设置为long，否则会出错
   
4.     Lst1 = Cells(Rows.Count, 1).End(xlUp).Row
   
5.     arr1 = Range("a1").Resize(Lst1, 2).Value
   
6.     Set d = New zDict
   
7.     d.SetBudgetCount Lst1  '设置字典的大小
   
8.     For i = 1 To Lst1
   
9.         d.Add CStr(arr1(i, 1)), CStr(arr1(i, 1))
   
10.     Next i
    
11.     Dim arr3()
    
12.     ReDim arr3(1 To Lst1, 1 To 1)
    
13.     For i = 1 To Lst1
    
14.         arr3(i, 1) = d(arr1(i, 2))      '出错
    
15.     Next i
    
16.     Erase arr1, arr3
    
17.     Set d = Nothing
    
18.     MsgBox Round(Timer - t1, 1) & "秒！"
    
19. End Sub
    

复制代码