欢迎来到天天文库
浏览记录
ID:20442468
大小:1.96 MB
页数:54页
时间:2018-10-10
《常见字典用法集锦和代码详解(全)_蓝桥玄霜》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、实例12复杂报表汇总常见字典用法集锦及代码详解蓝桥玄霜53实例12复杂报表汇总前言凡是上过学校的人都使用过字典,从新华字典、成语词典,到英汉字典以及各种各样数不胜数的专业字典,字典是上学必备的、经常查阅的工具书。有了它们,我们可以很方便的通过查找某个关键字,进而查到这个关键字的种种解释,非常快捷实用。凡是上过EH论坛的想学习VBA里面字典用法的,几乎都看过研究过northwolves狼版主、oobird版主的有关字典的精华贴和经典代码。我也是从这里接触到和学习到字典的,在此,对他们表示深深的谢意,
2、同时也对很多把字典用得出神入化的高手们致敬,从他们那里我们也学到了很多,也得到了提高。字典对象只有4个属性和6个方法,相对其它的对象要简洁得多,而且容易理解使用方便,功能强大,运行速度非常快,效率极高。深受大家的喜爱。本文希望通过对一些字典应用的典型实例的代码的详细解释来给初次接触字典和想要进一步了解字典用法的朋友提供一点备查的参考资料,希望大家能喜欢。给代码注释估计是大家都怕做的,因为往往是出力不讨好的,稍不留神或者自己确实理解得不对,还会贻误他人。所以下面的这些注释如果有不对或者不妥当的地方,
3、请大家跟帖时指正批评,及时改正。字典的简介字典(Dictionary)对象是微软Windows脚本语言中的一个很有用的对象。附带提一下,有名的正则表达式(RegExp)对象和能方便处理驱动器、文件夹和文件的(FileSystemObject)对象也是微软Windows脚本语言中的一份子。字典对象相当于一种联合数组,它是由具有唯一性的关键字(Key)和它的项(Item)联合组成。就好像一本字典书一样,是由很多生字和对它们对应的注解所组成。比如字典的“典”字的解释是这样的:“典”字就是具有唯一性的关键
4、字,后面的解释就是它的项,和“典”字联合组成一对数据。常用关键字英汉对照:Dictionary字典53实例12复杂报表汇总Key关键字Item项,或者译为条目字典对象的方法有6个:Add方法、Keys方法、Items方法、Exists方法、Remove方法、RemoveAll方法。Add方法向Dictionary对象中添加一个关键字项目对。object.Add(key,item)参数object必选项。总是一个Dictionary对象的名称。key必选项。与被添加的item相关联的key。item
5、必选项。与被添加的key相关联的item。说明如果key已经存在,那么将导致一个错误。常用语句:DimdSetd=CreateObject("Scripting.Dictionary")d.Add"a","Athens"d.Add"b","Belgrade"d.Add"c","Cairo"代码详解1、Dimd:创建变量,也称为声明变量。变量d声明为可变型数据类型(Variant),d后面没有写数据类型,默认就是可变型数据类型(Variant)。也有写成DimdAsObject的,声明为对象。2、S
6、etd=CreateObject("Scripting.Dictionary"):创建字典对象,并把字典对象赋给变量d。这是最常用的一句代码。所谓的“后期绑定”。用了这句代码就不用先引用c:windowssystem32scrrun.dll了。3、d.Add"a","Athens":添加一关键字”a”和对应于它的项”Athens”。4、d.Add"b",“Belgrade”:添加一关键字”b”和对应于它的项”Belgrade”。5、d.Add"c",“Cairo”:添加一关键字”c”和对应于
7、它的项”Cairo”。Exists方法如果Dictionary对象中存在所指定的关键字则返回true,否则返回false。53实例12复杂报表汇总object.Exists(key)参数object必选项。总是一个Dictionary对象的名称。key必选项。需要在Dictionary对象中搜索的key值。常用语句:Dimd,msg$Setd=CreateObject("Scripting.Dictionary")d.Add"a","Athens"d.Add"b","Belgrade"d.Add"
8、c","Cairo"Ifd.Exists("c")Thenmsg="指定的关键字已经存在。"Elsemsg="指定的关键字不存在。"EndIf代码详解1、Dimd,msg$:声明变量,d见前例;msg$声明为字符串数据类型(String),一般写法为DimmsgAsString。String的类型声明字符为美元号($)。2、Ifd.Exists("c")Then:如果字典中存在关键字”c”,那么执行下面的语句。3、msg="指定的关键字已经存在。":把"指定的关键字已经存在。"字符
此文档下载收益归作者所有