第一篇：VB中的Dictionary對象介紹+小結(jié)

VBA中Dictionary對象使用小結(jié)

Dim dict ' 創(chuàng)建Dictionary Set dict = CreateObject(“Scripting.Dictionary”)' 增加項(xiàng)目

dict.Add “A”, 300 dict.Add “B”, 400 dict.Add “C”, 500 ' 統(tǒng)計(jì)項(xiàng)目數(shù) n = dict.Count ' 刪除項(xiàng)目

dict.Remove(“A”)' 判斷字典中是否包含關(guān)鍵字 dict.exists(“B”)' 取關(guān)鍵字對應(yīng)的值，注意在使用前需要判斷是否存在key，否則dict中會多出一條記錄 Value = dict.Item(“B”)' 修改關(guān)鍵字對應(yīng)的值,如不存在則創(chuàng)建新的項(xiàng)目 dict.Item(“B”)= 1000 dict.Item(“D”)= 800 ' 對字典進(jìn)行循環(huán) k = dict.keys v = dict.Items For i = 0 To dict.Count-1 key = k(i)Value = v(i)MsgBox key & Value Next ' 刪除所有項(xiàng)目 dict.Removeall 實(shí)例： Sub 宏1()Set dic = CreateObject(“Scripting.Dictionary”)'字典 For i = 1 To 10000 If Not i Like “*4*” Then dic.Add i, “" '如果不包含“1” End If Next Range(”a2“).Resize(dic.Count, 1)= Application.WorksheetFunction.Transpose(dic.keys)'從A2單元開始向下放置 End Sub

VB中的Dictionary對象

核心歸納：

1、更換鍵名，用obj.key(”xx“)=”newxx“

2、更換鍵值或訪問指定鍵：

1、重設(shè)鍵值：obj.item(”xx“)=”newxx“，2、取得鍵值：response.write obj.item(”xx“)=”，如果obj.item(“xx”)=“newxx” 中的KEY鍵“xx”未設(shè)定時，會在對象的后面增加一個鍵值對。

3、獲得條目數(shù)：obj.count(從1開始)

4、增加鍵值對：obj.add key,value

5、移除鍵：obj.remove(“key”), obj.removeall()

6、判定鍵是否存在：obj.Exists(“key”)

7、遍歷：先把鍵和值各自賦給一個變量，構(gòu)成一維數(shù)組，再用FOR遍歷 a=d.keys b=d.Items 'For x=0 to d.count-1 '或 從上到下遍歷，F(xiàn)or x=d.Count-1 To 0 Step-1 '從下到上遍歷 wan : abc

zuo : 10254

Response.write a(x)

Response.write “ : ”

Response.write b(x)

Response.write “
” Next

8、用obj..CompareMode = 0（二進(jìn)制，默認(rèn)，大小寫敏感）或obj.CompareMode = 1（文本，大小寫不區(qū)分，但不會后面的覆蓋前面）來指定比較模式，=================== 簡單的理解：Scripting.Dictionary對象相當(dāng)于二維數(shù)組，但比二維數(shù)組更靈活，可以隨時操縱其中某個鍵，而二維數(shù)組還要遍歷。

以下用一個簡單的案例來幫助理解：

set d=server.CreateObject(“scripting.dictionary”)d.add “zuo”,21312 d.add “wan”,“abc” response.write d.Count '計(jì)數(shù)，從1開始 Response.write “
” a=d.keys b=d.Items 'For x=0 to d.count-1 '或 從上到下遍歷，F(xiàn)or x=d.Count-1 To 0 Step-1 '從下到上遍歷 wan : abc

zuo : 10254

Response.write a(x)

Response.write “ : ”

Response.write b(x)

Response.write “
” Next Response.write d.item(“wan”)'輸出指定的key值 Response.write “
” d.item(“wan”)=“新值” Response.write d.item(“wan”)'輸出指定的key值 Response.write “
” d.key(“wan”)=“newwan” '更改鍵名 'wan鍵名更改了，是否還有值？

