VBS基礎(chǔ)篇 - vbscript堆棧
更新時間：2018年05月29日 22:52:54 投稿：mdxy-dxy
VBS中的堆棧需要使用System.Collections.Stack，下面的代碼包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統(tǒng)計元素個數(shù)、清空,需要的朋友可以參考下
實例代碼
腳本文件：d.vbs，包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統(tǒng)計元素個數(shù)、清空
Option Explicit
'建立堆棧
Dim Stk : Set Stk = CreateObject("System.Collections.Stack")
Stk.Push "Element1"
Stk.Push "Element2"
Stk.Push "Element3"
'查看堆棧中的元素數(shù)
WScript.Echo "堆棧中的元素數(shù): " & 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 "堆棧中的元素數(shù): " & Stk.Count
調(diào)用方法：通過雙擊d.bat調(diào)用，d.bat代碼如下：
cscript d.vbs
pause
運(yùn)行結(jié)果截圖：
可以看出，遍歷隊列和堆棧時，遍歷順序時由出隊和出棧的順序決定的，而不是入隊和壓棧的順序
相關(guān)文章
VBS教程：屬性-Path 屬性...2006-11-11
Vbs腳本實現(xiàn)radmin終極后門代碼_刪除自身
在網(wǎng)上看到N多人做radmin后門，要導(dǎo)出注冊表而且還用被殺軟件K殺。所以本人把自己寫的腳本提供大家分享。比較實用，希望大家喜歡。2008-06-06
自動以管理員身份運(yùn)行批處理bat文件(vbs與bat兩種方法)
在日常運(yùn)維工作中，為方便對windows用戶進(jìn)行系統(tǒng)安裝或配置等，使用Windows自帶的批處理(bat文件)是一種最為簡單快速的方法2020-08-08
一個可以更換windows xp or 2003的序列號的vbs腳本
一個可以更換windows xp or 2003的序列號的vbs腳本...2007-02-02
vbs解決處理TXT文本數(shù)據(jù)相關(guān)問題實現(xiàn)代碼
使用vbs處理txt數(shù)據(jù)時，會遇到一些問題，本文將提供詳細(xì)的解決方法，希望可以幫助你們2012-12-12
VBS教程：函數(shù)-GetObject 函數(shù)
使用 GetObject 函數(shù)可以訪問文件中的 Automation 對象，而且可以將該對象賦值給對象變量。使用 Set 語句將 GetObject 返回的對象賦值給對象變量。2006-11-11
VBS調(diào)用WMI實現(xiàn)搜索硬盤mp3文件
如果你想用遞歸搜索我也沒辦法。下面的程序搜索電腦上所有的MP3文件。2011-01-01
vbs打開ie兩種方法 在VBScript中啟動IE瀏覽器的實現(xiàn)代碼
用VBS打開網(wǎng)頁，減少IE廣告， 不錯的東東，是在網(wǎng)上收集的，你也可以實現(xiàn)網(wǎng)頁的自動登錄等2013-01-01
VBS教程：VBscript語句-For Each...Next 語句
VBS教程：VBscript語句-For Each...Next 語句...2006-11-11
本文給大家分享的是使用vbs來顯示當(dāng)前時間的2個實例，非常的簡單實用，有需要的小伙伴可以參考下。2015-05-05