DDR爱好者之家 Design By 杰米
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
运行结果截图:
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
更新日志
2024年04月29日
2024年04月29日
- 原画壁纸及美图第205期,无水印可自取
- 向蕙玲.2016-女人心事【豪记】【WAV+CUE】
- 徐若瑄.2024-先听我说完Its.My.Turn【SONY】【FLAC分轨】
- 林子祥.2016-最爱40周年MY.BELOVED.4CD【华纳】【WAV+CUE】
- 群星《古惑仔 电影原声大碟》香港首版4CD [WAV+CUE][893M]
- 无期迷途《完美投票 游戏原声OST》[320K/MP3][36.18MB]
- 无期迷途《完美投票 游戏原声OST》[FLAC/分轨][110.46MB]
- dnf深邃深渊之鳞有必要吗
- dnf狂战士110版本平民装备搭配
- dnf登录黑屏时间太久无响应
- 很明显喷人比浇花更快乐 动图 妖精的身份被你发现了
- 电路规划+牌组构筑!《末日电涌》即将于5.10发售!
- 才刚经历过大更新的星露谷物语,怎么就惹到国内玩家了?
- 【爵士沙发】VA-2024-BarLoungeCostesVol.8(FLAC)
- 【布鲁斯摇滚】DavidePannozzo-2024-RoomforJoy(FLAC)