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

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

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

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

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

syutaku.blog

2024.07.09

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

事象

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

Option Explicit

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

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

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

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

対策

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

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)