浅谈DICTIONARY(字典)对象

ilyou2049

1.
Dictionary 物件(字典)

描述: 物件(字典)，用于储存資料关键字和項目对。

语法:
Scripting.Dictionary

请注意

Dictionary 物件(字典)与 PERL 相关阵列全等。可以是任何型式的資料的项目被储存在阵列中。每个项目都与一个唯一的关键字相关。該关鍵字用来取出单个项目，通常是整数或字串，可以是除阵列外的任何型态。

下面的程序码举例說明了如何建立一个 Dictionary 物件(字典)：

Dim d
'建立一个变数

Set d = CreateObject(Scripting.Dictionary)

d.Add "a", "Athens"
'加入一些关键字和项目

d.Add "b", "Belgrade"d.Add "c", "Cairo"

2.
Key 属性

描述:
在一个 Dictionary 物件中设定一个 key。

语法:
object.Key(key) = newkeyKey

属性具有下列单元：

单 元
描   述

object
必要引数。始終是一个 Dictionary 物件(字典)的名字。

key           必要引数。被更改的 Key。

newkey
必要引数。取代指定 key 的新。

请注意 如果在更改某个 key 时，沒有找到 key，则会出现执行阶段错误。

ilyou2049

3.  Item 属性         
描述:  对 Dictionary 物件中指定的Key，设定或传回一个Item 。对于集合來說，基于指定的Key，传回一个Item。读取/写入属性。
语法:  object.Item(key) [= newitem]
Item 属性具有下列单元：
单  元        描      述
object        必要引数。始終是一个集合或 Dictionary 物件(字典)的名称。
key        必要引数。与被取出或加入的项目相关的 Key 。
newitem        选择性引数。仅用于 Dictionary 物件；沒有用于集合的应用程序。如果提供的話，newitem 是与指定的 Key 相关的新值。
请注意 如果在改变某个 item 时，沒有找到 key，则用指定的newitem建立一个新的 key。如果在试图传回某个已存在项目时，沒有找到 key，则建立一个新 key，且其相对的项目为无。
4.  Count 属性  
描述：传回集合或 Dictionary 物件(字典)中的项目数。只读。
语法：object .Count    object 始终是「适用于」清单中某一项目的名称。
请注意  下面的程式码举例说明了 Count 属性的使用方法：
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  '遍及阵列
    Print a(i)   '列印关键字
Next
...

ilyou2049

5.  CompareMode 属性         
描述:  设定或传回 Dictionary 物件(字典)中的比较字串关键字的比较模式。
语法:  object.CompareMode[ = compare]
CompareMode 属性具有下列单元：
单  元        描    述
object        必要引数。始终是一个 Dictionary 物件(字典)的名称。
compare        选择性引数。如果提供的话，compare 是一个代表比较模式的，该比较模式用于象 StrComp 这样的函数。
设定 compare 引数可以具有下列值：
常    数                 描    述
VbUseCompareOption        -1        使用 Option Compare 陈述式的设定进行比较。
vbBinaryCompare         0        进行二进位比较。
vbTextCompare         1        进行文字比较。
vbDatabaseCompare         2        仅用于 Microsoft Access。进行基于您自己资料库中资讯的比较。
请注意  如果试图对已经包含资料的 Dictionary 物件(字典)的比较模式进行更改的话，就会出错。
CompareMode 属性所用的引数与 StrComp 函数所用的 compare 引数相同。可以用大于 2 的表示使用指定的 Locale IDs (LCID) 的比较。