佛系彼得潘 發表於 2018-5-29 22:52:54

VBS基础篇 - vbscript堆栈

<p>实例代码</p>
<p>脚本文件：d.vbs，包含堆栈的添加元素（压栈）、删除元素（出栈）、遍历、统计元素个数、清空</p>
<div class="jb51code">
<pre class="brush:vb;">
Option Explicit

'建立堆栈
Dim Stk : Set Stk = CreateObject("System.Collections.Stack")

Stk.Push "Element1"
Stk.Push "Element2"
Stk.Push "Element3"

'查看堆栈中的元素数
WScript.Echo "堆栈中的元素数: " &amp; 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 "堆栈中的元素数: " &amp; Stk.Count</pre>
</div>
<p>调用方法：通过双击d.bat调用，d.bat代码如下：</p>
<blockquote>
<p>cscript d.vbs<br />
pause</p>
</blockquote>
<p>运行结果截图：</p>
<p><img src="https://img.jbzj.com/file_images/article/201805/20180529215957.png" alt="" /></p>
<p>可以看出，遍历队列和堆栈时，遍历顺序时由出队和出栈的顺序决定的，而不是入队和压栈的顺序</p>
頁: [1]
查看完整版本: VBS基础篇 - vbscript堆栈