希望可以帮助你前言
凡是上过学校的人都使用过字典,从新华字典、成语词典,到英汉字典以及各种各样数不胜数的专业字典,字典是上学必备的、经常查阅的工具书。有了它们,我们可以很方便的通过查找某个关键字,进而查到这个关键字的种种解释,非常快捷实用。
凡是上过EH论坛的想学习VBA里面字典用法的,几乎都看过研究过northwolves狼版主、oobird版主的有关字典的精华贴和经典代码。我也是从这里接触到和学习到字典的,在此,对他们表示深深的谢意,同时也对很多把字典用得出神入化的高手们致敬,从他们那里我们也学到了很多,也得到了提高。
字典对象只有4个属性和6个方法,相对其它的对象要简洁得多,而且容易理解使用方便,功能强大,运行速度非常快,效率极高。深受大家的喜爱。
本文希望通过对一些字典应用的典型实例的代码的详细解释来给初次接触字典和想要进一步了解字典用法的朋友提供一点备查的参考资料,希望大家能喜欢。
给代码注释估计是大家都怕做的,因为往往是出力不讨好的,稍不留神或者自己确实理解得不对,还会贻误他人。所以下面的这些注释如果有不对或者不妥当的地方,请大家跟帖时指正批评,及时改正。
字典的简介
字典(Dictionary)对象是微软Windows脚本语言中的一个很有用的对象。
附带提一下,有名的正则表达式(RegExp)对象和能方便处理驱动器、文件夹和文件的(FileSystemObject )对象也是微软Windows脚本语言中的一份子。
字典对象相当于一种联合数组,它是由具有唯一性的关键字(Key)和它的项(Item)联合组成。就好像一本字典书一样,是由很多生字和对它们对应的注解所组成。比如字典的“典”字的解释是这样的:
“典”字就是具有唯一性的关键字,后面的解释就是它的项,和“典”字联合组成一对数据。
常用关键字英汉对照:
Dictionary 字典
Key 关键字
Item 项,或者译为 条目
字典对象的方法有6个:Add方法、Keys方法、Items方法、Exists方法、Remove方法、RemoveAll方法。
Add方法
向 Dictionary 对象中添加一个关键字项目对。
objectAdd (key, item)
参数
object
必选项。总是一个 Dictionary 对象的名称。
key
必选项。与被添加的 item 相关联的 key。
item
必选项。与被添加的 key 相关联的 item。
说明
如果 key 已经存在,那么将导致一个错误。
常用语句:
Dim d
Set d = CreateObject("ScriptingDictionary")
dAdd "a", "Athens"
dAdd "b", "Belgrade"
dAdd "c", "Cairo"
代码详解
1、Dim d :创建变量,也称为声明变量。变量d声明为可变型数据类型(Variant),d后面没有写数据类型,默认就是可变型数据类型(Variant)。也有写成Dim d As Object的,声明为对象。
2、Set d = CreateObject("ScriptingDictionary"):创建字典对象,并把字典对象赋给变量d。这是最常用的一句代码。所谓的“后期绑定”。用了这句代码就不用先引用c:\windows\system32\scrrundll了。
3、dAdd "a", "Athens":添加一关键字”a”和对应于它的项”Athens”。
4、dAdd "b", “Belgrade”:添加一关键字”b”和对应于它的项”Belgrade”。
5、dAdd "c", “Cairo”:添加一关键字”c”和对应于它的项”Cairo”。
Exists方法
如果 Dictionary 对象中存在所指定的关键字则返回 true,否则返回 false。
objectExists(key)
参数
object
必选项。总是一个 Dictionary 对象的名称。
key
必选项。需要在 Dictionary 对象中搜索的 key 值。
常用语句:
Dim d, msg$
Set d = CreateObject("ScriptingDictionary")
dAdd "a", "Athens"
dAdd "b", "Belgrade"
dAdd "c", "Cairo"
If dExists("c") Then
msg = "指定的关键字已经存在。"
Else
msg = "指定的关键字不存在。"
End If
代码详解
1、Dim d, msg$ :声明变量,d见前例;msg$ 声明为字符串数据类型(String),一般写法为Dim msg As String。String 的类型声明字符为美元号 ($)。
2、If dExists("c") Then:如果字典中存在关键字”c”,那么执行下面的语句。
3、msg = "指定的关键字已经存在。" :把"指定的关键字已经存在。"字符串赋给变量msg。
4、Else :否则执行下面的语句。
5、msg = "指定的关键字不存在。" :把"指定的关键字不存在。"字符串赋给变量msg。
6、End If :结束If …Else…Endif判断。
Keys方法
返回一个数组,其中包含了一个 Dictionary 对象中的全部现有的关键字。
objectKeys( )
其中 object 总是一个 Dictionary 对象的名称。
常用语句:
Dim d, k
Set d = CreateObject("ScriptingDictionary")
dAdd "a", "Athens"
dAdd "b", "Belgrade"
dAdd "c", "Cairo"
k=dKeys
[B1]Resize(dCount,1)=ApplicationTranspose(k)
代码详解
1、Dim d, k :声明变量,d见前例;k默认是可变型数据类型(Variant)。
2、k=dKeys:把字典中存在的所有的关键字赋给变量k。得到的是一个一维数组,下限为0,上限为dCount-1。这是数组的默认形式。
3、[B1]Resize(dCount,1)=ApplicationTranspose(k) :这句代码是很常用很经典的代码,所以这里要多说一些。
Resize是Range对象的一个属性,用于调整指定区域的大小,它有两个参数,第一个是行数,本例是dCount,指的是字典中关键字的数量,整本字典中有多少个关键字,本例dCount=3,因为有3个关键字。呵呵,是不是说多了。
第二个是列数,本例是1。这样=左边的意思就是:把一个单元格B1调整为以B1开始的一列单元格区域,行数等于字典中关键字的数量dCount,就是把单元格B1调整为单元格区域B1:B3了。
=右边的k是个一维数组,是水平排列的,我们知道Excel工作表函数里面有个转置函数Transpose,用它可以把水平排列的置换成竖向排列。但是在VBA中不能直接使用该工作表函数,需要通过Application对象的WorksheetFunction属性来使用它。所以完整的写法是Application WorksheetFunctionTranspose(k),中间的WorksheetFunction可省略。现在可以解释这句代码了:把字典中所有的关键字赋给以B1单元格开始的单元格区域中。
Items方法
返回一个数组,其中包含了一个 Dictionary 对象中的所有项目。
objectItems( )
其中 object 总是一个 Dictionary 对象的名称。
常用语句:
Dim d, t
Set d = CreateObject("ScriptingDictionary")
dAdd "a", "Athens"
dAdd "b", "Belgrade"
dAdd "c", "Cairo"
t=dItems
[C1]Resize(dCount,1)=ApplicationTranspose(t)
代码详解
1、Dim d, t :声明变量,d见前例;t默认是可变型数据类型(Variant)。
2、t=dItems :把字典中所有的关键字对应的项赋给变量t。得到的也是一个一维数组,下限为0,上限为dCount-1。这是数组的默认形式。
3、[C1]Resize(dCount,1)=ApplicationTranspose(t) :有了上面Keys方法的解释这句代码就不用多说了,就是把字典中所有的关键字对应的项赋给以C1单元格开始的单元格区域中。
Remove方法
Remove 方法从一个 Dictionary 对象中清除一个关键字,项目对。
objectRemove(key )
其中 object 总是一个 Dictionary 对象的名称。
key
必选项。key 与要从 Dictionary 对象中删除的关键字,项目对相关联。
说明
如果所指定的关键字,项目对不存在,那么将导致一个错误。
常用语句:
Dim d
Set d = CreateObject("ScriptingDictionary")
dAdd "a", "Athens"
dAdd "b", "Belgrade"
dAdd "c", "Cairo"
……
dRemove(“b”)
代码详解
1、dRemove(“b”):清除字典中”b”关键字和与它对应的项。清除之后,现在字典里只有2个关键字了。
RemoveAll方法
RemoveAll 方法从一个 Dictionary 对象中清除所有的关键字,项目对。
objectRemoveAll( )
其中 object 总是一个 Dictionary 对象的名称。
常用语句:
Dim d
Set d = CreateObject("ScriptingDictionary")
dAdd "a", "Athens"
dAdd "b", "Belgrade"
dAdd "c", "Cairo"
……
dRemoveAll
代码详解
1、dRemoveAll:清除字典中所有的数据。也就是清空这字典,然后可以添加新的关键字和项,形成一本新字典。
字典对象的属性有4个:Count属性、Key属性、Item属性、CompareMode属性。
Count属性
返回一个Dictionary 对象中的项目数。只读属性。
objectCount
其中 object一个字典对象的名称。
常用语句:
Dim d,n%
Set d = CreateObject("ScriptingDictionary")
dAdd "a", "Athens"
dAdd "b", "Belgrade"
dAdd "c", "Cairo"
n = dCount
代码详解
1、Dim d, n% :声明变量,d见前例;n被声明为整型数据类型(Integer)。一般写法为Dim n As Integer 。 Integer 的类型声明字符为百分比号 (%)。
2、n = dCount :把字典中所有的关键字的数量赋给变量n。本例得到的是3。
Key属性
在 Dictionary 对象中设置一个 key。
objectKey(key) = newkey
参数:
object
必选项。总是一个字典 (Dictionary) 对象的名称。
key
必选项。被改变的 key 值。
newkey
必选项。替换所指定的 key 的新值。
说明
如果在改变一个 key 时没有发现该 key,那么将创建一个新的 key 并且其相关联的 item 被设置为空。
常用语句:
Dim d
Set d = CreateObject("ScriptingDictionary")
dAdd "a", "Athens"
dAdd "b", "Belgrade"
dAdd "c", "Cairo"
dKey("c") = "d"
代码详解
1、dKey("c") = "d" :用新的关键字”d”来替换指定的关键字”c”,这时,字典中就没有关键字c了,只有关键字d了,与d对应的项是”Cairo”。
Item属性
在一个 Dictionary 对象中设置或者返回所指定 key 的 item。对于集合则根据所指定的 key 返回一个 item。读/写。
objectItem(key)[ = newitem]
参数
object
必选项。总是一个Dictionary 对象的名称。
key
必选项。与要被查找或添加的 item 相关联的 key。
newitem
可选项。仅适用于 Dictionary 对象;newitem 就是与所指定的 key 相关联的新值。
说明
如果在改变一个 key 的时候没有找到该 item,那么将利用所指定的 newitem 创建一个新的 key。如果在试图返回一个已有项目的时候没有找到 key,那么将创建一个新的 key 且其相关的项目被设置为空。
常用语句:
Dim d
Set d = CreateObject("ScriptingDictionary")
dAdd "a", "Athens"
dAdd "b", "Belgrade"
dAdd "c", "Cairo"
MsgBox dItem("c")
代码详解
1、dItem("c") :获取指定的关键字”c”对应的项。
2、MsgBox :是一个VBA函数,用消息框显示。如果要详细了解MsgBox函数的,可参见我的另一篇文章“常用VBA函数精选合集”。>字典的key值是不可以重复的,如果重复默认取最后一个value值。
如果做 print dict_data 结果是:{'b':'2', 'a':'ddd'}。
key不能重复,但是字典的value值可以是任意类型。
所以可以给‘a’对应的value存成list
dict_data = {'a':['1','3','ddd'], 'b':'2'}列表、元组、集合、字典相互转换
一、列表元组转其他
1、列表转集合(去重)
list1
=
[6,
7,
7,
8,
8,
9]
set(list1)
#
{6,
7,
8,
9}
2、两个列表转字典
list1
=
['key1','key2','key3']
list2
=
['1','2','3']
dict(zip(list1,list2))
#
{'key1':
'1',
'key2':
'2',
'key3':
'3'}
3、嵌套列表转字典
list3
=
[['key1','value1'],['key2','value2'],['key3','value3']]
dict(list3)
#
{'key1':
'value1',
'key2':
'value2',
'key3':
'value3'}
4、列表、元组转字符串
list2
=
['a',
'a',
'b']
''join(list2)
#
'aab'
tup1
=
('a',
'a',
'b')
''join(tup1)
#
'aab'
二、字典转其他
1、
字典转换为字符串
dic1
=
{'a':1,'b':2}
str(dic1)
#
"{'a':
1,
'b':
2}"
2、字典key和value互转
dic2
=
{'a':
1,
'b':
2,
'c':
3}
{value:key
for
key,
value
in
a_dictitems()}
#
{1:
'a',
2:
'b',
3:
'c'}
三、字符串转其他
1、字符串转列表
s
=
'aabbcc'
list(s)
#
['a',
'a',
'b',
'b',
'c',
'c']
2、字符串转元组
tuple(s)
#
('a',
'a',
'b',
'b',
'c',
'c')
3、
字符串转集合
set(s)
#
{'a',
'b',
'c'}
4、字符串转字典
dic2
=
eval("{'name':'ljq',
'age':24}")
5、切分字符串
a
=
'a
b
c'
asplit('
')
#
['a',
'b',
'c']字典是键值对{key:value, key:value, key:value}
删除某个key是指删除其中key为某个值的数据, 如:
a = {'item1':1, 'item2':2}
del a['item1']
这时的a是{'item2':2}
也就是删除字典a中的item1这个key
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)