1 引用 c:\windows\system32\scrrun.dll 然後 dim d as new Dictionary
2 Set d = CreateObject("Scripting.Dictionary")
字典的四個屬性
CompareMode 決定key的比較方法 BinaryCompare(默認方法) 二進制方式比較,即a,A是不同字符
TextCompare '文本方式比較,即a,A是相同字符
vbDatabaseCompare 僅用於 Microsoft Access。進行基於您自己數據庫中信息的比較。
如果用recordset做key的話vbDatabaseCompare方式就有用了,因為用的少沒有測試過
Count 計算字典中的條目數量 s = d.count s 是壹個long值
Key 也就是Item的代碼通常是整數或字符串,可以是除數組外的任何類型,在壹個字典中每壹個key都是唯壹的
壹般利用這個特點去除重復值
Item 可以是任何對象(不含自定義數據):數字,字符串,數組,對象(窗體,控件,文件。。。。)
字典的六個方法
Add 向字典添加內容 d.add "a",10000,或 d("王先生")= "010-87654321"
向字典添加對象 set d("mysheet") = Sheet1 Set d("mybook") = ThisWorkbook
註意 set 關鍵字
Exists 判斷keys中有沒有要找的key,返回 true 或 false
s = d.exists("王先生"), s 是 true 因為上面已經添加了王先生
Keys 學過英文吧?Key的復數形式,返回壹個壹維數組 arr= d.keys
Items 同上 arr = d.items
Remove 按照key從字典中刪除壹個項目 d.remove("王先生")
RemoveAll 清空字典 d.RemoveAll 此時 d.count 為 0字典簡單,好學又好用 總***10種屬性方法.
描述
在壹個 Dictionary 對象中設置壹個 key。
語法
object.Key(key) = newkey
Key 屬性具有下列部分:
部分 描述
object 必需的。總是壹個 Dictionary 對象的名字。
key 必需的。被更改的 Key值。
newkey 必需的。替換指定 key 的新值。
說明
如果在更改某個 key 時,沒有找到 key,則會出現運行時錯誤。
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,且其相應的條目為空。
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
...
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) 的比較。