Dictionary 对象使用详解

chishingchan

本人N年前已开始接触 VBScript 脚本编程，关于 VBScript 的资料官方及网络可谓十分的丰富，所以学习起来很容易上手！前几年认识了 AutoIt 后，觉得后者比前者更有界面上的优势，后来就开始慢慢的学习 AutoIt 编程。AutoIt 应该可以将 VBScript 的可用对象之类的东东转移到 AutoIt 上使用，例如：Dictionary 对象。觉得 Dictionary 对象比数组处理的方便容易。以下内容是根据微软官方提供的资料整理出来的，比较易懂！本人检阅了一下，如有错漏在所难免，请指正。

Dictionary 对象
描述
        保存数据键和项目对的对象。
语法
        Scripting.Dictionary
说明
        Dictionary 对象与 PERL 关联数组是等价的。项目（可以是任何形式的数据）被保存在数组中。每项都与唯一的键相关联。键值用于检索单个项目，通常是整数或字符串，但不能为数组。
        创建 Dictionary 对象：

Dim $Object
$Object = ObjCreate("Scripting.Dictionary");创建 Dictionary 对象

CompareMode 属性
描述
        设置并返回在 Dictionary 对象中比较字符串关键字的比较模式。
语法
        $Object.CompareMode[ = compare]
        CompareMode 属性有以下部分：

        部分         描述
        $Object        必选。Dictionary 对象的名称。
        compare        可选。如果提供此参数，compare 参数为数值，表示由函数如 StrComp 使用的比较模式。
        设置
        compare 参数设置如下:
        常量                        值        描述
        $BinaryCompare        0        执行二进制比较.
        $TextCompare        1        执行文本比较.
说明
        大于 2 的值可用来进行使用区别 Ids 的比较 (LCID)如果试图更改已经包含数据的 Dictionary 对象的比较模式，则会出现错误。
        CompareMode 属性使用与 StrComp 函数中 compare 参数相同的值。

Const $BinaryCompare = 0
Const $TextCompare = 1
Dim $Object
$Object = ObjCreate("Scripting.Dictionary");创建 Dictionary 对象
$Object.CompareMode = $TextCompare;比较模式
$Object.Add("a", "第一行");添加键(Key)和项目(Item)
$Object.Add("b", "第二行")
$Object.Add("B", "第三行");因文本比较模式，且存在b键，此行添加失败
.
.
.

Count 属性
描述
        返回一个集合或 Dictionary 对象包含的项目数。只读。
语法
        $Object.Count
        $Object 可以是“应用于”列表中列出的任何集合或对象的名称。
说明
        以下代码举例说明如何使用 Count 属性：

Dim $Object,$Count
$Object = ObjCreate("Scripting.Dictionary");创建 Dictionary 对象
$Object.Add("a", "第一行");添加键(Key)和项目(Item)
$Object.Add("b", "第二行")
$Count = $Object.Count -1
MsgBox(0,"$Object.Count",$Count)

Item 属性
描述
        设置或返回 Dictionary 对象中指定的 key 对应的 item，或返回集合中基于指定的 key 的 item。可读写。
语法
        $Object.Item(key) [= newitem]
        Item 属性的语法有以下部分：
        部分        描述
        $Object        必选。应为集合或 Dictionary 对象的名称
        key                必选。与检索或添加的 item 相关联的 key。
        newitem        可选。仅用于 Dictionary 对象，不能应用于集合。如果提供此参数，则 newitem 是与指定的 key 相关联的项目的新值。
说明
        如果更改 item 时未找到 key，则使用指定的 newitem 创建一个新的 key。如果试图返回一个已有项目时未找到 key，则创建一个新的 key 并且它对应的项目为空值。

Dim $Object,$Key
$Object = ObjCreate("Scripting.Dictionary");创建 Dictionary 对象
$Object.Add("a", "第一行");添加键(Key)和项目(Item)
$Object.Add("b", "第二行")
$Key = $Object.Item("b");得到项目值
MsgBox(0,"$Object.Item",$Key)

Key 属性
描述
        在 Dictionary 对象中设置 key。
语法
        $Object.Key(key) = newkey
        Key 属性结构如下：
        参数        描述
        $Object        必选。通常是 Dictionary 对象的名称。
        key                必选。要改变的 Key 值。
        newkey        必选。代替指定 key 值的新值。
说明
        如果在更改 key 值时未找到 key，则出现运行时错误。
        下面例子举例说明如何使用 Key 属性:

Dim $Object,$Item
$Object = ObjCreate("Scripting.Dictionary");创建 Dictionary 对象
$Object.Add("a", "第一行");添加键(Key)和项目(Item)
$Object.Add("b", "第二行")
$Object.Key("b") = "c";将"b"的键设置为"c"
$Item = $Object.Item("c");返回相关项目
MsgBox(0,"$Object.Item",$Item)

Add 方法
描述
        向 Dictionary 对象添加键和项目对。
语法
        $object.Add(key,item)
        Add 方法的语法有以下部分：
        部分        描述
        $object        必选。应为 Dictionary 对象的名称。
        key                必选。与添加的 item 相关的 key。
        item        必选。与添加的 key 相关的 item。