Response.write “執(zhí)行d.key(”“wan”“)=”“newwan”“后再輸出wan” Response.write d.item(“wan”)'無值輸出。但要注意： d.item(“wan”)不存在，可用d.Exists(“wan”)檢測。Response.write “
輸出新名稱newwan的值：” Response.write d.item(“newwan”)Response.write “
” Response.write d.Exists(“newwan”)'分析是否存在這個鍵True。d.Remove(“newwan”)Response.write “
” Response.write d.Exists(“wan”)'分析是否存在這個鍵True。Response.write “
” For x=d.Count-1 To 0 Step-1 '從下到上遍歷 wan : abc

zuo : 10254 Response.write a(x)Response.write “ : ” Response.write b(x)Response.write “
” Next

詳細(xì)：

許多Microsoft的編程語言，如Visual Basic、VBScript和Jscript，都提供集合（collection）?？梢园鸭舷胂鬄閿?shù)組，可以使用其中內(nèi)建的函數(shù)完成存儲和操縱數(shù)據(jù)等基本任務(wù)。無須擔(dān)心數(shù)據(jù)是在哪些行列，而是使用唯一的鍵進(jìn)行訪問。

VBScript和Jscript都提供類似的對象，通稱Scripting.Dictionary對象或Dictionary對象。它類似于二維數(shù)組，把鍵和相關(guān)條目的數(shù)據(jù)存放在一起。然而真正的面向?qū)ο蟮姆椒ǎ粦?yīng)直接訪問數(shù)據(jù)條目，必須使用Dictionary對象支持的方法和屬性來實(shí)現(xiàn)。

創(chuàng)建和使用Dictionary對象

創(chuàng)建一個Dictionary對象的示例如下：

‘In VBScript: Dim objMyData

Set objMyData = Server.CreateObject(“Scripting.Dictionary”)//In Jscript:

var objMyData = Server.CreateObject(?Scripting.Dictionary?);

Dictionary對象還可用于客戶端的IE中。

1． Dictionary對象的成員概要

當(dāng)增加一個鍵/條目對時，如果該鍵已存在；或者刪除一個鍵/條目對時，該關(guān)鍵字/條目對不存在，或改變已包含數(shù)據(jù)的Dictionary對象的CompareMode，都將產(chǎn)生錯誤。屬 性 說 明

CompareMode（僅用于VBScript）設(shè)定或返回鍵的字符串比較模式

Count 只讀。返回Dictionary里的鍵/條目對的數(shù)量---從1開始，而不像數(shù)組從0開始計(jì)數(shù) Item(key)設(shè)定或返回指定的鍵的值

Key(key)設(shè)定鍵名值

方法說明

Add(key,item)增加鍵/條目對到Dictionary

Exists(key)如果指定的鍵存在，返回True，否則返回False Items()返回一個包含Dictionary對象中所有條目的數(shù)組

Keys()返回一個包含Dictionary對象中所有鍵的數(shù)組

Remove(key)刪除一個指定的鍵/條目對

RemoveAll()刪除全部鍵/條目對

2． 對Dictionary中增加和刪除條目

一旦得到一個新的（空的）Dictionary，可以對其添加條目，從中獲取條目以及刪除條目：

‘ In VBScript:

objMyData.Add “MyKey”, “MyItem” objMyData.Add “YourKey”, ”YourItem” blnIsThere = objMyData.Exists(“MyKey”)strItem = objMyData.Item(“YourKey”)strItem = objMyData.Remove(“MyKey”)objMyData.RemoveAll 3． 修改鍵或條目的值

可以通過修改鍵的值，或通過修改與特定的鍵關(guān)聯(lián)的條目的數(shù)據(jù)，來改變存儲在Dictionary內(nèi)的數(shù)據(jù)。下面的代碼改變鍵為MyKey的條目中的數(shù)據(jù)。

ObjMyData.Item(“MyKey”)= “NewValue” ? In VBScript ObjMyData.Item(?MyKey?)= ?NewValue?;// In JScript 如果指定的鍵在Dictionary未找到，將在Dictionary中后面位置創(chuàng)建一個以MyKey為鍵，以New Value為其條目值的新的鍵/條目對。有意思的是，如果使用一個不存在的鍵來檢索條目，不僅得到一個空的字符串（這是可以想到的），而且還在Dictionary里添加一個新的鍵/條目對，鍵即是指定的鍵，但條目的數(shù)據(jù)為空。

可以使用Key屬性僅改變鍵名的值而不改變與之對應(yīng)的條目的數(shù)據(jù)。將一個已存在的鍵MyKey改變?yōu)镸yNewKey，可以用：

