VBS基础篇 - vbscript堆栈

实例代码

脚本文件：d.vbs，包含堆栈的添加元素（压栈）、删除元素（出栈）、遍历、统计元素个数、清空

Option ExplicIT'建立堆栈Dim Stk : Set Stk = CreateObject("System.Collections.Stack")Stk.Push "Element1"Stk.Push "Element2"Stk.Push "Element3"'查看堆栈中的元素数WScript.Echo "堆栈中的元素数: " &
     Stk.CountWScript.Echo'遍历堆栈Sub TraverseStk  Dim ArrStk : ArrStk = Stk.ToArray  Dim Counter  For Counter = 0 To UBound(ArrStk)    WScript.Echo ArrStk(Counter)  NextEnd SubTraverseStkWScript.Echo'元素出栈WScript.Echo Stk.PopWScript.Echo "---"TraverseStkWScript.Echo'清空堆栈Stk.ClearWScript.Echo "堆栈中的元素数: " &
     Stk.Count

调用方法：通过双击d.bat调用，d.bat代码如下：

cscript d.vbs
pause

运行结果截图：

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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！