打造自己的字典

Zamyi · 发表于 2018-3-26 14:32

arr3(i, 1) = d.Item(arr1(i, 2))
但原引用Key为CStr(arr1(i, 1))，怎么变成第2列？

lccchengcheng · 发表于 2018-3-28 10:00

一脸蒙蔽的看了之后，表示我的水平太low，没看懂。但也支持一下吧。

LIUZHU · 发表于 2019-4-1 17:40

Zamyi 发表于 2017-12-19 11:04
本程序在win64位没问题，没有32位系统，试试把PtrSafe删除看行不？再不行把它删除，自定义一个，调用它也 ...

请教下这个CLS文件怎么导入？

Zamyi · 发表于 2019-4-6 20:53

LIUZHU 发表于 2019-4-1 17:40
请教下这个CLS文件怎么导入？

在EXCEL的VBE中右键，导入文件“zDict.cls”，即可。

duzili · 发表于 2020-3-7 17:57

mark一下
实测结果：
场景为：
基础数据sheet2为48万条excel数据，ID乱序排列；1w条待查询的数据在sheet1中，需要查询sheet
中的1万条数据，找到对应的姓名性别所在行业等12个字段，并歇会shee1.
测试结果：
装载数据，然后循环10000次查询，并反写回excel，一共3.78s
装载数据，然后循环10000次查询，并反写回数组，一共0.82s

比我用数组装载，再快速排序法排序，再二分法查找，快了数十倍。快速排序在我的电脑上（当然电脑性能也很渣）花了6s...

这个代码很牛，学习了

2227554848 · 发表于 2020-3-8 17:22

一脸蒙蔽的看完，但也支持一下吧。

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

mark，谢谢分享

pattonzhai · 发表于 2020-4-13 22:27

duzili 发表于 2020-3-7 17:57
mark一下
实测结果：
场景为：

有案例的话，上传一下，让我们这些小菜鸟们拜读一下，现在还一脸懵懂状态

pattonzhai · 发表于 2020-4-28 22:58

哪位学友有应用案例，分享一下，一直期待通过案例来学知识

逍遥爱迪生 · 发表于 2020-5-21 05:55

楼主还在不？发现主要的问题，删除一项太慢了
删100个用0.2秒，删500个就要5秒，平方？
200*200=4万毫秒左右？

zDict(add)10000,Time(MS): 6.3093
zDict(Read)10000,Time(MS): 4.3105
zDict(Remove)100,Time(MS): 208.7768

zDict(add)50000,Time(Ms): 68.7061
zDict(Read)50000,Time(Ms): 23.3902
zDict(Remove)500,Time(Ms): 5256.6468

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

[原创] 打造自己的字典