VBScript - 動態 Array 實現方法大全！

VBScript – 動態 Array 實現方法大全！

2020 年 4 月 4 日
筆記

記錄一些方法，關於 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，來實現類似數組功能的感覺，
好的，就這些了，希望對大家有幫助，
小白貢獻，語失莫怪。