腳本文件: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