【VBScript】連想配列 – Dictionary 存在しないキーの参照時に勝手にキーが作成されてしまう

ホーム　＞　VBScript 逆引きリファレンス

サンプル豊富な逆引きリファレンスはこちら↓↓

【VBScript】現場ですぐに使える！逆引きリファレンス

VBScriptの基礎・基本から応用まで幅広く解説しています。また、機能拡張を行うための部品、関数なども公開しています。

VBScriptにおける、Dictionaryで存在しないキーを参照した際、勝手にキーが作成されてしまうバグ？のようなものがありますので、事象と対策方法を記載しています。

事象
対策

事象

下記の例では、１回目の要素数の確認では「０」と表示され、
２回目の要素数の確認では「１」と表示されます。
要素の確認（キーの参照）を行っただけで、１つ要素が追加されていることが分かります。

Option Explicit

' 連想配列を使用するための宣言
Dim dic
Set dic = CreateObject("Scripting.Dictionary")

' 要素数の確認(1回目)
MsgBox(dic.Count)

' 要素の確認
MsgBox(dic("りんご"))

' 要素数の確認(2回目)
MsgBox(dic.Count)

対策

下記のように、キーの参照を行う際、「dic.Exists(“りんご”)」（キーの存在チェック）を使用し、事前に確認しておくことで、存在しないキーへの参照を防ぐことが可能です。

例では、キーが存在する場合のみ、キーの参照を行っていますが、キーが存在しないので、要素数の確認では、いずれも「０」と表示されます。

Option Explicit

' 連想配列を使用するための宣言
Dim dic
Set dic = CreateObject("Scripting.Dictionary")

' 要素数の確認(1回目)
MsgBox(dic.Count)

' 要素の確認
If(dic.Exists("りんご"))Then
	MsgBox(dic("りんご"))
End If

' 要素数の確認(2回目)
MsgBox(dic.Count)

リンク