最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

VBS基礎(chǔ)篇 - vbscript隊列

 更新時間:2018年05月29日 22:45:14   投稿:mdxy-dxy  
VBS中的隊列需要使用System.Collections.Queue,包含隊列的添加元素(入隊)、刪除元素(出隊)、遍歷、統(tǒng)計元素個數(shù)、清空 ,需要的朋友可以參考下

實例代碼

腳本文件:c.vbs,包含隊列的添加元素(入隊)、刪除元素(出隊)、遍歷、統(tǒng)計元素個數(shù)、清空

'建立隊列
Dim Que : Set Que = CreateObject("System.Collections.Queue")

Que.EnQueue("Element1")
Que.EnQueue("Element2")
Que.EnQueue("Element3")

'查看隊列中的元素數(shù)
WScript.Echo "隊列中的元素數(shù): " & 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 "隊列中的元素數(shù): " & Que.Count

調(diào)用方法:通過雙擊c.bat調(diào)用,c.bat代碼如下:

cscript c.vbs
pause

運行結(jié)果截圖:

相關(guān)文章

最新評論

牙克石市| 泸州市| 寿宁县| 黔江区| 榆中县| 南部县| 天水市| 梅河口市| 萨迦县| 金沙县| 宜都市| 平昌县| 五河县| 台东县| 白沙| 安庆市| 青龙| 龙陵县| 仙游县| 海伦市| 开远市| 余姚市| 丹寨县| 玉溪市| 修文县| 龙井市| 贵德县| 重庆市| 平度市| 宜良县| 安图县| 彭山县| 阳泉市| 衡南县| 天台县| 沧源| 鄢陵县| 宽城| 西峡县| 广平县| 南昌市|