【原创】在 VBScript 中使用动态数组（ArrayList）

已于 2024-07-18 22:16:52 修改
阅读量690 收藏 19
点赞数 11
文章标签： 运维
于 2024-07-04 00:19:28 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/OldLiu001/article/details/140165427
版权

环境要求

  • Windows XP 及以上。
  • Windows 10 、 Windows 11 在 Windows 功能 中勾选 .NET Framework 3.5 (包括 .NET 2.0 和 3.0) 。

优点

  • 相比 VBScript 内置的数组，大小可自动变化。
  • 原生支持尾部添加、插入、删除、修改、切片、范围删除、翻转、查询、克隆等操作，免去了手动编写相关逻辑。
  • 可方便的转换为 VBScript 内置的数组。

使用

创建一个 ArrayList 对象：

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

Add 方法：在动态数组末尾添加元素

均摊时间复杂度 O(1) 。

Set oArr = CreateObject("System.Collections.ArrayList")
oArr.Add Empty
oArr.Add Null
oArr.Add "String"
oArr.Add 0
oArr.Add 3.14
oArr.Add CreateObject("Scripting.FileSystemObject")
oArr.Add New RegExp

Count 属性：表示动态数组当前元素个数

时间复杂度 O(1) 。

Set oArr = CreateObject("System.Collections.ArrayList")
WSH.Echo oArr.Count()

0

oArr.Add 8
WSH.Echo oArr.Count()

1

Item 属性：表示动态数组的各元素

接收一个整数作为索引，下标从 0 开始。

时间复杂度 O(1) 。

Set oArr = CreateObject("System.Collections.ArrayList")
oArr.Add Empty
oArr.Add Null
oArr.Add "String"
oArr.Add 0
oArr.Add 3.14
oArr.Add CreateObject("Scripting.FileSystemObject")
WSH.Echo oArr.Item(4)

3.14

oArr.Item(4) = 3.1415926
WSH.Echo oArr.Item(4)

3.1415926

Set oArr.Item(4) = CreateObject("Scripting.FileSystemObject")
WSH.Echo TypeName(oArr.Item(4))

FileSystemObject

Default 默认属性：表示动态数组的各元素

同 Item 属性。

Set oArr = CreateObject("System.Collections.ArrayList")
oArr.Add Empty
oArr.Add Null
oArr.Add "String"
oArr.Add 0
oArr.Add 3.14
oArr.Add CreateObject("Scripting.FileSystemObject")
WSH.Echo oArr(4)

3.14

oArr(4) = 3.1415926
WSH.Echo oArr(4)

3.1415926

Set oArr(4) = CreateObject("Scripting.FileSystemObject")
WSH.Echo TypeName(oArr(4))

FileSystemObject

Capacity 属性：表示动态数组目前的容量

若容量不足，会自动扩容并拷贝原来的元素。

扩容的时间复杂度是O(n)。

Set oArr = CreateObject("System.Collections.ArrayList")
WSH.Echo oArr.Count, oArr.Capacity

0 0

For i = 1 To 100
    oArr.Add i
Next
WSH.Echo oArr.Count, oArr.Capacity

100 128

oArr.Capacity = oArr.Count
WSH.Echo oArr.Count, oArr.Capacity

100 100

IsFixedSize 属性：数组是否为固定大小

会返回 False。

Set oArr = CreateObject("System.Collections.ArrayList")
WSH.Echo oArr.IsFixedSize()

0

IsReadOnly 属性：数组是否为只读

会返回 False。

Set oArr = CreateObject("System.Collections.ArrayList")
WSH.Echo oArr.IsReadOnly()

0

IsSynchronized 属性：表示是否同步对数组的访问

由于 VBScript 是单线程的，此属性无意义。

会返回 False。

Set oArr = CreateObject("System.Collections.ArrayList")
WSH.Echo oArr.IsSynchronized()

0

Clear 方法：清空动态数组

Set oArr = CreateObject("System.Collections.ArrayList")
oArr.Add 6
WSH.Echo oArr.Count()

1

oArr.Clear
WSH.Echo oArr.Count()

0

Clone 方法：返回该动态数组的拷贝

时间复杂度O(n)。

Set oArr = CreateObject("System.Collections.ArrayList")
oArr.Add 666
Set oArr2 = oArr.Clone
oArr2.Add 888
WSH.Echo oArr Is oArr2, oArr.Count(), oArr2.Count()

