【VBS】ArrayList

前述

VBScript（WSH）で動的配列のArrayListを使いたい。
配列を使って要素が増える度にReDimするのは面倒くさいので、.NetのArrayListオブジェクトを作成して使う。
言語仕様的に使えないメソッドもあるようだが、SortやClearも使うことができる。

ソース

ArrayList

Option Explicit

' ArrayList作成
Dim ary
Set ary = CreateObject("System.Collections.ArrayList")

' 要素追加
ary.add "AK-47"
ary.add "M4"
ary.add "G3"

' 要素数取得
Dim num
num = ary.Count

WScript.Echo "要素数: " & num

' For Each文によるループ処理
Dim item
For Each item In ary
    WScript.Echo item
Next

' 要素ソート
ary.Sort

For Each item In ary
    WScript.Echo item
Next

' 要素クリア
ary.Clear


' 破棄
Set ary = Nothing