VBScript辞書が存在するメソッドは常にTrueを返します

Question

何が間違っていますか？私のテストから、objDic.existsはFalseを与えてくれません！

dim objDic 

    set objDic = createobject("scripting.dictionary") 

    objDic.add "test","I have not been deleted" 

    wscript.echo objDic.item("test") 'Displays -- I have not been deleted 

    objDic.remove "test" 

    wscript.echo """" & objDic.item("test") & """" 'Displays -- "" 

    if objDic.exists("test") then wscript.echo """" & objDic.item("test") & """" 'Displays -- "" 

Answer 1

私が知る限りでは、辞書オブジェクトキーは、それが存在するかのように参照するだけで作成されます。

wscript.echo objDic.Item("test") 'Creates the key whether it exists or not 
wscript.echo objDic.Exists("test") 'Will now return true 

ここでは、私の理論を証明したりテストしたりするためのコードがいくつかあります。私は通常、WScript.Echoの代わりにMsgBoxを使用しています。これは私のコードで分かります。

dim objDic, brk 
brk = vbcrlf & vbcrlf 
set objDic = createobject("scripting.dictionary") 
objDic.add "test","I have not been deleted" 
wscript.echo "objDic.Exists(""test""): " & brk & objDic.item("test") 
WScript.Echo "Now going to Remove the key named: test" 
objDic.remove "test" 
MsgBox "objDic.Exists(""test""): " & brk & objDic.Exists("test") 'Returns False 
wscript.echo "objDic.item(""test""): " & brk & objDic.item("test") 'Shows Blank, Creates the key again with a blank value 
wscript.echo "objDic.item(""NeverAdded""): " & brk & objDic.item("NeverAdded") 'Also shows blank, does not return an error 
MsgBox "objDic.Exists(""test""): " & brk & objDic.Exists("test") 'Returns True 

Answer 2

私の質問には答えられませんでした。私はこのスレッドがGoogleの最初の結果であるので、私は私の解決策を投稿しているので、他の人のどちらかを想像します。

キーが存在しない場合、デフォルトで作成されます。ディクショナリは、存在しない場合はエントリを追加するためのもので、以下の場合は常にtrueを返します。

If objDic.exists("test") then 

キーは存在をテストするときに作成されるため、値は定義されていません。以下に、Keyに値が関連付けられていないかどうかをテストします。もちろん空白の値がある場合、これはあなたの辞書では機能しません。

If objDic.item("test") <> "" then 

Answer 3

IDEから、辞書に関係するすべての監視変数を削除します。繰り返すことができます。このように動作を引き起こす/修正することができます（Outlook 2010 VBA IDE）。私が推測するオブザーバー効果のような並べ替え。 。 。

-M

Answer 4

が...ここに私のコードで
を同じ問題を抱えていた、辞書の動的配列があります。
エントリの一部にキー「HIGH」がありますが、一部は表示されません。各エントリのキーの存在のため
テストは常にtrueを返し：私は、変数を見た場合

for each dictionary_entry in dictionary_array 
     if dictionary_entry.Exists("HIGH") then msgbox("Hey, I have a HIGH key, and its value is " + dictionary_entry("HIGH)) 
next 

デバッガは、すべてのdictionary_entryのための「HIGH」キーを作成しました。
dictionary_entryとdictionary_arrayの両方を削除して、コードを正常に動作させる必要がありました。