说明
        如果 key 已经存在，则会出现错误。
        下面例子举例说明如何使用 Add 方法：

Dim $Object
$Object = ObjCreate("Scripting.Dictionary");创建 Dictionary 对象
$Object.Add("a", "第一行");添加键(Key)和项目(Item)
$Object.Add("b", "第二行")
.
.
.

Exists 方法
描述
        如果在 Dictionary 对象中存在指定键，返回 True；如果不存在，返回 False。
语法
        $object.Exists(key)
        Exists 方法的语法有以下部分：
        参数        描述
        $object        必选。应为 Dictionary 对象的名称。
        key                必选。Key 为在 Dictionary 对象中要查找的值。
说明
        下面例子举例说明如何使用 Exists 方法:

Dim $Object,$Msg
$Object = ObjCreate("Scripting.Dictionary");创建 Dictionary 对象
$Object.Add("a", "第一行");添加键(Key)和项目(Item)
$Object.Add("b", "第二行")
If $Object.Exists("c") Then
        $Msg = "指定的键存在。"
Else
        $Msg = "指定的键不存在。"
EndIf
MsgBox(0,"$Object.Exists",$Msg)

Items 方法
描述
        返回一个数组，其中包含有 Dictionary 对象中的所有项目。
语法
        $object.Items
        $object 应为 Dictionary 对象的名称。
说明
        以下代码举例说明如何使用 Items 方法：

Dim $Object,$Item,$Msg
$Object = ObjCreate("Scripting.Dictionary");创建 Dictionary 对象
$Object.Add("a", "第一行");添加键(Key)和项目(Item)
$Object.Add("b", "第二行")
$Object.Add("c", "第三行")
$Item = $Object.Items;获取项目
For $i = 0 To $Object.Count -1;循环使用数组
        $Msg &= $Item[$i] & @CRLF;创建返回字符串
Next
MsgBox(0,"$Object.Item",$Msg)

Keys 方法
描述
        返回一数组，其中包含有 Dictionary 对象的所有现存键。
语法
        $object.Keys
        $object 应为 Dictionary 对象的名称。
说明
        下列代码举例说明如何使用 Keys 方法：

Dim $Object,$Keys,$Msg
$Object = ObjCreate("Scripting.Dictionary");创建 Dictionary 对象
$Object.Add("a", "第一行");添加键(Key)和项目(Item)
$Object.Add("b", "第二行")
$Object.Add("c", "第三行")
$Keys = $Object.Keys;获取键
For $i = 0 To $Object.Count -1;循环使用数组
        $Msg &= $Keys[$i] & @CRLF;创建返回字符串
Next
MsgBox(0,"$Object.Keys",$Msg)

Remove 方法
描述
        从 Dictionary 对象中删除键和项目对。
语法
        $object.Remove(key)
        Remove 方法的语法有以下部分：
        部分        描述
        object        必选。应为 Dictionary 对象的名称。
        key                必选。与要从 Dictionary 对象中删除的键和项目对相关联的 Key。
说明
        如果指定的键和项目对不存在，则会出现错误。
        下列代码示范如何使用 Remove 方法：

Dim $Object
$Object = ObjCreate("Scripting.Dictionary");创建 Dictionary 对象
$Object.Add("a", "第一行");添加键(Key)和项目(Item)
$Object.Add("b", "第二行")
$Object.Add("c", "第三行")
$Object.Remove("b");删除第二个键(Key)和项目(Item)
.
.
.

RemoveAll 方法
描述
        RemoveAll 方法删除 Dictionary 对象中的所有键和项目对。
语法
        $object.RemoveAll
        $object 应为 Dictionary 对象的名称。
说明
        下列代码举例说明如何使用 RemoveAll 方法：

Dim $Object
$Object = ObjCreate("Scripting.Dictionary");创建 Dictionary 对象
$Object.Add("a", "第一行");添加键(Key)和项目(Item)
$Object.Add("b", "第二行")
$Object.Add("c", "第三行")
$Object.RemoveAll;清除 Dictionary
.
.
.

chishingchan

要学习 VBScript 或转化 VBScript 脚本到 AutoIt 里使用，查找更多的例子应用，请下载 VbsEdit 5.4.8.0 参考：(附 Patch.vbs 破解脚本)

游客，如果您要查看本帖隐藏内容请回复

楼上风云

回复 2# chishingchan

教程，是授人以渔

archangle

学习了~~~~~~~

chishingchan

回复 3# 楼上风云


    希望AUTOIT的帮助也能做到跟本文一样的详细内容（包含简单例子）的帮助就好了！

h20040606

非常不错的软件，写可

h20040606

非常不错的软件，谢谢楼主啊

seeking

非常不错的软件，谢谢楼主啊

mpf5566

来学习学习。

dabaiyun

学习了谢谢楼主

fanan_666

谢谢分享！

78950105

正想看这方面的资料.

oceanwind

来学习学习

jiangcn

暂时还不理解先做个记号

away2008

这个东西很强大，谢谢