VBScript - 动态 Array 实现方法大全！

记录一些方法，关于 VBScript 中，动态 Array 的实现，也适用于 VBA，

很久以前，写 VBA 的时候，就觉得使用 Array 很不方便，因为大小固定，

当时想的是，要是 Array 可以像 Python 里的 list 一样好用该多好啊，

那么下面，就记录一些方法，能让 Array 变得动态，并且好用！

实现方法-1：

在下面的实例中，先设定一个空的 Array 出来，

然后用，下面的方法实现动态 Array，

并且，把数字 1 到 10，一个加到 Array 中去。

'动态 Array 实现

myArray = Array()

For i = 1 To 10

    ReDim Preserve myArray(UBound(myArray) + 1)

    myArray(UBound(myArray)) = i

Next

那么动态 Array 就这么开心的实现啦，(^_−)☆

对比下和 Python list 的代码吧，感觉是不是很像呢。

# Python 中 list 的使用

myList = list()

for i in range(10):

    myList.append(i)

print(myList)

数据输出：

然后，思考下一个问题，也是我之前写 VBA 时候考虑的问题，

就是，怎么一下子，看到 Array 中所有的数据，

之前的本方法，是使用 For Loop，把 Array 中的数据一个个 Print 出来，

但是现在发现了简单的方法，代码如下：

'最简单的方法：

MsgBox Join (myArray, vblf)

'之前使用的笨方法：

For Each i In myArray

    Debug.Print i

Next

实现方法-2：

之后 Research 还发现了更多的方法，来实现近似动态 Array 的方法，

其中一种，就是使用，CreateObject("Scripting.Dictionary"),

Scripting.Dictionary 是字典对象的 ProgID，

但，这种方法使用的，并不是 VBScript 自带的 Object，

而是，调用了 Microsoft Scripting Runtime Library (SCRRUN.DLL) 中的一个对象，

字典（Dictionary），通常也被称为 associative array (关联数组)，

但是，从数据类型上说，字典是一个 Object，并不是 Array,

具体使用方法如下：

'创建一个字典（dic）

    Set dic = CreateObject("Scripting.Dictionary")

'添加，键值/名称 (key/item)

    dic.Add "a", "Athens"

    dic.Add "b", "Belgrade"

    dic.Add "c", "Cairo"

'如果不想，成对的添加值，可以省略 item，只添加 key

    dic.Add "Key1", ""

    dic.Add "Key2", ""

    dic.Add "Key3", ""

'删除，键值/名称 (只能通过 key 来删除)

    dic.remove "b"

'删除字典中所有值

    dic.RemoveAll 

'返回字典中 Item 的个数

    dic.Count

'判断某个 key 是否已经存在于字典中了,

'如果已经存在了，我们可以选择不添加到字典中，

'这种方法可以用于，对数据去重，选出 Unique Value！

    dic.Exists("c")

'遍历字典的方法

    oKeys = dic.Keys

    oItems = dic.Items

        For i = 0 To dic.Count - 1

            MsgBox (oKeys(i) & " : " & oItems(i))

        Next

实现方法-3：

还有一种方法，就是使用CreateObject("System.Collections.ArrayList")，

这种方法调用的是，属于.NET Framework（4.8）下的 COM，源自于 mscorlib.tlb 文件，

这种方法下，比使用 Dictionary 的方法，多了个更方便的“排序功能”，

而，要想在 Dictionary 中进行排序，可是很麻烦的，要使用多层 Loop，

而这种方法下，只需要使用，一个 Method 即可，ArrList.sort

具体使用方法如下：

'调用 Object，创建 ArrayList

    Set ArrList = CreateObject("System.Collections.ArrayList")

'添加 Item 进 ArrayList

    ArrList.Add "Item3"

    ArrList.Add "Item2"

    ArrList.Add "Item1"

'返回 ArrayList 中 Item 个数

    ArrList.Count

'返回 ArrayList 的容量

    ArrList.Capacity

'对 ArrayList 排序

    ArrList.Sort

'删除 Item

    ArrayList.Remove("Item1")

'清空 ArrayList

    ArrayList.Clear

'遍历 ArrayList 中的 Items

    For i = 0 To ArrList.Count - 1

        WScript.Echo ArrayList(i)

    Next

实现方法-4（VB，VBA 专用）：

这种方法使用的是，Collection 数据类型，

而，VBScript 下面是没有 Collection 这种数据类型的，

所以，这种方法是 VB 和 VBA 专用的方法，

VBScript 中常用的类似方法，是上面那两种，

那么，我们来看下，具体使用方法：

'声明变量，创建 Collection 对象

    Dim Coll As Collection

    Set Coll  = New Collection

'添加元素，添进去的数据，是 String 类型

    Coll.Add "Data1"

    Coll.Add "Data2"

    Coll.Add "Data3"

'在第二个元素之前，添加新元素

    Coll.Add "Data4", Before:=2

'删除第二个元素

    Coll.Remove 2

'读取 Collection 中的数据

    Debug.Print Coll(1)

    Debug.Print Coll.Item(2)

'往 Collection 里面添加 Object（对象）

    Dim Coll As New Collection    '创建一个 Collection

    Dim New_Object As New Class1    '创建一个新 Class Object

        New_Object.fruit = "Apple"    '设定新 Object 的 fruit 属性，等于 Apple

        coll.Add New_Object    '把这个新 Object添加到，我们的 Collection 中去

            Debug.Print Coll(1).fruit    '访问 Collection 中，Object 的属性

'也可以像字典一样使用，Key 必须是 String，而且 Unique

    Coll.Add Item:="Apple", key:="Key1"

    Coll.Add "Orange", "Key2"

'访问 Collection 中的 Item，只能通过 Key 访问 Item，没法反过来

    Debug.Print Coll("Key1")

篇尾总结：

差不多，在 VBScript，或者 VBA，想要实现动态 Array，无非就是这些方法了，

从性质上分类，大致就两类，要么就是使用自带的 Array，不断的改变 Array的大小，

要么就是，使用其他各种 Object，来实现类似数组功能的感觉，

好的，就这些了，希望对大家有帮助，

小白贡献，语失莫怪。

参考阅读：