上节课我们介绍了字典的基本概念及其调用方法,本节课我们讲解一下字典的属性和方法。
首先我们通过前期绑定法新建一个字典,如下,当我们输入d. 后,便会弹出字典的属性和方法来。
字典共有六个方法,四个属性,分别如下:
方法:
d.Add
d.Keys
d.Items
d.Exists
d.Remove
d.RemoveAll
属性:
d.CompareMode
d.Count
d.Item
d.Key
今天我们先介绍下字典的六种方法:
Sub test1()
'前期绑定
Dim s As New dictionary, m$
Dim n
'1、增加项目对:add
s.Add "宋江", "A001"
s.Add "卢俊义", "A002"
s.Add "吴用", "A003"
'2、取出某个key值",有三种方法:
'第一:keys,注意字典中第一个key值默认起始位置为0,所以s.keys(0)为第一个key。
m = s.Keys(0)
'第二种方法:利用工作表函数
m = Application.Index(s.Keys, 1)
'第三种方法:先把全部的key赋给一个数组,然后从数组中取值。
n = s.Keys
m = n(0)
'3、取出item值,有四种方法:
'第一种方法,items
m = s.Items(0)
'第二种方法,利用工作表函数
m = Application.Index(s.Items, 1)
'第三种方法:先把全部的item赋给一个数组,然后从数组中取值
n = s.Items
m = n(0)
'第四种方法,items
m = s("宋江")
End Sub
上面介绍了字典中的Add方法:
object.add "key","item"
以及keys和items方法,值得注意的是,keys和items中的第一种方法只能用于前期绑定法,直接创建法里面是不能直接这样取的,可以用函数,也可以先把keys或者是items赋值给一个数组,从数组里往出取值。
4、d.Exists,如果字典中存在指定的关键字则返回true,否则返回false。
5、d.Remove,从字典中删除某个项目对,不仅会删除key,同时也会删除对应的item。
6、d.removeall,删除字典中的全部项目对。
转自:米宏Office