0 1 2

Set oArr = CreateObject("System.Collections.ArrayList")
oArr.Add 666
Set oArr2 = oArr
oArr2.Add 888
WSH.Echo oArr Is oArr2, oArr.Count(), oArr2.Count()

-1 2 2

Set oArr = CreateObject("System.Collections.ArrayList")
oArr.Add New RegExp
oArr.Add CreateObject("Scripting.FileSystemObject")
Set oArr2 = oArr.Clone
WSH.Echo oArr Is oArr2, oArr(0) Is oArr2(0), oArr(1) Is oArr2(1)

0 -1 -1

ToArray 方法：将动态数组转为普通 VBScript 数组

时间复杂度 O(n) 。

Set oArr = CreateObject("System.Collections.ArrayList")
oArr.Add 1
oArr.Add 3.1415926
oArr.Add True
WSH.Echo Join(oArr.ToArray(), " ")

1 3.1415926 True

Contains 方法：检查动态数组内是否包含特定元素

时间复杂度O(n)。

Set oArr = CreateObject("System.Collections.ArrayList")
oArr.Add 2333
oArr.Add Null
oArr.Add oArr
WSH.Echo oArr.Contains(2333), oArr.Contains(233), oArr.Contains(Null)

-1 0 -1

WSH.Echo oArr.Contains(oArr), oArr.Contains(CreateObject("System.Collections.ArrayList"))

-1 0

GetRange 方法：返回数组的一个切片

参数：起始下标、切片长度。

时间复杂度 O(n) 。

Set oArr = CreateObject("System.Collections.ArrayList")
For i = 0 To 9
    oArr.Add i
Next
WSH.Echo Join(oArr.ToArray(), " ")

0 1 2 3 4 5 6 7 8 9

Set oArr2 = oArr.GetRange(2, 5)
WSH.Echo Join(oArr2.ToArray(), " ")

2 3 4 5 6

Insert 方法：插入元素

时间复杂度O(n)。

参数：下标、元素。

Set oArr = CreateObject("System.Collections.ArrayList")
oArr.Add 0
oArr.Add 5
WSH.Echo Join(oArr.ToArray(), " ")

0 5

oArr.Insert 1, 4
WSH.Echo Join(oArr.ToArray(), " ")

0 4 5

oArr.Insert 3, 6
oArr.Insert 1, 2
oArr.Insert 2, 3
WSH.Echo Join(oArr.ToArray(), " ")

0 2 3 4 5 6

Remove 方法：移除指定的元素

时间复杂度 O(n) 。

注意：

  • 只会移除从头至尾第一个遇到的和指定元素相等的元素。
  • 如果没有找到指定的元素，那么什么也不会发生。
Set oArr = CreateObject("System.Collections.ArrayList")
For i = 1 To 5
    oArr.Add i Mod 2
Next
WSH.Echo Join(oArr.ToArray(), " ")

1 0 1 0 1

oArr.Remove 1
WSH.Echo Join(oArr.ToArray(), " ")

0 1 0 1

oArr.Remove 2
WSH.Echo Join(oArr.ToArray(), " ")

0 1 0 1

RemoveAt 方法：移除指定位置的元素

时间复杂度 O(n) 。

Set oArr = CreateObject("System.Collections.ArrayList")
For i = 1 To 5
    oArr.Add i Mod 2
Next
WSH.Echo Join(oArr.ToArray(), " ")

1 0 1 0 1

oArr.RemoveAt 0
oArr.RemoveAt 1
oArr.RemoveAt 2
WSH.Echo Join(oArr.ToArray(), " ")

0 0

RemoveRange 方法：移除指定区间的元素

参数：起始下标、长度。

时间复杂度 O(n) 。

Set oArr = CreateObject("System.Collections.ArrayList")
For i = 0 To 5
    oArr.Add i
Next
WSH.Echo Join(oArr.ToArray(), " ")

0 1 2 3 4 5

oArr.RemoveRange 3, 2
WSH.Echo Join(oArr.ToArray(), " ")

0 1 2 5

Reverse 方法：翻转数组

时间复杂度 O(n) 。

Set oArr = CreateObject("System.Collections.ArrayList")
For i = 0 To 9
    oArr.Add i
Next
WSH.Echo Join(oArr.ToArray(), " ")

0 1 2 3 4 5 6 7 8 9

oArr.Reverse
WSH.Echo Join(oArr.ToArray(), " ")

