首页 > 代码库 > VBS使用Scripting.Dictionary字典对象
VBS使用Scripting.Dictionary字典对象
VBS使用Scripting.Dictionary字典对象
标题: 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="http://www.mamicode.com/& objItems(i));"b") Then WSH.Echo("Found it") Else WSH.Echo("Not Exists!") End If objDict.RemoveAll ‘ 清空字典内所有的key及其对应value Set objDict = Nothing
原文链接:http://wangye.org/blog/archives/60/
相关文章:
- VBS Scripting.Dictionary字典对象按键名Key进行冒泡排序
- QWERTY密码:加密与解密
- 对VBS效率的再思考——处理二进制数据
- 用VBS实现Bencode算法
- VBS中字符串连接的效率问题
VBS使用Scripting.Dictionary字典对象
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。