VB中的Dictionary对象介绍+小结

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、用https://www.doczj.com/doc/1d3375460.html,pareMode = 0（二进制，默认，大小写敏感）或https://www.doczj.com/doc/1d3375460.html,pareMode = 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(in tLoop) …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 < objMyData.Count; intLoop++) {

// Iterate through the arrays

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文件里，代码使用