9 8 7 6 5 4 3 2 1 0

Sort 方法：将数组内元素排序

时间复杂度 O(n * log(n)) 。

Set oArr = CreateObject("System.Collections.ArrayList")
For i = 0 To 9
    oArr.Add Fix(Rnd() * 100)
Next
WSH.Echo Join(oArr.ToArray(), " ")

70 53 57 28 30 77 1 76 81 70

oArr.Sort()
WSH.Echo Join(oArr.ToArray(), " ")

1 28 30 53 57 70 70 76 77 81

TrimToSize 方法：使容量缩减为正好与当前元素个数相等

Set oArr = CreateObject("System.Collections.ArrayList")
For i = 0 To 9
    oArr.Add Fix(Rnd() * 100)
Next
WSH.Echo oArr.Capacity(), oArr.Count()

16 10

oArr.TrimToSize
WSH.Echo oArr.Capacity()

10

LastIndexOf 方法：返回数组中指定元素的索引

若有重复的元素，则返回最靠后的指定元素的索引。

若未找到元素，则返回 -1 。

Set oArr = CreateObject("System.Collections.ArrayList")
oArr.Add 1
WSH.Echo oArr.LastIndexOf(1)

0

oArr.Add(1)
WSH.Echo oArr.LastIndexOf(1), oArr.LastIndexOf(2)

1 -1

ToString 方法：返回类名

Set oArr = CreateObject("System.Collections.ArrayList")
WSH.Echo oArr.ToString(), TypeName(oArr)

System.Collections.ArrayList ArrayList

参考

