[R语言] Dictionary对象(字典对象)

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

CompareMode （仅用于VBScript）设定或返回键的字符串比较模式 
 Count 只读。返回Dictionary里的键/条目对的数量 
 Item(key) 设定或返回指定的键的条目值 
 Key(key) 设定键值
3.Dictionary对象的方法和说明 
 Add(key,item) 增加键/条目对到Dictionary 
 Exists(key) 如果指定的键存在，返回True，否则返回False 
 Items() 返回一个包含Dictionary对象中所有条目的数组 
 Keys() 返回一个包含Dictionary对象中所有键的数组 
 Remove(key) 删除一个指定的键/条目对 
 RemoveAll() 删除全部键/条目对

<%
 Dim Dic,KeyValue,ItemValue
 KeyValue="Key_get123"
 ItemValue="Value_hao123"
 Set Dic = Server.CreateObject("Scripting.Dictionary")
 Dic.Add KeyValue,ItemValue
 Dic.Add "MyKey","MyValue"
 Response.Write(Dic.Item("Key_get123") & "
")
 Response.Write(Dic.Item("MyKey") & "
")

 arrKeysArray = Dic.Keys       
 arrItemsArray = Dic.Items     
 For intLoop = 0 To Dic.Count - 1   
   Response.Write("Key: <b>" & arrKeysArray(intLoop)&"_</b>Value: <b>"&arrItemsArray(intLoop)&"</b>
")
 Next
If Dic.Exists("MyKey") then
   Dic.Remove("MyKey")
 End if
arrKeysArray = Dic.Keys       
 arrItemsArray = Dic.Items     
 For intLoop = 0 To Dic.Count - 1   
   Response.Write("Key: <b>" & arrKeysArray(intLoop)&"_</b>Value: <b>"&arrItemsArray(intLoop)&"</b>
")
 Next
Dic.RemoveAll()
arrKeysArray = Dic.Keys       
 arrItemsArray = Dic.Items     
 For intLoop = 0 To Dic.Count - 1   
   Response.Write("Key: <b>" & arrKeysArray(intLoop)&"_</b>Value: <b>"&arrItemsArray(intLoop)&"</b>
")
 Next

 Set Dic=Nothing
%>