VB中的Dictionary对象介绍+小结_vb数据类型小结
VB中的Dictionary对象介绍+小结由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb数据类型小结”。
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 ”“ 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 ”“ 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 ”“ Next Response.write d.item(”wan“)'输出指定的key值 Response.write ”“ d.item(”wan“)=”新值“ Response.write d.item(”wan“)'输出指定的key值 Response.write ”“ d.key(”wan“)=”newwan“ '更改键名 'wan键名更改了，是否还有值？
Response.write ”执行d.key(“”wan“”)=“”newwan“”后再输出wan“ Response.write d.item(”wan“)'无值输出。但要注意： d.item(”wan“)不存在，可用d.Exists(”wan“)检测。Response.write ”输出新名称newwan的值：“ Response.write d.item(”newwan“)Response.write ”“ Response.write d.Exists(”newwan“)'分析是否存在这个键True。d.Remove(”newwan“)Response.write ”“ Response.write d.Exists(”wan“)'分析是否存在这个键True。Response.write ”“ 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 ”“ Next
详细：
许多Microsoft的编程语言，如Visual Basic、VBScript和Jscript，都提供集合（collection）。可以把集合想象为数组，可以使用其中内建的函数完成存储和操纵数据等基本任务。无须担心数据是在哪些行列，而是使用唯一的键进行访问。
VBScript和Jscript都提供类似的对象，通称Scripting.Dictionary对象或Dictionary对象。它类似于二维数组，把键和相关条目的数据存放在一起。然而真正的面向对象的方法，不应直接访问数据条目，必须使用Dictionary对象支持的方法和属性来实现。
创建和使用Dictionary对象
创建一个Dictionary对象的示例如下：
‘In VBScript: Dim objMyData
Set objMyData = Server.CreateObject(“Scripting.Dictionary”)//In Jscript:
var objMyData = Server.CreateObject(„Scripting.Dictionary‟);
Dictionary对象还可用于客户端的IE中。
1． Dictionary对象的成员概要
当增加一个键/条目对时，如果该键已存在；或者删除一个键/条目对时，该关键字/条目对不存在，或改变已包含数据的Dictionary对象的CompareMode，都将产生错误。属 性 说 明
CompareMode（仅用于VBScript）设定或返回键的字符串比较模式
Count 只读。返回Dictionary里的键/条目对的数量---从1开始，而不像数组从0开始计数 Item(key)设定或返回指定的键的值
Key(key)设定键名值
方法说明
Add(key,item)增加键/条目对到Dictionary
Exists(key)如果指定的键存在，返回True，否则返回False Items()返回一个包含Dictionary对象中所有条目的数组
Keys()返回一个包含Dictionary对象中所有键的数组
Remove(key)删除一个指定的键/条目对
RemoveAll()删除全部键/条目对
2． 对Dictionary中增加和删除条目
一旦得到一个新的（空的）Dictionary，可以对其添加条目，从中获取条目以及删除条目：
‘ In VBScript:
objMyData.Add “MyKey”, “MyItem” objMyData.Add “YourKey”, ”YourItem” blnIsThere = objMyData.Exists(“MyKey”)strItem = objMyData.Item(“YourKey”)strItem = objMyData.Remove(“MyKey”)objMyData.RemoveAll 3． 修改键或条目的值
可以通过修改键的值，或通过修改与特定的键关联的条目的数据，来改变存储在Dictionary内的数据。下面的代码改变键为MyKey的条目中的数据。
ObjMyData.Item(“MyKey”)= “NewValue” „ In VBScript ObjMyData.Item(„MyKey‟)= „NewValue‟;// In JScript 如果指定的键在Dictionary未找到，将在Dictionary中后面位置创建一个以MyKey为键，以New Value为其条目值的新的键/条目对。有意思的是，如果使用一个不存在的键来检索条目，不仅得到一个空的字符串（这是可以想到的），而且还在Dictionary里添加一个新的键/条目对，键即是指定的键，但条目的数据为空。
可以使用Key属性仅改变键名的值而不改变与之对应的条目的数据。将一个已存在的键MyKey改变为MyNewKey，可以用：
objMyData.Key(“MyKey”)= “MyNewValue” „ In VBScript objMyData.Item(„MyKey‟)= „MyNewValue‟;// In JScript 如果指定的键未找到，则产生运行期错误。
4． 设置比较模式
Dictionary的CompareMode属性仅适用于VBScript，不能在JScript中使用。当比较字符串键时，允许指定比较的方式。两个允许的值为BinaryCompare(0)和TextCompare(1)。BinaryCompare(0)为二进制数对照（即区分大小写）；TextCompare(1)为文本对照（即不区分大小写）。
5． 遍历Dictionary
研究Dictionary时，有两个方法和一个属性需要特别注意，它们允许我们遍历存储在Dictionary里的所有键/条目对。Items方法用一个一维数组的形式返回Dictionary里所有的条目数据，而keys方法用一个一维数组返回所有已存在的键值。可以使用Count属性得到键或条目的数量。
例如，可以使用下列代码得到名称为objMyData的Dictionary中所有的键和条目值。注意，虽然Count属性保存了在Dictionary里的键/条目数量，但VBScript和JScript的数组总是从下标0开始的。因此，数组下标应从0到Count-1。
‘In VBScript:
arrKeys = objMyData.Keys „Get all the keys into an array arrItems = objMyData.Items „Get all the items into an array
For intLoop = 0 To objMyData.Count –1 „Iterate through the array
StrThisKey = arrKeys(intLoop)„This is the key value
StrThisItem = arrItems(intLoop)„This is the item(data)value Next
// In JScript
// Get VB-style arrays using the Keys()and Items()methods var arrKeys = new VBArray(objMyData.Keys()).toArray();var arrItems = new VBArray(objMyData.Items()).toArray();for(intLoop = 0;intLoop
strThisKey = arrKeys[intLoop];// This is the key value
strThisItem = arrItems[intLoop];// This is the item(data)value }
在VBScript里也可以使用For Each „ Next语句完成同样的功能：
arrKeys = objMyData.Keys arrItems = objMyData.Items For Each objItem in arrItems
Response.Write objItem & “ = “ & arrItems(objItem)& “” Next
5.3.2 Dictionary对象示例
本书提供了一系列示例文件可用来试验脚本运行时间库的各种属性。
本章代码的缺省页面提供了一系列可使用的VBScript示例链接。有些示例对JScript同样有效。这些示例存放在Chapter05目录下相应的子目录里，显示的界面如图5-2所示：
要查看Dictionary对象的运行，在菜单页面点击第一个链接，打开名叫show_dictionary.asp的页面。这个页面显示了我们提供的Dictionary对象的内容，允许试验其属性和方法。屏幕如图5-3所示：
1． Dictionary的global.asa文件
随Dictionary对象示例页面提供的文件之一是global.asa。它创建并预先填充了一个会话层作用域的Dictionary对象，因此其内容在页面请求之间不会丢失。一般说来（考虑到可扩展性），这不是一个理想的做法。在这个例子里，可以看到Dictionary的属性和方法的效果。
如果在自己的服务器上下载并安装示例，必须创建一个基于此global.asa文件的虚拟应用程序。或者将其内容添加到缺省站点的根文件夹中的global.asa文件里。在第3章讲述了如何用向导创建虚拟应用程序。然而对于本示例，创建一个虚拟应用程序最简单的方法是在Chapter05示例文件夹内右击dictionary子文件夹，在Properties对话框的Home Directory选项卡里，点击Create按钮，如图5-4所示：
在这个global.asa文件里，代码使用元素创建一个会话层作用域的Scripting.Dictionary对象实例。然后在Seion_onStart事件处理程序里将一系列值用Add方法放入Dictionary中，并将对Dictionary对象的引用指定给ASP会话变量MyDictionary：
2． Dictionary示例页面
在“Scripting.Dictionary Object”主页面里，首要的任务是得到一个会话层作用域的Dictionary对象实例的引用。注意，这个引用是一个对象变量，因此必须在VBScript里使用Set关键字。
然后，检查一下是否得到了一个对象（这是个好习惯），如果没有正确地建立包含global.asa文件的虚拟应用程序，检查一下问题出在哪里。你将看到我们自己的消息代替了ASP的错误消息（但是注意，对于这一操作必须关闭缺省的错误处理）。
<%
on error resume next ' turn off error handling to test if object exists 'retrieve Dictionary object from user's seion Set objMyData = Seion(”MyDictionary")
If IsObject(objMyData)Then 'found Dictionary object in Seion „
%>
Iterating the Dictionary with Arrays
