Dictionary是存储数据键和项目对的对象,其主要属性有Count、Item、Key,主要方法有Add、Exists、Items、Keys、Remove、RemoveAll

Dictionary是存储数据键和项目对的对象,其主要属性有Count、Item、Key,主要方法有Add、Exists、Items、Keys、Remove、RemoveAll。
创建Dictionary对象 

'定义并创建Dictionary对象,使用CreateObject创建并返回自动化对象的引用
Dim Dic
Set Dic = CreateObject("Scripting.Dictionary")

添加键值 

Dim Dic
Set Dic = CreateObject("Scripting.Dictionary")
'向Dictionary对象中添加键值对
Dic.Add "Name", "Sirrah" 'Add方法第一个参数是Key值,第二个是Item值
Dic.Add "Age", 23  

删除键值   

Dim Dic
Set Dic = CreateObject("Scripting.Dictionary")
Dic.Add "Name", "Sirrah" '向Dictionary对象中添加键值对
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对象中添加键值对
Dic.Add "Age", 23
MsgBox Dic.Exists("Age") '判断键是否存在 

输出所有键值
输出Dictionary对象所有键值,这边将介绍2种常用的循环方法,具体代码如下:

Dim Dic,Dics
Set Dic = CreateObject("Scripting.Dictionary")
Dic.Add "Name", "Sirrah" '向Dictionary对象中添加键值对
Dic.Add "Age", 23
Dics = dic.Items 'Items返回一个包含所有Item值的数组
For i = 0 To dic.Count - 1 'Count返回Dictionary对象键数目
 str = str & Dics(i) & vbCrlf
Next
MsgBox(str)
Dim Dic,Dics
Set Dics = CreateObject("Scripting.Dictionary")
Dics.Add "Name", "Sirrah" '向Dictionary对象中添加键值对
Dics.Add "Age", 23
For Each Dic In Dics '循环遍历Dictionary键,并输出键值
 MsgBox Dics.Item(Dic)
Next

补充一个实例

脚本文件:a.vbs,包含字典的添加、删除、判断键是否存在、修改键、修改值、遍历、统计键值对个数

'建立字典
Dim Dict : Set Dict = CreateObject("Scripting.Dictionary")

'添加键值对
Dict.Add "Key1", "Item1"
Dict.Add "Key2", "Item2"
Dict.Add "Key3", "Item3"

'字典中键值对数量
WScript.Echo "字典中现有键值对数量: " & Dict.Count '让一个脚本在屏幕上显示文本信息

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返回一个包含所有Item值的数组
 For Counter = 0 To Dict.Count - 1 'Count返回Dictionary对象键数目
 WScript.Echo _
  "键: " & DictKeys(Counter) & _ '& 字符串连接运算符
  "值: " & DictItems(Counter)
 Next
End Sub

TraverseDict

WScript.Echo 

'在一个键值对中,修改键或修改值
Dict.Key("Key2") = "Keyx"
Dict.Item("Key1") = "Itemx"
TraverseDict

WScript.Echo 

'删除指定键
Dict.Remove("Key3")
TraverseDict

WScript.Echo 

'删除全部键
Dict.RemoveAll
WScript.Echo "字典中现有键值对数量: " & Dict.Count

调用方法:通过双击a.bat调用,a.bat代码如下:

cscript a.vbs
pause

运行结果截图:

最新资讯
俞敏洪戴自更请回答:退回20年前 你会投资对方吗?

俞敏洪戴自更请回答:退

4月23日,寻找中国创客第五季联合东方坐标学院举办在线
风暴中的OYO:我们不是拼多多

风暴中的OYO:我们不是

中国万亿规模的单体酒店市场风起云涌,OYO狂飙突进的同
美媒:孙正义投资比特币巨亏 损失达1.3亿美元

美媒:孙正义投资比特币

知情人士称,无法确定孙正义的确切投资规模。但直到2018
直击|联想刘军:收购摩托罗拉手机后 终于盈利了

直击|联想刘军:收购摩

联想集团今日举行新品发布会。联想集团执行副总裁兼中
吴晓波:罗永浩犯了两个错误 第一梦太大第二入错行

吴晓波:罗永浩犯了两个

新浪商课连续三天直播“吴晓波解读大败局”。本次直播
左晖:房地产由增量转向存量 贝壳要成月活过亿平台

左晖:房地产由增量转向

“今天中国整个不动产的发展的确到了新阶段,过去20年行
最新文章
VBS基础篇 - VBScript过程(使用sub 与 Function定义函数)

VBS基础篇 - VBScript

在 VBScript 中,过程被分为两类:Sub 过程和 Function 过
VBS基础篇 - 循环(for、Do、While)

VBS基础篇 - 循环(for

经常地,当编写代码时,我们希望将一段代码执行若干次,我们
VBS基础篇 - vbscript class类的定义与使用

VBS基础篇 - vbscript

vbs Class就是声明一个类的名称,以及组成该类的变量、
VBS基础篇 - vbscript Dictionary对象

VBS基础篇 - vbscript

Dictionary是存储数据键和项目对的对象,其主要属性有Co
VBS基础篇 - vbscript动态数组

VBS基础篇 - vbscript

VBS中的动态数组需要使用System.Collections.ArrayLis
vbs操作txt文本文件常用方法与函数代码

vbs操作txt文本文件常

这篇文章主要介绍了vbs操作txt文本文件常用方法与函数