VBS中的队列需要使用System.Collections.Queue,包含队列的添加元素(入队)、删除元素(出队)、遍历、统计元素个数、清空,需要的朋友可以参考下

实例代码

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

运行结果截图:

最新资讯
风暴中的OYO:我们不是拼多多

风暴中的OYO:我们不是

中国万亿规模的单体酒店市场风起云涌,OYO狂飙突进的同
美媒:孙正义投资比特币巨亏 损失达1.3亿美元

美媒:孙正义投资比特币

知情人士称,无法确定孙正义的确切投资规模。但直到2018
直击|联想刘军:收购摩托罗拉手机后 终于盈利了

直击|联想刘军:收购摩

联想集团今日举行新品发布会。联想集团执行副总裁兼中
吴晓波:罗永浩犯了两个错误 第一梦太大第二入错行

吴晓波:罗永浩犯了两个

新浪商课连续三天直播“吴晓波解读大败局”。本次直播
左晖:房地产由增量转向存量 贝壳要成月活过亿平台

左晖:房地产由增量转向

“今天中国整个不动产的发展的确到了新阶段,过去20年行
三星确认将收回Galaxy Fold折叠屏手机:还要改进

三星确认将收回Galaxy

4月23日,三星电子中国方面向北京青年报记者确认,将收回G
最新文章
VBS基础篇 - VBScript过程(使用sub 与 Function定义函数)

VBS基础篇 - VBScript

在 VBScript 中,过程被分为两类:Sub 过程和 Function 过
VBS基础篇 - 循环(for、Do、While)

VBS基础篇 - 循环(for

经常地,当编写代码时,我们希望将一段代码执行若干次,我们
VBS基础篇 - vbscript class类的定义与使用

VBS基础篇 - vbscript

vbs Class就是声明一个类的名称,以及组成该类的变量、
VBS基础篇 - vbscript Dictionary对象

VBS基础篇 - vbscript

Dictionary是存储数据键和项目对的对象,其主要属性有Co
VBS基础篇 - vbscript动态数组

VBS基础篇 - vbscript

VBS中的动态数组需要使用System.Collections.ArrayLis
vbs操作txt文本文件常用方法与函数代码

vbs操作txt文本文件常

这篇文章主要介绍了vbs操作txt文本文件常用方法与函数