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