主頁(yè) > 知識(shí)庫(kù) > VBS基礎(chǔ)篇 - vbscript堆棧

VBS基礎(chǔ)篇 - vbscript堆棧

熱門標(biāo)簽:東營(yíng)快遞外呼系統(tǒng) 齊齊哈爾高德地圖標(biāo)注店 哪里有便宜的地圖標(biāo)注公司 神行者美術(shù)館地圖標(biāo)注 除了地圖標(biāo)注還有這種生意嗎 佛山真人電銷機(jī)器人廠家 百度地圖標(biāo)注點(diǎn)距離代碼 如何用機(jī)器人進(jìn)行電銷 地圖標(biāo)注政府哪個(gè)部門管

實(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ì)和壓棧的順序

標(biāo)簽:鶴壁 銅川 邢臺(tái) 文山 西安 湖州 四平 巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《VBS基礎(chǔ)篇 - vbscript堆?!?,本文關(guān)鍵詞  VBS,基礎(chǔ),篇,vbscript,堆棧,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。

  • 相關(guān)文章
  • 下面列出與本文章《VBS基礎(chǔ)篇 - vbscript堆?!废嚓P(guān)的同類信息!
  • 本頁(yè)收集關(guān)于VBS基礎(chǔ)篇 - vbscript堆棧的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章