VBS使用Scripting.Dictionary字典对象 | Demon's Blog

昵称30598669 2016-02-11

展开全文

标题: VBS使用Scripting.Dictionary字典对象
作者: Demon
链接: http:///copy-paste/vbs-scripting-dictionary-object.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

Scripting.Dictionary是个很有用的组件，其创建了类似于Key索引对应Value值的字典对象，并且在其内部提供了快速索引访问的机制，可以让我们通过Key直接索引到指定的Value，比遍历二维数组有效得多。

其在VBScript中是这样访问的。

Dim objDictSet objDict = WSH.CreateObject('Scripting.Dictionary')' .Add(key, value)    objDict.Add 'a', 'value1'objDict.Add 'b', 'value2'objDict.Add 'c', 'value3''直接通过key=b索引到value2WSH.Echo(objDict.Item('b'))objDict.Remove('b') ' 删除索引b及其对应的值' 以下是遍历字典Dim objKeys, objItems, iobjKeys = objDict.KeysobjItems = objDict.ItemsFor 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 IfobjDict.RemoveAll  ' 清空字典内所有的key及其对应valueSet objDict = Nothing