怎么在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.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堆栈有进一步的了解吗？如果还想了解更多知识或者相关内容，请关注行业资讯频道，感谢大家的支持。