VBS使用Scripting.Dictionary字典對象
標簽： Scripting.Dictionary, VBS, VBScript, 字典
標題: VBS使用Scripting.Dictionary字典對象
作者: Demon
鏈接: http://demon.tw/copy-paste/vbs-scripting-dictionary-object.html
版權: 本博客的所有文章，都遵守“署名-非商業性使用-相同方式共享 2.5 中國大陸”協議條款。
Scripting.Dictionary是個很有用的組件，其創建了類似於Key索引對應Value值的字典對象，並且在其內部提供了快速索引訪問的機制，可以讓我們通過Key直接索引到指定的Value，比遍歷二維數組有效得多。
其在VBScript中是這樣訪問的。
Dim objDict
Set objDict = WSH.CreateObject("Scripting.Dictionary")
' .Add(key, value)
objDict.Add "a", "value1"
objDict.Add "b", "value2"
objDict.Add "c", "value3"
'直接通過key=b索引到value2
WSH.Echo(objDict.Item("b"))
objDict.Remove("b") ' 刪除索引b及其對應的值
' 以下是遍歷字典
Dim objKeys, objItems, i
objKeys = objDict.Keys
objItems = objDict.Items
For i = 0 To objDict.Count - 1
WSH.Echo("Key=" & objKeys(i) & _
" AND Value=" & objItems(i));
Next
' 判斷指定的key是否存在
If objDict.Exists("b") Then
WSH.Echo("Found it")
Else
WSH.Echo("Not Exists!")
End If
objDict.RemoveAll ' 清空字典內所有的key及其對應value
Set objDict = Nothing