VB中的Dictonary对象介绍+小结.docVIP

VBA中Dictionary对象使用小结 Dim dict 创建Dictionary Set dict = CreateObject(Scripting.Dictionary) 增加项目 dict.Add A, 300 dict.Add B, 400 dict.Add C, 500 统计项目数 n = dict.Count 删除项目 dict.Remove (A) 判断字典中是否包含关键字 dict.exists (B) 取关键字对应的值，注意在使用前需要判断是否存在key，否则dict中会多出一条记录 Value = dict.Item(B) 修改关键字对应的值,如不存在则创建新的项目 dict.Item(B) = 1000 dict.Item(D) = 800 对字典进行循环 k = dict.keys v = dict.Items For i = 0 To dict.Count - 1 key = k(i) Value = v(i) MsgBox key Value Next 删除所有项目 dict.Removeall 实例： Sub 宏1() Set dic = CreateObject(Scripting.Dictionary) 字典 For i = 1 To 10000 If Not i Like *4* Then dic.Add i, 如果不包含“1” End If Next Range(a2).Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.keys) 从A2单元开始向下放置 End Sub VB中的Dictionary对象 核心归纳： 1、更换键名，用obj.key(xx)=newxx 2、更换键值或访问指定键：1、重设键值：obj.item(xx)=newxx，2、取得键值：response.write obj.item(xx)= ，如果obj.item(xx)=newxx 中的KEY键“xx”未设定时，会在对象的后面增加一个键值对。 3、获得条目数：obj.count (从1开始) 4、增加键值对：obj.add key,value 5、移除键：obj.remove(key) , obj.removeall() 6、判定键是否存在：obj.Exists(key) 7、遍历：先把键和值各自赋给一个变量，构成一维数组，再用FOR遍历 a=d.keys b=d.Items For x=0 to d.count-1 或 从上到下遍历， For x=d.Count-1 To 0 Step -1 从下到上遍历 wan : abc zuo : 10254 Response.write a(x) Response.write : Response.write b(x) Response.write br / Next 8、用obj..CompareMode = 0（二进制，默认，大小写敏感）或obj.CompareMode = 1（文本，大小写不区分，但不会后面的覆盖前面）来指定比较模式， ================================================================= 简单的理解：Scripting.Dictionary对象相当于二维数组，但比二维数组更灵活，可以随时操纵其中某个键，而二维数组还要遍历。 以下用一个简单的案例来帮助理解： set d=server.CreateObject(scripting.dictionary) d.add zuo,21312 d.add wan,abc response.write d.Count 计数，从1开始 Response.write br / a=d.keys b=d.Items For x=0 to d.count-1 或 从上到下遍历， For x=d.Count-1 To 0 Step -1 从下到上遍历 wan : abc zuo : 10254 Response.write a(x) Response.write : Response.write b(x) Response.write br / Next Response.write d.item(wan) 输出指定的key值 Response.write br / d.item(wan)=新值 Response.write d.item(wan) 输出指定的key值 Response.write br / d.key(wan)=newwan 更改键名 wan键名更