基于哈希查找的老窖字典

uceadf · 发表于 2019-7-10 11:34

无法使用，类型不匹配
HashCode = VarPtr(vKey) '?

tanghansheng · 发表于 2020-4-13 11:42

mark，谢谢分享

pattonzhai · 发表于 2020-4-14 12:48

学习一下，新的技术，感谢大拿的精彩分享

choijinwoo · 发表于 2020-5-13 14:25

牛人，先下载学习

loquat · 发表于 2023-2-25 13:56

来个脱裤子放屁的更新
2023/02/25 v6: 增加x64支持；增加KeyByIndex、ItemByIndex；增加For Each支持（暂时只支持Item迭代）

leolee82 · 发表于 2023-2-26 00:08

loquat 发表于 2023-2-25 13:56
来个脱裤子放屁的更新
2023/02/25 v6: 增加x64支持；增加KeyByIndex、ItemByIndex；增加For Each支持 ...

兄弟你的代码需要改一下，如果过程中有删除，字典数据是不连续的

leolee82 · 发表于 2023-2-26 02:22

loquat 发表于 2023-2-25 13:56
来个脱裤子放屁的更新
2023/02/25 v6: 增加x64支持；增加KeyByIndex、ItemByIndex；增加For Each支持 ...

老窖字典v6.rar (98.22 KB, 下载次数: 40)

帮你修复了，改成了迭代key的形式,与系统内置字典一致
不过试了下比Collection方法慢,但省内存

loquat · 发表于 2023-2-26 12:22

leolee82 发表于 2023-2-26 02:22
帮你修复了，改成了迭代key的形式,与系统内置字典一致
不过试了下比Collection方法慢,但省内存

谢谢，请问测试结果对比慢了多少？
下一步研究多元素迭代，实现下面效果
set dic as OldCellarDictionary
dic.add 1,2
dic.add 2,22
dim t
for each t in dic.Items
  debug.print t
next t
for each t in dic.Keys
  debug.print t
next t
for each t in dic.KeyPairs
  debug.print t.Key; t.Item
next t

loquat · 发表于 2023-2-26 12:28

leolee82 发表于 2023-2-26 00:08
兄弟你的代码需要改一下，如果过程中有删除，字典数据是不连续的

那如果要继续做，需要修改Remove方法吧

leolee82 · 发表于 2023-2-26 13:15

loquat 发表于 2023-2-26 12:22
谢谢，请问测试结果对比慢了多少？
下一步研究多元素迭代，实现下面效果
set dic as OldCellarDictiona ...

慢了很多，用VB编译后效果也不明显，应该是VBA语言的问题了。数据量小用集合无所谓，数据量很大用集合不知道会不会内存不够，不用集合速度估计会受不了，感觉无解。还可以先压缩再用您原来的代码，应该会快点，没测试。

		自动登录	找回密码
密码			免费注册

[分享] 基于哈希查找的老窖字典

评分