Scripting.Dictionary的功能是什么，怎样使用呀，请不吝赐教

[晚晨]

Scripting.Dictionary的功能是什么，怎样使用呀，请不吝赐教

[actor2222]

' 创建对象
set objMyData = server.createobject( "scripting.dictionary" )
' 添加项目
objMyData.add "dataKey", "dataValue"
' 获取项目
sDataValue = objMyData.item( "dataKey" )
' 删除项目
sDataValue.remove( "dataKey" )Dictionary 对象与 PERL 关联数组等价。可以是任何形式的数据的条目被存储在数组中。每个条目都与一个唯一的关键字相关联。该关键字用来检索单个条目，通常是整数或字符串，可以是除数组外的任何类型。



Dim a, d, i '创建一些变量

Set d = CreateObject("Scripting.Dictionary")

d.Add "a", "Athens" '添加一些关键字和条目。

d.Add "b", "Belgrade"

d.Add "c", "Cairo"

a = d.Items '取得条目

For i = 0 To d.Count -1 '重复数组

Print a(i) '打印条目

Next