字典和哈希表的一点小发现

wodewan

qlmgu 发表于 2021-9-17 17:01
wodewan老师您好。很想试用您的程序，但是运行时提示用户定义类型未定义的提示: 要如何定义呢？谢谢。

...

引用一下mscorlib.dll,如果没有，点旁边的浏览按钮到C盘里找mscorlib.tlb

wodewan

qlmgu 发表于 2021-9-17 17:01
wodewan老师您好。很想试用您的程序，但是运行时提示用户定义类型未定义的提示: 要如何定义呢？谢谢。

...

要么引用mscorlib.dll,引用方法审核了，等等看。
要么把as Idictionary删掉或改成object（速度会慢一些）。

qlmgu

谢谢wodewan老师指教，我等等看。

qlmgu

wodewan 发表于 2021-9-17 17:08
引用一下mscorlib.dll,如果没有，点旁边的浏览按钮到C盘里找mscorlib.tlb

引用后可以使用了，时间可以接受。感谢wodewan 老师的程序。

wodewan

qlmgu 发表于 2021-9-17 21:20
引用后可以使用了，时间可以接受。感谢wodewan 老师的程序。

你把那个子程序改成这样，还可以再快一倍，原先时8秒左右，现在是4秒左右，如果解决了3楼那个问题，还可以再快，可惜目前没找到方法。

Sub GetHashTable(arr, Ht As IDictionary) '将单元格的数据添加到哈希表
    Dim i&
    For i = 1 To UBound(arr)
      If Not Ht.Contains(arr(i, 1)) Then Ht.Add arr(i, 1), vbNull
    Next
End Sub

chis3

wodewan 发表于 2021-9-17 10:35
这个说起来东西有点多。。。。。。
备注一下：下面的代码都是用的前期绑定的方法，所以会自动显示属性方 ...

為什麼我前期綁定後
沒有顯示方法,屬性?

wodewan

chis3 发表于 2021-9-18 09:15
為什麼我前期綁定後
沒有顯示方法,屬性?

如果没猜错的话，你的代码里应该没写这一句：
Dim HT As IDictionary
如下图：

chis3

wodewan 发表于 2021-9-18 09:54
如果没猜错的话，你的代码里应该没写这一句：
Dim HT As IDictionary
如下图：

謝
用法是否和字典一樣?
另外之前也研究了arraylist
請問arraylist的數據類型是什麼? 因也是沒有顯示屬性方法

wodewan

chis3 发表于 2021-9-18 10:49
謝
用法是否和字典一樣?
另外之前也研究了arraylist

HashTable的用法你可以翻翻上面的帖子和代码。
Arraylist 和这个HashTable来自同一个程序集，mscorlib.dll，其实还有其他一些数据结构：如Stack,Queue,Sortedlist,等等
你可以先认为Arraylis的数据类型是IList，就像上面的HashTable的类型是IDictionary一样。




但其实这种说法并不准确，只是好理解罢了，如果要知道为什么会这样，可不可以设成其他类型等等，那是面向对象的事，我估计我说不清楚，以下内容仅供参考：


首先的了解什么是程序集，接口，类，继承，多态。


1. Excel中从外部加载程序集（好比这里的mscorlib.dll），程序集必须以接口（Interface）的方式暴露给Excel，这样Excle才可以访问这个程序集内的各种方法。


2. 现在接口有了(好比这里的IList，IDictionary，接口基本上以字母 I 开头)，但接口里只有方法名，只是告诉使用方如果你继承我就必须自己实现这个功能。


3. 这时候，类就出现了（好比这里的HashTable），它实现接口中定义的各种方法的具体逻辑，好比添加要怎么添加，删除要怎么删除。


4. 这样基本就差不多了，接下来实例化一个类，就可以使用了，为什么能把一个具体的类设成接口类型那就时多态了。

qlmgu

wodewan 发表于 2021-9-17 22:02
你把那个子程序改成这样，还可以再快一倍，原先时8秒左右，现在是4秒左右，如果解决了3楼那个问题，还可 ...

谢谢老师精心优化程序和耐心指导，程序确实增速很多。神奇！