学习VBA，报表做到飞 第三章 字典 3.2 字典的方法

第三章 字典

3.2 字典的方法

字典一共有六个方法，分别是：Add、Keys、Items、Remove、RemoveAll、Exists

3.2.1 Add

添加一对相对应的关键字和条目到字典

d.Add Key Item

例句：

d.Add '新加字典', '第一个'

如果只需要添加Key，Item可以设成空：

d.Add '新加字典', ''

如上图所示，给字典d添加了一对键值，在本地窗口里可以看到它的Key的值是'新加字典'，看不到它的Item。我们可以用“字典（Key)”的方式来读取这个Key的Item。比如 ：

MsgBox d('新加字典')

系统会返回“第一个”。

3.2.2 Keys

获取字典中所有的关键字，返回一个从0开始的一维数组

d.Keys

arr = d.Keys

例如：

Sub 字典()

Dim d As New Dictionary

d.Add '新加字典', '第一个'

d.Add '字典2', '第二个'

d.Add '字典3', '第三个'

arr = d.Keys

End Sub

运行后字典和数组的数值如下：

3.2.3 Items

获取字典中所有的条目，返回一个从0开始的一维数组

d.Items

brr = d.Items

例如上面那个案例，我们再加上一条语句：

brr = d.Items

运行后字典和数组的数值如下：

3.2.4 Exists

判断字典中是否存在指定关键字，如果有返回true，没有返回false

d.Exists(Key)

例如上面那个案例，我们再加上一条语句：

MsgBox d.Exists('字典4')

因为没有'字典4'这个Key,系统会返回False。

3.2.5 Remove

从字典中删除一个关键字和对应的条目

d.Remove(Key)

一次只能删除一个，关键字和条目是成对添加，也是成对删除。

例如上面那个案例，我们再加上一条语句：

d.Remove ('字典3')

运行后字典和数组的数值如下：

我们看到，两个数组的数值未变，但字典的条目少了一个。

3.2.6 RemoveAll

删除字典中所有的关键字和条目。

例如上面那个案例，我们再加上一条语句：

d.RemoveAll

运行后字典和数组的数值如下：

运行后字典的条目全部被删除了，数量变为0。