老刘1号
关注
ArrayList 动态数组
a931394057的博客
11-13 441
动态数组 ArrayList
java中申请不定长度数组ArrayList的方法
08-27
Java 中申请不定长度数组 ArrayList 的方法 Java 中申请不定长度数组 ArrayList 的方法是 Java 编程语言中一个非常重要的知识点。ArrayList 是 Java 中一种非常常用的集合类，它可以动态地增长或缩小，以适应不同的...
VBS基础篇 - 动态数组
Ethon自动化测试
09-09 2201
VBS中的动态数组需要使用System.Collections.ArrayList '建立动态数组 Dim Arrl : Set Arrl = CreateObject("System.Collections.ArrayList") '添加元素 Arrl.Add "Element3" Arrl.Add "Element2" Arrl.Add "Element1" '查看动
VBS基础篇 - vbscript动态数组
08-27
VBS中的动态数组需要使用System.Collections.ArrayList,需要的朋友可以参考下
VBS 动态数组
u012172195的博客
11-10 1323
'动态数组 Redim Preserve sqlAry(0) sqlAry(0)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201810090000_201810151739]" Redim Preserve sqlAry(1) sqlAry(1)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201810160000_2018102...
VBScript数组函数
weixin_33724059的博客
09-08 88
Array() 语法Array(arglist)该函数返回一个包含了一个数组的 Variant。参数 arglist 是必要的，是以逗号隔开的值。这些值是被指定为 Variant 中数组的元素。如果没有指定参数，则会建立零长度的阵列。注解:当要引用数组元素时，使用的表示法为变数名称后加上以括号括起来的索参数字。在下列范例中，第一个陈述式建立一个名为 A 的 Variant 变数。第二个陈述...
VBScript学习笔记 - 数组
weixin_30653023的博客
10-10 184
数组声明 dim var(10) 数组声明指出了数组名和索引(index)的最大值。数组索引从0开始。因此该语句创建一个11个元素的数组，其中值为var(0), var(1), …和var(10) 遍历数组的所有元素 可用for each循环，不需事先指明数组中元素的个数。如果不想处理每一个数组元素的话，这种方法并不适用。 也可通过依次索引每个值来遍历数组。 以下分别演示了这两...
Java使用数组实现ArrayList的动态扩容的方法
08-19
contains()方法是用来查看所传元素是否在数组中，我们可以直接通过indexOf()方法查看返回值是否不等于-1，不等于-1返回true，等于-1返回false。 ```java public boolean contains(int element) { return indexOf...
Java 数组ArrayList常用语法详解
08-25
Java 数组ArrayList是Java编程语言中最常用的数据结构之一，用于存储和操作数据。下面是ArrayList的常用语法详解： 一、导入ArrayList 首先，需要在Java程序中导入ArrayList类，语法如下： ```java import java....
vbs动态数组，asp动态数组
weixin_30293135的博客
12-18 122
i = 0: nStr = ""Dim MyArray()Doa = InputBox("循环直到输入4为止")ReDim Preserve MyArray(i)MyArray(i) = ai = i + 1Loop Until a = "4"For i = 0 To UBound(MyArray)nStr = nStr & MyArray(i) & ","NextMsgBox n...
Visual Basic 2008 动态数组使用方法
系统运维
11-15 242
1、动态数组：指在声明数组时未给出数组的大小，当要使用它时，随时用ReDim语句重新声明数组大小。 2、建立动态数组的方法 （1）先采用声明静态数组方式声明数组，但可以不指定各维度的下标上界。 （2）再使用ReDim语句分配数组中实际元素的个数（ ReDim 数组名() 【as 数据类型】） （3）在用ReDim语句改变数组大小时可以使用变量。 3、定义一维动态数组 例： P...
VB Script 如何使用动态数组分配
weixin_34138056的博客
07-04 133
Dim PriceArr()For i= 2 to intItemCountredim preserve PriceArr(i-2)PriceArr(i-2)= Browser("HP Partner Portal").Page("New/Existing Transaction $ Status Dashboard").WebTable("Product List Grid").ChildIt...
VBS_System.Collections.ArrayList对象详解
qq_40709911的博客
12-20 3134
VBScript对象System.Collections.ArraylIst的详解 对象System.Collections.ArrayList主要是用来创建动态数组的 一、创建动态数组 dim DynamicArray: Set DynamicArray=CreateObject("System.Collections.ArrayList") VBS中将多条语句合并写在一行，可以使用‘:’...
VBS 数组
柚子茶0902
07-24 1860
数组在很多语言中都会被应用到。并且它的作用是不可小视的，在处理数据集合的时候非常有用。 这里介绍几种最常用的数组声明方式： 普通方式： Dim arr(2) arr(0) = “test1″ arr(1) = “test2″ arr(2) = “test3″ msgbox arr(1) ‘打印出test2 Array函数方式: arr ＝ Ar
asp vbscript 数组的使用
编程人生
09-02 8420
数组变量和动态调整数组大小。 VBScript 数组变量 有时候，将多个相关值赋给一个变量更为方便，因此可以创建包含一系列值的变量，称为数组变量。数组变量和标量变量是以相同的方式声明的，唯一的区别是声明数组变量时变量名后面带有括号 ( )。 下例声明了一个包含 11 个元素
VBscript数组在内存中的布局
weixin_42539095的博客
12-18 183
VBScript的数组内存布局和C语言有些不太一样。A（1，2）数组的内存布局为 A(0,0) A(1,0) A(0, 1), A(1,1), A(0, 2), A(1,2), 而每个元素大小为0×10字节(cbElements) 如下代码 <!doctype html> <html lang="en"> <head> </head> <body> <script LANGUAGE="VBScript"> dim a(1,2
vbscript基础篇 - vbs数组Array的定义与使用方法
最新发布
Oona_01的博客
07-04 183
数组变量：有时需要向一个单一的变量赋于多个值，那么您可以创建一个可包含一系列值的变量，这种变量被称为数组。这篇文章主要介绍了vbscript基础篇 - vbs数组Array的定义与使用方法,需要的朋友可以参考下。arglist 必需的。数组中元素值的列表（由逗号分割）。这篇文章就介绍到这，需要的朋友可以参考一下。Array 可返回一个包含数组的变量。注释：数组中的第一个元素是零。vbs数组定义和用法。
动态数组ArrayList使用方法
04-20
动态数组ArrayList是Java中常用的数据结构，它可以动态地改变数组的大小。在Java中，我们可以通过以下步骤使用ArrayList： 1. 导入java.util包，在Java文件的开头添加以下代码： import java.util.ArrayList; 2. 声明ArrayList变量，例如： ArrayList<String> list = new ArrayList<>(); 3. 向ArrayList中添加元素： list.add("apple"); list.add("banana"); list.add("orange"); 4. 访问ArrayList中的元素： String item = list.get(0); // 获取第一个元素 5. 获取ArrayList的大小： int size = list.size(); 6. 删除ArrayList中的元素： list.remove(0); // 删除第一个元素 7. 修改ArrayList中的元素： list.set(0, "pear"); // 将第一个元素修改为"pear" 以上就是动态数组ArrayList的使用方法。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

老刘1号

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值