今天就跟大家聊聊有关怎么在VBS中实现vbscript堆栈,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。
脚本文件:d.vbs,包含堆栈的添加元素(压栈)、删除元素(出栈)、遍历、统计元素个数、清空
Option Explicit'建立堆栈Dim Stk : Set Stk = CreateObject("System.Collections.Stack")Stk.Push "Element1"Stk.Push "Element2"Stk.Push "Element3"'查看堆栈中的元素数WScript.Echo "堆栈中的元素数: " & Stk.CountWScript.Echo'遍历堆栈Sub TraverseStk Dim ArrStk : ArrStk = Stk.ToArray Dim Counter For Counter = 0 To UBound(ArrStk) WScript.Echo ArrStk(Counter) NextEnd SubTraverseStkWScript.Echo'元素出栈WScript.Echo Stk.PopWScript.Echo "---"TraverseStkWScript.Echo'清空堆栈Stk.ClearWScript.Echo "堆栈中的元素数: " & Stk.Count
调用方法:通过双击d.bat调用,d.bat代码如下:
cscript d.vbs
pause
运行结果截图:
看完上述内容,你们对怎么在VBS中实现vbscript堆栈有进一步的了解吗?如果还想了解更多知识或者相关内容,请关注编程网行业资讯频道,感谢大家的支持。