如何使用Dictionary对象?(

http://blog.sina.com.cn/s/blog_606fea930100f1gc.html

 

Dictionary对象是保存键和项目对的字典对象，字典中的项目（可是是任何形式的数据）被保存在数组中，每项都与唯一的键相关联。键值用于检索单个项目，通常是整数或字符串，但不能为数组。
属性或方法 说明
ArrayMode属性 数组访问模式，允许以下标方式访问，缺省为true。
Count属性 返回一个对象中的项目数，只读属性。
Item属性 在一个Dictionary 对象中设置或者返回所指定key的item。
Items属性 以数组方式返回对象中的全部项目。
Key属性 根据下标取得关键字的键值，只读属性。
Keys属性 以数组方式返回对象中的全部键值。
Add方法 向对象中添加一个关键字项目对。
Exists方法 如果对象中存在所指定的关键字则返回true，否则返回false。
Join方法 返回一个字符串，此字符串由包含在对象中的所有数据键和项目对连接创建。
Load方法 从指定的数据源装载对象内容。
Remove方法 从一个Dictionary对象中删除一个关键字项目对。
RemoveAll方法 RemoveAll方法从一个对象中删除所有的项目。
Save方法 转储对象中的内容到指定的目标。
Sort方法 排序对象中的数据，可以指定升序和降序。
Split方法 分析给定的字符串，将分解出的子字符串填充到对象中。
当以数字作为下标来查询Dictionary对象时，则数字表示按照插入顺序的下标，顺序从0开始。如果其中某个数据键被删除，则其后插入的数据键的下标依次前移。Dictionary对象的键值如果为字符串，则将忽略字符串的大小写。
Dictionary对象的缺省属性为Item，所以可以直接对Dictionary对象进行缺省操作。例如：dict("c")与dict.Item("c")的作用是完全等同的。如下例将插入一些关键字项目对，然后修改项目"c"为第二个插入的项目。
Set dict = CreateObject("NetBox.Dictionary")
dict.Add "a", "Athens"
dict.Add "b", "Belgrade"
dict.Add "c", "Cairo"
dict("c") = dict(1)
<H3>添加字典条目</H3>
<Form Action="<%=Request.ServerVariables("Script_Name")%>">
<Input Type="Text" Name="Key">
<Input Type="Text" Name="value">
<Input Type="submit" Value="添加条目">
</Form>
<Hr>
<%
Dim strToDict
strToDict=Trim(Request.Querystring("key"))
strValue=Trim(Request.Querystring("value"))
If Len(strToDict)>0 Then
'检查字典是否存在
If IsEmpty(Session("MyDict")) Then
Set Session ("MyDict")=Server.CreateObject("Scripting.Dictionary")
End If
Dim myLocalDict
Set myLocalDict=Session("MyDict")
myLocalDict.Add strToDict,strValue    '添加字典条目
End If
%>
<H3>列表字典的内容</H3>
<%
If IsEmpty(Session("MyDict")) Then
Response.Write "字典是空的！"
Else
Dim aKeys,aValues,i
Set myLocalDict=Session("MyDict")
aKeys=myLocalDict.Keys
aValues=myLocalDict.Items
For i=0 To myLocalDict.Count-1
Response.Write aKeys(i)&"="&aValues(i)&"<Br>"
Next
End If
%>