VBS使用Scripting.Dictionary字典对象

标签： , , ,

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

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

赞赏

微信赞赏支付宝赞赏

相关文章:

  1. VBS Scripting.Dictionary字典对象按键名Key进行冒泡排序
  2. QWERTY密码：加密与解密
  3. 对VBS效率的再思考——处理二进制数据
  4. 用VBS实现Bencode算法
  5. VBS中字符串连接的效率问题

随机文章:

  1. 使用Rundll32运行DLL中的函数
  2. 使用正确版本的XMLHTTP
  3. WinImage 8.50注册码
  4. VBS ByRef和ByVal参数
  5. VBS转EXE工具：ExeScript

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

留下回复