Dictionary是存儲(chǔ)數(shù)據(jù)鍵和項(xiàng)目對(duì)的對(duì)象，其主要屬性有Count、Item、Key，主要方法有Add、Exists、Items、Keys、Remove、RemoveAll。

創(chuàng)建Dictionary對(duì)象

'定義并創(chuàng)建Dictionary對(duì)象，使用CreateObject創(chuàng)建并返回自動(dòng)化對(duì)象的引用

Dim Dic

Set Dic = CreateObject("Scripting.Dictionary")

添加鍵值

Dim Dic

Set Dic = CreateObject("Scripting.Dictionary")

'向Dictionary對(duì)象中添加鍵值對(duì)

Dic.Add "Name", "Sirrah" 'Add方法第一個(gè)參數(shù)是Key值，第二個(gè)是Item值

Dic.Add "Age", 23

刪除鍵值

Dim Dic

Set Dic = CreateObject("Scripting.Dictionary")

Dic.Add "Name", "Sirrah" '向Dictionary對(duì)象中添加鍵值對(duì)

Dic.Add "Age", 23

Dic.Item("Age") = 22 '修改鍵Age的值

MsgBox Dic.Item("Age") '輸出22

判斷鍵是否存在

Dim Dic

Set Dic = CreateObject("Scripting.Dictionary")

Dic.Add "Name", "Sirrah" '向Dictionary對(duì)象中添加鍵值對(duì)

Dic.Add "Age", 23

MsgBox Dic.Exists("Age") '判斷鍵是否存在

輸出所有鍵值

輸出Dictionary對(duì)象所有鍵值，這邊將介紹2種常用的循環(huán)方法，具體代碼如下：

Dim Dic,Dics

Set Dic = CreateObject("Scripting.Dictionary")

Dic.Add "Name", "Sirrah" '向Dictionary對(duì)象中添加鍵值對(duì)

Dic.Add "Age", 23

Dics = dic.Items 'Items返回一個(gè)包含所有Item值的數(shù)組

For i = 0 To dic.Count - 1 'Count返回Dictionary對(duì)象鍵數(shù)目

str = str & Dics(i) & vbCrlf

Next

MsgBox(str)

Dim Dic,Dics

Set Dics = CreateObject("Scripting.Dictionary")

Dics.Add "Name", "Sirrah" '向Dictionary對(duì)象中添加鍵值對(duì)

Dics.Add "Age", 23

For Each Dic In Dics '循環(huán)遍歷Dictionary鍵，并輸出鍵值

MsgBox Dics.Item(Dic)

Next

補(bǔ)充一個(gè)實(shí)例

腳本文件：a.vbs，包含字典的添加、刪除、判斷鍵是否存在、修改鍵、修改值、遍歷、統(tǒng)計(jì)鍵值對(duì)個(gè)數(shù)

'建立字典

Dim Dict : Set Dict = CreateObject("Scripting.Dictionary")

'添加鍵值對(duì)

Dict.Add "Key1", "Item1"

Dict.Add "Key2", "Item2"

Dict.Add "Key3", "Item3"

'字典中鍵值對(duì)數(shù)量

WScript.Echo "字典中現(xiàn)有鍵值對(duì)數(shù)量: " & Dict.Count '讓一個(gè)腳本在屏幕上顯示文本信息

WScript.Echo

'檢查指定鍵是否存在

If Dict.Exists("Key1") Then

WScript.Echo "Key1 存在!"

Else

WScript.Echo "Key1 不存在!"

End If

If Dict.Exists("Keyn") Then

WScript.Echo "Keyn 存在!"

Else

WScript.Echo "Keyn 不存在!"

End If

WScript.Echo

'遍歷字典

Sub TraverseDict

Dim DictKeys, DictItems, Counter

DictKeys = Dict.Keys

DictItems = Dict.Items 'Items返回一個(gè)包含所有Item值的數(shù)組

For Counter = 0 To Dict.Count - 1 'Count返回Dictionary對(duì)象鍵數(shù)目

WScript.Echo _

"鍵: " & DictKeys(Counter) & _ '& 字符串連接運(yùn)算符

"值: " & DictItems(Counter)

Next

End Sub

TraverseDict

WScript.Echo

'在一個(gè)鍵值對(duì)中，修改鍵或修改值

Dict.Key("Key2") = "Keyx"

Dict.Item("Key1") = "Itemx"

TraverseDict

WScript.Echo

'刪除指定鍵

Dict.Remove("Key3")

TraverseDict

WScript.Echo

'刪除全部鍵

Dict.RemoveAll

WScript.Echo "字典中現(xiàn)有鍵值對(duì)數(shù)量: " & Dict.Count

調(diào)用方法：通過(guò)雙擊a.bat調(diào)用，a.bat代碼如下：

cscript a.vbs

pause

運(yùn)行結(jié)果截圖：

總結(jié)

以上是生活随笔為你收集整理的java vbs_VBS基础篇 - vbscript Dictionary对象的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。