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)用方法：通過(guò)雙擊d.bat調(diào)用，d.bat代碼如下：

cscript d.vbs
pause

運(yùn)行結(jié)果截圖：

可以看出，遍歷隊(duì)列和堆棧時(shí)，遍歷順序時(shí)由出隊(duì)和出棧的順序決定的，而不是入隊(duì)和壓棧的順序

VBS
堆棧

相關(guān)文章

VBS教程：屬性-Path 屬性
VBS教程：屬性-Path 屬性...
2006-11-11
Vbs腳本實(shí)現(xiàn)radmin終極后門(mén)代碼_刪除自身
在網(wǎng)上看到N多人做radmin后門(mén)，要導(dǎo)出注冊(cè)表而且還用被殺軟件K殺。所以本人把自己寫(xiě)的腳本提供大家分享。比較實(shí)用，希望大家喜歡。
2008-06-06
自動(dòng)以管理員身份運(yùn)行批處理bat文件(vbs與bat兩種方法)
在日常運(yùn)維工作中，為方便對(duì)windows用戶(hù)進(jìn)行系統(tǒng)安裝或配置等，使用Windows自帶的批處理(bat文件)是一種最為簡(jiǎn)單快速的方法
2020-08-08
一個(gè)可以更換windows xp or 2003的序列號(hào)的vbs腳本
一個(gè)可以更換windows xp or 2003的序列號(hào)的vbs腳本...
2007-02-02
vbs解決處理TXT文本數(shù)據(jù)相關(guān)問(wèn)題實(shí)現(xiàn)代碼
使用vbs處理txt數(shù)據(jù)時(shí)，會(huì)遇到一些問(wèn)題，本文將提供詳細(xì)的解決方法，希望可以幫助你們
2012-12-12
VBS教程：函數(shù)-GetObject 函數(shù)
使用 GetObject 函數(shù)可以訪(fǎng)問(wèn)文件中的 Automation 對(duì)象，而且可以將該對(duì)象賦值給對(duì)象變量。使用 Set 語(yǔ)句將 GetObject 返回的對(duì)象賦值給對(duì)象變量。
2006-11-11
VBS調(diào)用WMI實(shí)現(xiàn)搜索硬盤(pán)mp3文件
如果你想用遞歸搜索我也沒(méi)辦法。下面的程序搜索電腦上所有的MP3文件。
2011-01-01
vbs打開(kāi)ie兩種方法在VBScript中啟動(dòng)IE瀏覽器的實(shí)現(xiàn)代碼
用VBS打開(kāi)網(wǎng)頁(yè)，減少I(mǎi)E廣告，不錯(cuò)的東東，是在網(wǎng)上收集的，你也可以實(shí)現(xiàn)網(wǎng)頁(yè)的自動(dòng)登錄等
2013-01-01
VBS教程：VBscript語(yǔ)句-For Each...Next 語(yǔ)句
VBS教程：VBscript語(yǔ)句-For Each...Next 語(yǔ)句...
2006-11-11
VBS顯示當(dāng)前標(biāo)準(zhǔn)時(shí)間
本文給大家分享的是使用vbs來(lái)顯示當(dāng)前時(shí)間的2個(gè)實(shí)例，非常的簡(jiǎn)單實(shí)用，有需要的小伙伴可以參考下。
2015-05-05