Dictionary 对象

描述

保存数据键和项目对的对象。

语法

Scripting.Dictionary

说明

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

下面代码示范如何创建 Dictionary 对象：

Dim d                   '创建一个变量

Set d = CreateObject("Scripting.Dictionary")

d.Add "a","Athens"     '添加键和项目

d.Add "b","Belgrade"

d.Add "c","Cairo"

...

属性

CompareMode 属性

描述

设置并返回在 Dictionary 对象中比较字符串关键字的比较模式。

语法

object.CompareMode[ = compare]

CompareMode 属性有以下部分：

说明

如果试图更改已经包含数据的 Dictionary 对象的比较模式，则会出现错误。

CompareMode 属性使用与 StrComp 函数中 compare 参数相同的值。

Count 属性

描述

返回一个集合或 Dictionary 对象包含的项目数。只读。

语法

object.Count

object 可以是“应用于”列表中列出的任何集合或对象的名称。

说明

以下代码举例说明如何使用 Count 属性：

Dim a,d,i             '创建几个变量

Set d = CreateObject("Scripting.Dictionary")

d.Add "a","Cairo"

a = d.Keys              '获取键

For i = 0 To d.Count -1 '枚举数组

    Print a(i)          '打印键

Next

...

Item 属性

描述

设置或返回 Dictionary 对象中指定的 key 对应的 item，或返回集合中基于指定的 key 的 item。可读写。

语法

object.Item(key) [= newitem]

Item 属性的语法有以下部分：

说明

如果更改 item 时未找到 key，则使用指定的 newitem 创建一个新的 key。如果试图返回一个已有项目时未找到 key，则创建一个新的 key 并且它对应的项目为空值。

Key 属性

描述

在 Dictionary 对象中设置 key。

语法

object.Key(key) = newkey

Key 属性结构如下：

说明

如果在更改 key 值时未找到 key，则出现运行时错误。

方法

Add 方法

描述

向 Dictionary 对象添加键和项目对。

语法

object.Add key,item

Add 方法的语法有以下部分：

说明

如果 key 已经存在，则会出现错误。

Exists 方法

描述

如果在 Dictionary 对象中存在指定键，返回 True；如果不存在，返回 False。

语法

object.Exists(key)

Exists 方法的语法有以下部分：

Items 方法

Keys 方法 Remove 方法 RemoveAll 方法