VBS基础篇 - vbscript队列

实例代码

脚本文件：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

运行结果截图：