VBS基础篇 - vbscript堆栈
更新时间：2018年05月29日 22:52:54 投稿：mdxy-dxy
VBS中的堆栈需要使用System.Collections.Stack，下面的代码包含堆栈的添加元素（压栈）、删除元素（出栈）、遍历、统计元素个数、清空,需要的朋友可以参考下
实例代码
脚本文件：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
运行结果截图：
可以看出，遍历队列和堆栈时，遍历顺序时由出队和出栈的顺序决定的，而不是入队和压栈的顺序
相关文章
VBS教程：属性-Path 属性...2006-11-11
在网上看到N多人做radmin后门，要导出注册表而且还用被杀软件K杀。所以本人把自己写的脚本提供大家分享。比较实用，希望大家喜欢。2008-06-06
自动以管理员身份运行批处理bat文件(vbs与bat两种方法)
在日常运维工作中，为方便对windows用户进行系统安装或配置等，使用Windows自带的批处理(bat文件)是一种最为简单快速的方法2020-08-08
一个可以更换windows xp or 2003的序列号的vbs脚本
一个可以更换windows xp or 2003的序列号的vbs脚本...2007-02-02
使用vbs处理txt数据时，会遇到一些问题，本文将提供详细的解决方法，希望可以帮助你们2012-12-12
使用 GetObject 函数可以访问文件中的 Automation 对象，而且可以将该对象赋值给对象变量。使用 Set 语句将 GetObject 返回的对象赋值给对象变量。2006-11-11
如果你想用递归搜索我也没办法。下面的程序搜索电脑上所有的MP3文件。2011-01-01
vbs打开ie两种方法 在VBScript中启动IE浏览器的实现代码
用VBS打开网页，减少IE广告， 不错的东东，是在网上收集的，你也可以实现网页的自动登录等2013-01-01
VBS教程：VBscript语句-For Each...Next 语句
VBS教程：VBscript语句-For Each...Next 语句...2006-11-11
本文给大家分享的是使用vbs来显示当前时间的2个实例，非常的简单实用，有需要的小伙伴可以参考下。2015-05-05
最新评论