實(shí)例代碼
腳本文件:c.vbs,包含隊(duì)列的添加元素(入隊(duì))、刪除元素(出隊(duì))、遍歷、統(tǒng)計(jì)元素個(gè)數(shù)、清空
'建立隊(duì)列 Dim Que : Set Que = CreateObject("System.Collections.Queue") Que.EnQueue("Element1") Que.EnQueue("Element2") Que.EnQueue("Element3") '查看隊(duì)列中的元素?cái)?shù) WScript.Echo "隊(duì)列中的元素?cái)?shù): " Que.Count WScript.Echo '遍歷隊(duì)列 Sub TraverseQue Dim ArrQue : ArrQue = Que.ToArray Dim Counter For Counter = 0 To UBound(ArrQue) WScript.Echo ArrQue(Counter) Next End Sub TraverseQue WScript.Echo '退出隊(duì)列 WScript.Echo Que.DeQueue WScript.Echo "---" TraverseQue WScript.Echo '清空隊(duì)列 Que.Clear WScript.Echo "隊(duì)列中的元素?cái)?shù): " Que.Count
調(diào)用方法:通過(guò)雙擊c.bat調(diào)用,c.bat代碼如下:
cscript c.vbs
pause
運(yùn)行結(jié)果截圖:
標(biāo)簽:鶴壁 西安 湖州 邢臺(tái) 文山 銅川 四平
巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《VBS基礎(chǔ)篇 - vbscript隊(duì)列》,本文關(guān)鍵詞 VBS,基礎(chǔ),篇,vbscript,隊(duì)列,;如發(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)。