VBS基础篇 - vbscript堆栈
2018-05-29 22:52
811 查看
实例代码
脚本文件: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基础篇 - vbscript Dictionary对象
- VBS基础篇 - 对象(1) - Class对象
- VBS基础篇 - 常数(2) - VBScript 常数(1)
- VBS基础篇 - 对象(4) - Drive对象
- VBS基础篇 - 数组
- VBS基础篇 - 内置函数
- VBS基础篇 - vbscript动态数组
- VBS基础篇 - VBScript过程
- VBS基础篇 - 常数(2) - VBScript 常数(2)
- VBS基础篇 - 对象(5) - File对象
- VBS基础篇 - 常量
- VBS基础篇 - vbscript队列
- VBS基础篇 - 循环语句(4) - For Each...Next
- VBS基础篇 - 运算符(1) - 运算符优先级
- VBS基础篇 - 对象(6) - Folder对象
- VBS基础篇 - class
- VBS基础篇 - 条件语句
- VBS基础篇 - 数据类型
- VBS基础篇 - 循环语句(3) - For...Next
- VBS基础篇 - 运算符(2) - 算术运算符