VBS基础篇 - vbscript队列_VBS

实例代码

脚本文件：c.vbs，包含队列的添加元素（入队）、删除元素（出队）、遍历、统计元素个数、清空

				?

									'建立队列

									Dim Que : Set Que = CreateObject("System.Collections.Queue")

									Que.EnQueue("Element1")

									Que.EnQueue("Element2")

									Que.EnQueue("Element3")

									'查看队列中的元素数

									WScript.Echo "队列中的元素数: " & Que.Count

									WScript.Echo

									'遍历队列

									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

									'退出队列

									WScript.Echo Que.DeQueue

									WScript.Echo "---"

									TraverseQue

									WScript.Echo

									'清空队列

									Que.Clear

									WScript.Echo "队列中的元素数: " & Que.Count

调用方法：通过双击c.bat调用，c.bat代码如下：

cscript c.vbs
pause

运行结果截图：

VBS基础篇 - vbscript队列

VBS基础篇 - vbscript队列

相关文章

热门资讯