VBS基础篇 – vbscript动态数组（动态数组 vba）奔走相告

文章摘要

这篇文章介绍了如何在VBScript中使用`System.Collections.ArrayList`创建和操作动态数组。主要内容包括： 1. 创建动态数组并添加元素； 2. 查看动态数组的元素数量和容量； 3. 遍历并打印动态数组的元素； 4. 对动态数组进行排序； 5. 删除指定元素； 6. 清空动态数组。通过这些操作，可以实现动态数组的基本功能，灵活应对不同场景的需求。

‘建立动态数组
Dim Arrl : Set Arrl=CreateObject(“System.Collections.ArrayList”)

‘添加元素
Arrl.Add “Element3”
Arrl.Add “Element2”
Arrl.Add “Element1”

‘查看动态数组中的元素数
WScript.Echo “动态数组中现有元素数量: ” & Arrl.Count
WScript.Echo “动态数组容量: ” & Arrl.Capacity

WScript.Echo

‘遍历动态数组
Sub TraverseArrl
Dim Counter
For Counter=0 To Arrl.Count – 1
WScript.Echo Arrl(Counter)
Next
End Sub
TraverseArrl

WScript.Echo

‘动态数组排序
Arrl.Sort
TraverseArrl

WScript.Echo

‘删除指定元素
Arrl.Remove(“Element1”)
TraverseArrl

WScript.Echo

‘清空全部元素
Arrl.Clear
WScript.Echo “动态数组中现有元素数量: ” & Arrl.Count
WScript.Echo “动态数组容量: ” & Arrl.Capacity