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,来实现类似数组功能的感觉,
好的,就这些了,希望对大家有帮助,
小白贡献,语失莫怪。
参考阅读:
- VBA 字典与集合(Dictionary与Collection)
- Lists in VBScript – Stack Overflow
- Dictionary object | Microsoft Docs
- Windows Script Host – Tim Hill – Google Books
- Does VBA have Dictionary Structure? – Stack Overflow
- VBS基础篇 – 动态数组
- asp classic – What really is a Collection object in asp using vbscript? – Stack Overflow
- The Ultimate Guide To Collections in Excel VBA – Excel Macro Mastery
- VBA for smarties: Collection
- ArrayList Class (System.Collections) | Microsoft Docs