VBS基礎(chǔ)篇 - vbscript堆棧
更新時(shí)間：2018年05月29日 22:52:54 投稿：mdxy-dxy
VBS中的堆棧需要使用System.Collections.Stack，下面的代碼包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統(tǒng)計(jì)元素個(gè)數(shù)、清空,需要的朋友可以參考下
實(shí)例代碼
腳本文件：d.vbs，包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統(tǒng)計(jì)元素個(gè)數(shù)、清空
Option Explicit
'建立堆棧
Dim Stk : Set Stk = CreateObject("System.Collections.Stack")
Stk.Push "Element1"
Stk.Push "Element2"
Stk.Push "Element3"
'查看堆棧中的元素?cái)?shù)
WScript.Echo "堆棧中的元素?cái)?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 "堆棧中的元素?cái)?shù): " & Stk.Count
調(diào)用方法：通過雙擊d.bat調(diào)用，d.bat代碼如下：
cscript d.vbs
pause
運(yùn)行結(jié)果截圖：
可以看出，遍歷隊(duì)列和堆棧時(shí)，遍歷順序時(shí)由出隊(duì)和出棧的順序決定的，而不是入隊(duì)和壓棧的順序
相關(guān)文章
VBS教程：對(duì)象-Folders 集合...2006-11-11
VBScript版的PHP extract()函數(shù)
這篇文章主要介紹了VBScript版的PHP extract()函數(shù),extract函數(shù)主要作用是把數(shù)組轉(zhuǎn)換成變量,非常好用的一個(gè)函數(shù),需要的朋友可以參考下2014-06-06
前兩天寫了個(gè)批處理的，效率不高，百度、谷歌后找到一個(gè)更好的辦法2013-07-07
輸入mdb數(shù)據(jù)庫(kù)即可將打包的mdb文件解包
2008-01-01
VBScript教程 第十三課 VBScript與窗體...2006-11-11
腳本編程 4 驅(qū)動(dòng)器...2007-02-02
用vbs讀取文本文件的最后一行...2007-03-03
vbs 中調(diào)用shell.application 簡(jiǎn)單函數(shù)
vbs實(shí)現(xiàn)的調(diào)用系統(tǒng)命令執(zhí)行的函數(shù)，可以根據(jù)用戶選擇運(yùn)行指定的程序2008-06-06
VBS教程：函數(shù)-StrComp 函數(shù)...2006-11-11
用vbs實(shí)現(xiàn)編碼轉(zhuǎn)換2008-06-06