脚本文件:b.vbs,包含动态数组的添加元素、删除元素、遍历、统计元素个数、清空
实例代码
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
'建立动态数组
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
|
调用方法:通过双击b.bat调用,b.bat代码如下:
cscript b.vbs
pause
运行结果截图:
原文链接:http://www.cnblogs.com/wakey/p/5772766.html