VBS基础篇 - vbscript堆栈

时间:2022-08-29 10:21:43

实例代码

脚本文件:d.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
Option Explicit
 
'建立堆栈
Dim Stk : Set Stk = CreateObject("System.Collections.Stack")
 
Stk.Push "Element1"
Stk.Push "Element2"
Stk.Push "Element3"
 
'查看堆栈中的元素数
WScript.Echo "堆栈中的元素数: " & Stk.Count
 
WScript.Echo
 
'遍历堆栈
Sub TraverseStk
  Dim ArrStk : ArrStk = Stk.ToArray
  Dim Counter
  For Counter = 0 To UBound(ArrStk)
    WScript.Echo ArrStk(Counter)
  Next
End Sub
TraverseStk
 
WScript.Echo
 
'元素出栈
WScript.Echo Stk.Pop
WScript.Echo "---"
TraverseStk
 
WScript.Echo
 
'清空堆栈
Stk.Clear
WScript.Echo "堆栈中的元素数: " & Stk.Count

调用方法:通过双击d.bat调用,d.bat代码如下:

cscript d.vbs
pause

运行结果截图:

VBS基础篇 - vbscript堆栈

可以看出,遍历队列和堆栈时,遍历顺序时由出队和出栈的顺序决定的,而不是入队和压栈的顺序