怎么在VBS中实现vbscript堆栈

今天就跟大家聊聊有关怎么在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

运行结果截图：

看完上述内容，你们对怎么在VBS中实现vbscript堆栈有进一步的了解吗？如果还想了解更多知识或者相关内容，请关注编程网行业资讯频道，感谢大家的支持。