Set ri = CreateObject("Scripting.Dictionary") ri.Add "Apple", 1 ' 追加 ri.Item("Apple") = 1 ' 追加/更新 ri("Apple") = 2 ' これもあり ri.Exists "Apple" ' 存在確認(true/false) ri.Remove "Apple" ' 削除 Val = ri.item("Apple") ' 値取りだし Val = ri("Apple") ' これもあり KeysArray = ri.Keys ' キーの配列返す ItemsArray = ri.Items ' 値の配列を返す
Scripting.Dictionary
オブジェクトを利用して連想配列を処理しています。
他の言語でもおなじみのメソッド群(追加/削除/存在確認/キー・値の取得)が準備されています。