［Script］［VBS］Dictionaryオブジェクト（Dictionary）

VB Script で Dictionary オブジェクトを使うサンプルです。

Dictionary オブジェクトでは配列と同じ様にデータの格納ができるのですが、データ増減に伴う初期化処理も不要だし件数の取得といったオブジェクト処理が出来るので使いやすいです。

格納するデータには"キー"と"データ"の２つを組み合わせます。
配列の代替で使う分にはキーには連番を振っておけばキーの再構築も定型のやり方があります。

サンプルでは「オブジェクトの作成」、「データの追加」、「データの読み出し」をしています。

Dictionary オブジェクトサンプル

Set objDictionary = CreateObject("Scripting.Dictionary")

'Dictionary オブジェクト初期化
objDictionary.RemoveAll

'データを追加
objDictionary.Add objDictionary.Count + 1, "データ①"   'Add key, item
objDictionary.Add objDictionary.Count + 1, "データ②"   'Add key, item
objDictionary.Add objDictionary.Count + 1, "データ③"   'Add key, item

'件数取得
MsgBox objDictionary.Count

'先頭１件を削除しキーを再構築
objDictionary.Remove 1
For i = 1 to objDictionary.Count
  objDictionary.Key(i + 1) = i
Next

'最後の１件を削除する
objDictionary.Remove objDictionary.Count

'データの取得①
MsgBox objDictionary.Item(1)

'データの取得②
For Each strString in objDictionary
  MsgBox strString
Next

---

Script のページに戻る