VBA学习笔记3-数据结构类型SortedList

一、SortedList是干什么的？

在ArrayList里学习了数组的排序对象，今天学习一个完善的集合对象，它可以添加数据，根据key键的内容自己升序排序，具有集合的完善方法，又和字典非常相像

二、创建方法

1，前期绑定

• 单击菜单“工具—引用”，在“引用”对话框中找到“mscorlib.dll”并选取
  
• 创建代码

Dim sl As New sortedlist

2，后期绑定

Sub lizi3()
    Dim sl As Object
    Set sl = CreateObject("system.collections.sortedlist")
    
    Set sl = Nothing
End Sub

三、常用方法和属性

1，Add添加方法

• Add方法：Object.Add(key,item)
• key是键，不能重复，并内部就会按照键的升序排列好
• item是项目，可以是数字，文本，对象，日期等等

Sub lizi3()
    Dim sl As Object, i As Long
    Set sl = CreateObject("system.collections.sortedlist")
    sl.Add 1, "王大锤"
    sl.Add 2, "大怪物"
    sl.Add 0, "二肥"
    sl.Add -1, #12/29/2019#
    For i = 0 To sl.Keys.count - 1
        Debug.Print "键：" & sl.getkey(i) & "," & "项目：" & _
         sl.getbyindex(i)
    Next
    Set sl = Nothing
End Sub

显示结果

键：-1,项目：2019/12/29
键：0,项目：二肥
键：1,项目：王大锤
键：2,项目：大怪物

2，item的添加办法

• Item的添加办法：SortedList.Item(key)=Item
• Key是键，不能重复，并内部就会按照键的升序排列好
• Item是项目，可以是数字，文本，对象，日期等等
• 同字典一样，如果键重复的，会替换掉这个键对应的Item

Sub lizi3()
    Dim sl As Object, i As Long
    Set sl = CreateObject("system.collections.sortedlist")
    sl.Item(1) = "王大锤"
    sl.Item(2) = "大怪物"
    sl.Item(1) = "二肥"
    sl.Item(0) = #12/29/2019#
    For i = 0 To sl.Keys.count - 1
        Debug.Print "键：" & sl.getkey(i) & "," & "项目：" & _
         sl.getbyindex(i)
    Next
    Set sl = Nothing
End Sub

显示结果

键：0,项目：2019/12/29
键：1,项目：二肥
键：2,项目：大怪物

可以看出来因为1键是重复了，直接替换掉了王大锤，不会报错

3，得到集合的大小

• Count属性，得到sortedlist大小–两个等价属性
• 1，SortedList.Values.Count
• 2，SortedList.Keys.Count
• SortedList的索引从0开始到SortedList.keys.Count-1个

下面是遍历的代码，输出到立即窗口

For i = 0 To sl.Keys.count - 1
    Debug.Print "键：" & sl.getkey(i) & "," & "项目：" & _