Scripting.Dictionary对象

Scripting.Dictionary对象使用说明

创建和使用Dictionary对象

Dictionary对象的创建

'In VBScript:
Dim objMyData
Set objMyData = Server.CreateObject("Scripting.Dictionary")

//In Jscript:
var objMyData = Server.CreateObject("Scripting.Dictionary");

<!-- Server-Side with an OBJECT element -->
<OBJECT RUNAT="SERVER" SCOPE="PAGE" ID="objMyData" PROGID="Scripting.Dictionary">
</OBJECT>

1．    Dictionary对象的成员概要
表5-2和表5-3列出了Dictionary对象的属性和方法及相应的说明。
当增加一个键/条目对时，如果该键已存在；或者删除一个键/条目对时，该关键字/条目对不存在，或改变已包含数据的Dictionary对象的CompareMode，都将产生错误。

表5-2 Dictionary对象的属性和说明

属 性	说 明
CompareMode	（仅用于VBScript）设定或返回键的字符串比较模式
Count	只读。返回Dictionary里的键/条目对的数量

表5-3  Dictionary对象的方法和说明

方 法	说 明
Item(key)	设定或返回指定的键的条目值
Add(key,item)	增加键/条目对到Dictionary
Exists(key)	如果指定的键存在，返回True，否则返回False
Items()	设定或返回指定的键的条目值

方 法    说 明
Add(key,item)             返回一个包含Dictionary对象中所有条目的数组
Keys()    返回一个包含Dictionary对象中所有键的数组
Remove(key)    删除一个指定的键/条目对
RemoveAll()    删除全部键/条目对
2．    对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

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 < 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) & "<BR>"
Next