objMyData.Key(“MyKey”)= “MyNewValue” ? In VBScript objMyData.Item(?MyKey?)= ?MyNewValue?;// In JScript 如果指定的鍵未找到，則產(chǎn)生運(yùn)行期錯誤。

4． 設(shè)置比較模式

Dictionary的CompareMode屬性僅適用于VBScript，不能在JScript中使用。當(dāng)比較字符串鍵時，允許指定比較的方式。兩個允許的值為BinaryCompare(0)和TextCompare(1)。BinaryCompare(0)為二進(jìn)制數(shù)對照（即區(qū)分大小寫）；TextCompare(1)為文本對照（即不區(qū)分大小寫）。

5． 遍歷Dictionary

研究Dictionary時，有兩個方法和一個屬性需要特別注意，它們允許我們遍歷存儲在Dictionary里的所有鍵/條目對。Items方法用一個一維數(shù)組的形式返回Dictionary里所有的條目數(shù)據(jù)，而keys方法用一個一維數(shù)組返回所有已存在的鍵值?？梢允褂肅ount屬性得到鍵或條目的數(shù)量。

例如，可以使用下列代碼得到名稱為objMyData的Dictionary中所有的鍵和條目值。注意，雖然Count屬性保存了在Dictionary里的鍵/條目數(shù)量，但VBScript和JScript的數(shù)組總是從下標(biāo)0開始的。因此，數(shù)組下標(biāo)應(yīng)從0到Count-1。

‘In VBScript:

arrKeys = objMyData.Keys ?Get all the keys into an array arrItems = objMyData.Items ?Get all the items into an array

For intLoop = 0 To objMyData.Count –1 ?Iterate through the array

StrThisKey = arrKeys(intLoop)?This is the key value

StrThisItem = arrItems(intLoop)?This is the item(data)value Next

// In JScript

// Get VB-style arrays using the Keys()and Items()methods var arrKeys = new VBArray(objMyData.Keys()).toArray();var arrItems = new VBArray(objMyData.Items()).toArray();for(intLoop = 0;intLoop < objMyData.Count;intLoop++){ // Iterate through the arrays

strThisKey = arrKeys[intLoop];// This is the key value

strThisItem = arrItems[intLoop];// This is the item(data)value }

在VBScript里也可以使用For Each ? Next語句完成同樣的功能：

arrKeys = objMyData.Keys arrItems = objMyData.Items For Each objItem in arrItems

Response.Write objItem & “ = “ & arrItems(objItem)& “
” Next

5.3.2 Dictionary對象示例

本書提供了一系列示例文件可用來試驗(yàn)?zāi)_本運(yùn)行時間庫的各種屬性。

本章代碼的缺省頁面提供了一系列可使用的VBScript示例鏈接。有些示例對JScript同樣有效。這些示例存放在Chapter05目錄下相應(yīng)的子目錄里，顯示的界面如圖5-2所示：

要查看Dictionary對象的運(yùn)行，在菜單頁面點(diǎn)擊第一個鏈接，打開名叫show_dictionary.asp的頁面。這個頁面顯示了我們提供的Dictionary對象的內(nèi)容，允許試驗(yàn)其屬性和方法。屏幕如圖5-3所示：

1． Dictionary的global.asa文件

隨Dictionary對象示例頁面提供的文件之一是global.asa。它創(chuàng)建并預(yù)先填充了一個會話層作用域的Dictionary對象，因此其內(nèi)容在頁面請求之間不會丟失。一般說來（考慮到可擴(kuò)展性），這不是一個理想的做法。在這個例子里，可以看到Dictionary的屬性和方法的效果。

如果在自己的服務(wù)器上下載并安裝示例，必須創(chuàng)建一個基于此global.asa文件的虛擬應(yīng)用程序。或者將其內(nèi)容添加到缺省站點(diǎn)的根文件夾中的global.asa文件里。在第3章講述了如何用向?qū)?chuàng)建虛擬應(yīng)用程序。然而對于本示例，創(chuàng)建一個虛擬應(yīng)用程序最簡單的方法是在Chapter05示例文件夾內(nèi)右擊dictionary子文件夾，在Properties對話框的Home Directory選項(xiàng)卡里，點(diǎn)擊Create按鈕，如圖5-4所示：

在這個global.asa文件里，代碼使用