VBSの基本 - vbscriptスタック

Option Explicit

'Create the stack
Dim Stk : Set Stk = CreateObject("System.Collections.Stack")

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

'View the number of elements in the stack
WScript.Echo "Number of elements in the stack: " & Stk.Count

WScript.Echo

'Traverse the stack
Sub TraverseStk
  Dim ArrStk : ArrStk = Stk.ToArray
  Dim Counter
  For Counter = 0 To UBound(ArrStk)
    WScript.Echo ArrStk(Counter)
  Next
End Sub
TraverseStk

WScript.

'Element out of stack
WScript.Echo Stk.Pop
WScript.Echo "---"
TraverseStk

WScript.

'Clear the stack
Stk.Clear
WScript.Echo "Number of elements in stack: " & Stk.Count