VBS基础篇 - vbscript堆栈
- 作者: 我叫小小猫
- 来源: 51数据库
- 2021-07-07
实例代码
脚本文件：d.vbs，包含堆栈的添加元素（压栈）、删除元素（出栈）、遍历、统计元素个数、清空
option explicit
'建立堆栈
dim stk : set stk = createobject("system.collections.stack")
stk.push "element1"
stk.push "element2"
stk.push "element3"
'查看堆栈中的元素数
wscript.echo "堆栈中的元素数: " & stk.count
wscript.echo
'遍历堆栈
sub traversestk
dim arrstk : arrstk = stk.toarray
dim counter
for counter = 0 to ubound(arrstk)
wscript.echo arrstk(counter)
next
end sub
traversestk
wscript.echo
'元素出栈
wscript.echo stk.pop
wscript.echo "---"
traversestk
wscript.echo
'清空堆栈
stk.clear
wscript.echo "堆栈中的元素数: " & stk.count
调用方法：通过双击d.bat调用，d.bat代码如下：
cscript d.vbs
pause
运行结果截图：
可以看出，遍历队列和堆栈时，遍历顺序时由出队和出栈的顺序决定的，而不是入队和压栈的顺序
推荐阅读
