今天就跟大家聊聊有關怎么在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堆棧有進一步的了解嗎？如果還想了解更多知識或者相關內容，請關注億速云行業資訊頻道，感謝大家的支持。
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
