ExcelHome技术论坛

标题: 介绍一个类，SortedList，可按照键和索引访问，自动排序。 [打印本页]

作者: HHAAMM 时间: 2018-3-16 23:41
标题: 介绍一个类，SortedList，可按照键和索引访问，自动排序。
SortedList 类表示键/值对的集合，这些键值对按键排序并可按照键和索引访问。

功能自己体会

Sub test()
Dim objSortedList As Object
Dim objList2 As Object
Dim I As Integer

Set objSortedList = CreateObject("System.Collections.Sortedlist")

objSortedList.Add "First", "AAAA"
objSortedList.Add "Second", "!"
objSortedList.Add "Third", "CCCC"
objSortedList.Add "Fourth", ","

Debug.Print objSortedList.IndexOfKey("First")
Debug.Print objSortedList.IndexOfValue("AAAA")
Debug.Print objSortedList.IndexOfKey("Second")
Debug.Print objSortedList.IndexOfValue("!")
Debug.Print objSortedList.IndexOfKey("Third")
Debug.Print objSortedList.IndexOfValue("CCCC")
Debug.Print objSortedList.IndexOfKey("Fourth")
Debug.Print objSortedList.IndexOfValue(",")

For I = 0 To objSortedList.Count - 1
      Debug.Print objSortedList.GetKey(I) & vbTab & objSortedList.GetByIndex(I)
Next
Debug.Print "Size    : " & objSortedList.Count
Debug.Print "Capacity : " & objSortedList.Capacity

Debug.Print objSortedList.GetByIndex(objSortedList.IndexOfKey("Third"))

objSortedList.TrimToSize

Debug.Print "Size    : " & objSortedList.Count
Debug.Print "Capacity : " & objSortedList.Capacity

Set objList2 = objSortedList.Clone
Debug.Print "Sorted List Key(1) = " & objSortedList.GetKey(1)
Debug.Print "Cloned List Key(1) = " & objList2.GetKey(1)

Set objList2 = Nothing
Set objSortedList = Nothing
End Sub

Sub 最喜欢的性能()
Dim O As Object

Set O = CreateObject("System.Collections.Sortedlist")

O.Add "张三", "80分"
O.Add "李四", "60分"
O.Add "王五", "90分"
O.Add "赵六", "20分"

MsgBox "王五分数是:" & vbTab & O.GetByIndex(O.IndexOfKey("王五"))

Set O = Nothing
End Sub

作者: HHAAMM 时间: 2018-3-17 00:03
Sub 最喜欢的性能()
Dim O As Object

Set O = CreateObject("System.Collections.Sortedlist")

O.Add "张三", "80分"
O.Add "李四", "60分"
O.Add "王五", "90分"
O.Add "赵六", "20分"

MsgBox "王五分数是:" & vbTab & O.Item("王五")

Set O = Nothing
End Sub

作者: jsgj2023 时间: 2018-3-17 08:15
有点意思,感谢分享!

作者: duquancai 时间: 2018-3-17 10:07
感谢版主的分享！不知道这个：对键的排序效率如何？

作者: liu-aguang 时间: 2018-3-17 10:43
谢谢分享，拓展视野。

作者: kinkon123 时间: 2018-3-17 13:13
感谢版主分享，占位学习！

作者: x007file 时间: 2018-3-17 13:30
关键字不能为数字吗？

作者: aman1516 时间: 2018-3-17 14:46
赋值时就自动排序了，某些场合非常方便，谢谢分享

作者: VBA万岁 时间: 2018-5-3 15:43
感觉这个类比较有用！

作者: amesman 时间: 2018-5-3 16:32

x007file 发表于 2018-3-17 13:30
关键字不能为数字吗？

可以为数字，但排序时是按从左到右的顺序逐位进行，所以，10会在2的前面，这种情况需要保留同等的位数，否则出错。。。。。。

作者: cui26896 时间: 2022-2-5 20:01
非常值得关注，收藏慢慢看！

作者: ning84 时间: 2022-10-29 12:03

HHAAMM 发表于 2018-3-17 00:03
Sub 最喜欢的性能()
Dim O As Object

windows10+office 2007
System.Collections.Sortedlist运行失败。

(, 下载次数: 16)

Sub 最喜欢的性能()
Dim O As Object
Set O = CreateObject("System.Collections.Sortedlist")
O.Add "张三", "80分"
O.Add "李四", "60分"
O.Add "王五", "90分"
O.Add "赵六", "20分"
MsgBox "王五分数是:" & vbTab & O.GetByIndex(O.IndexOfKey("王五"))
Set O = Nothing
End Sub

复制代码

(, 下载次数: 16)

欢迎光临 ExcelHome技术论坛 (https://club.excelhome.net/)