Dictionary 字典对象

 

                                                                 Dictionary 字典对象 
       Dictionary 对象与 PERL 关联数组是等价的。项目（可以是任何形式的数据）被保存在数组中。每项都与唯一的键相关联。键值用于检索单个项目，通常是整数或字符串，但不能为数组。 
Dictionary对象的属性： 
CompareMode（c ompare）：设置并返回在 Dictionary 对象中比较字符串关键字的比较模式。   

Compare：可选项。vbBinaryCompare（0）：执行二进制比较（不区分大小写）. 
                                vbTextCompare  （1）：执行文本比较（区分大小写）  

实例：

Dim d            

Set d = CreateObject("Scripting.Dictionary")  d.CompareMode = vbTextCompare  ’使用文本比较  

d.Add "a", "Athens"      ' 增加一些键和项目。  

d.Add "b", "Belgrade"  

d.Add "c", "Cairo"  

d.Add "B", "Baltimore"   ' 在此行添加方法失败因为 字母 b 已经在 Dictionary 中存在。 
 

Count：返回一个集合或 Dictionary 对象包含的项目数。  

实例：Set d = CreateObject("Scripting.Dictionary")    

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

d.Add "b", "Belgrade"    d

.Add "c", "Cairo"     

i = d.Count  '获取项目数。 
    注：i的值为3 
 
HashVal：无资料  
Item：设置或返回 Dictionary 对象中指定的 key 对应的 Item，或返回集合中基于指定的 key 的 Item。可读写。 

实例1（返回项目值）： 
Dim d                   '创建变量. 
Set d = CreateObject("Scripting.Dictionary")       

d.Add "a", "Athens"     '添加键和项目对.        

d.Add "b", "Belgrade"       

d.Add "c", "Cairo" 
 ItemDemo = d. Item ("c")  '得到项目.   注：itemdemo存储的是Cairo  

 

实例2（设置项目值）：     

Dim d                   '创建变量.    
Set d = CreateObject("Scripting.Dictionary") 

d.Add "a", "Athens"     '添加键和项目对.       

d.Add "b", "Belgrade"       

d.Add "c", "Cairo"       

d.Item("c")="hello"  ‘修改项目值       

itemdemo= d.Item("c")  '得到项目.        

注：itemdemo存储的是hello  
 
Key(key)：设置在 Dictionary 对象中的关键字。  

Key（参数）：要改变的 Key 值。 
 实例：

Dim d                   '创建变量。 
Set d = CreateObject("Scripting.Dictionary")       

d.Add "a", "Athens"     '添加键和项目对。       

d.Add "b", "Belgrade"       

d.Add "c", "Cairo" 

d.Key("c") = "d"        '将"c"的键设置为"d"。 
 
Dictionary对象的方法： 
 a.Add：向 Dictionary 对象添加键和项目对   语法：object.Add key, item 
 实例：

Set d = CreateObject("Scripting.Dictionary") 
d.Add "a", "Athens"     '添加一些键和项目。 
d.Add "b", "Belgrade"

d.Add "c", "Cairo"   注：无 
 
a.Exists：检查指定键指定键是否存在，存在：返回 True；不存在：返回 False。  

语法：object.exists （key） 
实例：

Dim d, msg              '创建一些变量。 
Set d = CreateObject("Scripting.Dictionary")       

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

d.Add "b", "Belgrade"       

d.Add "c", "Cairo"      

 If d.Exists("c") Then 
      msg = "指定的键存在。"       

Else 
      msg = "指定的键不存在。"       

End If 
注：无  

a.Items：返回一个数组，其中包含有 Dictionary 对象中的所有项目。 
 语法：object.items 
实例：

Dim a,d,I,s                  '创建一些变量 
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       '循环使用数组。   

s = s & a(i) & "<BR>"       '创建返回字符串。   

Next 
 注:a获取项目后是一个数组 
 
a.Keys：返回一数组，其中包含有 Dictionary 对象的所有现存键。  
语法：object.Keys 
实例：Dim a,d,i                        '创建一些变量。 
Set d = CreateObject("Scripting.Dictionary") 

d.Add "a","Athens"                '添加键和项目。 

d.Add "b","Belgrade" 

d.Add "c","Cairo" 
a = d.Keys                      '获取键。 
For i = 0 To d.Count -1          '循环使用数组。   

s = s & a(i) & "<BR>"          '返回结果。  

Next  注：无  

a.Remove：从 Dictionary 对象中删除键和项目对。  

语法：object.Remove(key)   Key：与要从 Dictionary 对象中删除的键和项目对相关联的 Key  
实例：

Dim a, d                    '创建变量。 
Set d = CreateObject("Scripting.Dictionary") 

d.Add "a", "Athens"         '添加键和项目。 

d.Add "b", "Belgrade" 

d.Add "c", "Cairo" ... 
d.Remove("b")            '删除第二个项目对  

注：无  

a.RemoveAll：删除 Dictionary 对象中的所有键和项目对。  
 语法：object.RemoveAll 
实例：

Dim a,d,i             '创建一些变量。 
Set d = CreateObject("Scripting.Dictionary") 

d.Add "a","Athens"     '添加键和项目。 

d.Add "b","Belgrade" 

d.Add "c","Cairo" ... 
d.RemoveAll         '清除 dictionary。 

注：无