VBS中的堆棧需要使用System.Collections.Stack,下面的代碼包含堆棧的添加元素(壓棧)、刪除元素(出棧)、遍歷、統計元素個數、清空,需要的朋友可以參考下
實例代碼
腳本文件: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
運行結果截圖:
可以看出,遍歷隊列和堆棧時,遍歷順序時由出隊和出棧的順序決定的,而不是入隊和壓棧的順序