Scripting.Dictionary 详解

许多Microsoft的编程语言，如Visual Basic、VBScript和Jscript，都提供集合（collection）。可以把集合想象为数组，可以使用其中内建的函数完成存储和操纵数据等基本任务。无须担心数据是在哪些行列，而是使用唯一的键进行访问。

    VBScript和Jscript都提供类似的对象，通称Scripting.Dictionary对象或Dictionary对象。它类似于二维数组，把键和相关条目的数据存放在一起。然而真正的面向对象的方法，不应直接访问数据条目，必须使用Dictionary对象支持的方法和属性来实现。

    本章提供了一些示例页面，允许试验脚本运行期对象的方法和属性。这些实例在下载的文件的文件的Chaper05子目录里。



1. 创建和使用Dictionary对象

    创建一个Dictionary对象的示例如下：

    ‘In VBScript:

    Dim objMyData

    Set objMyData = Server.CreateObject(“Scripting.Dictionary”)



    //In Jscript:

    var objMyData = Server.CreateObject(‘Scripting.Dictionary’);



    

    



    Dictionary对象还可用于客户端的IE中。

2．    Dictionary对象的成员概要

当增加一个键/条目对时，如果该键已存在；或者删除一个键/条目对时，该关键字/条目对不存在，或改变已包含数据的Dictionary对象的CompareMode，都将产生错误。



Dictionary对象的属性和说明



属 性    说 明

CompareMode    （仅用于VBScript）设定或返回键的字符串比较模式

Count    只读。返回Dictionary里的键/条目对的数量

Item(key)    设定或返回指定的键的条目值

Key(key)    设定键值



方 法    说 明

Add(key,item)    增加键/条目对到Dictionary

Exists(key)    如果指定的键存在，返回True，否则返回False

Items()    返回一个包含Dictionary对象中所有条目的数组

Keys()    返回一个包含Dictionary对象中所有键的数组

Remove(key)    删除一个指定的键/条目对

RemoveAll()    删除全部键/条目对

3．    对Dictionary中增加和删除条目

一旦得到一个新的（空的）Dictionary，可以对其添加条目，从中获取条目以及删除条目：

‘ In VBScript:

objMyData.Add “MyKey”, “MyItem”            ‘Add Value MyItem with key MyKey

objMyData.Add “YourKey”, ”YourItem”        ‘Add value YourItem with key YourKey

blnIsThere = objMyData.Exists(“MyKey”)        ‘Returns True because the item exists

strItem = objMyData.Item(“YourKey”)            ‘Retrieve value of YourKey

strItem = objMyData.Remove(“MyKey”)        ‘Retrieve and remove YourKey

objMyData.RemoveAll                        ‘Remove all the items



在JScript中，等价的代码为：

// In JScript;

objMyData.Add (‘MyKey’, ‘MyItem’);            //Add Value MyItem with key MyKey

objMyData.Add (‘YourKey’, ‘YourItem’);        //Add value YourItem with key YourKey

var blnIsThere = objMyData.Exists(‘MyKey’);    //Returns True because the item exists

var strItem = objMyData.Item(‘YourKey’);        //Retrieve value of YourKey

var strItem = objMyData.Remove(‘MyKey’);    //Retrieve and remove YourKey

objMyData.RemoveAll();                    //Remove all the items



4．    修改键或条目的值

可以通过修改键的值，或通过修改与特定的键关联的条目的数据，来改变存储在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

如果指定的键未找到，则产生运行期错误。



5．    设置比较模式

Dictionary的CompareMode属性仅适用于VBScript，不能在JScript中使用。当比较字符串键时，允许指定比较的方式。两个允许的值为BinaryCompare(0)和TextCompare(1)。BinaryCompare(0)为二进制数对照（即区分大小写）；TextCompare(1)为文本对照（即不区分大小写）。



6．    遍历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 < 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语句完成同样的功能：

‘ Iterate the dictionary as a collection in VBScript

For Each objItem in arrItems

    Response.Write objItem & “ = “ & arrItems(objItem) & “
”

Next



7 Dictionary对象示例

      

7.1．  Dictionary的global.asa文件

随Dictionary对象示例页面提供的文件之一是global.asa。它创建并预先填充了一个会话层作用域的Dictionary对象，因此其内容在页面请求之间不会丢失。一般说来（考虑到可扩展性），这不是一个理想的做法。在这个例子里，可以看到Dictionary的属性和方法的效果。

如果在自己的服务器上下载并安装示例，必须创建一个基于此global.asa文件的虚拟应用程序。或者将其内容添加到缺省站点的根文件夹中的global.asa文件里。在第3章讲述了如何用向导创建虚拟应用程序。然而对于本示例，创建一个虚拟应用程序最简单的方法是在Chapter05示例文件夹内右击dictionary子文件夹，在Properties对话框的Home Directory选项卡里，点击Create按钮，如图5-4所示：



在这个global.asa文件里，代码使用