打开APP
userphoto
未登录

开通VIP,畅享免费电子书等14项超值服

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

标题: VBS使用Scripting.Dictionary字典对象
作者: Demon
链接: http://demon.tw/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

原文链接:http://wangye.org/blog/archives/60/

随机文章:

这篇文章发布于 2012年02月16日,星期四,23:00,归类于 复制粘贴。 您可以跟踪这篇文章的评论通过 RSS 2.0feed。 您可以留下评论,或者从您的站点trackback

本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报
打开APP,阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
excel编程vba中的字典用法CreateObject('Scripting.Dictionary...
vbs的一些用法
妙用脚本和批处理 来清除电脑中的痕迹
VBA入门:字典对象
VBA进阶 | Dictionary对象应用大全2:属性和方法
走近WSH
更多类似文章 >>
生活服务
热点新闻
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!

联系客服