06
2015
01

如何在VB中操作Dictionary对象

本文向大家介绍在VB中,如何操作Scripting.Dictionary对象。简单来说,它相当于二维数组,但是和二维数组比起来,要更灵活一些。

一、对象的成员概要:

当增加一个键/条目对时,如果该键已存在;或者删除一个键/条目对时,该关键字/条目对不存在,或改变已包含数据的Dictionary对象的CompareMode,都将产生错误。
属性说明
CompareMode (仅用于VBScript)设定或返回键的字符串比较模式
Count 只读。返回Dictionary里的键/条目对的数量 ---从1开始,而不像数组从0开始计数
Item(key) 设定或返回指定的键的条目值
Key(key) 设定键值

方法说明
Add(key,item) 增加键/条目对到Dictionary
Exists(key) 如果指定的键存在,返回True,否则返回False
Items() 返回一个包含Dictionary对象中所有条目的数组
Keys() 返回一个包含Dictionary对象中所有键的数组
Remove(key) 删除一个指定的键/条目对
RemoveAll() 删除全部键/条目对


二、创建和使用Dictionary对象:

Dim sdData
Set sdData =Server.CreateObject(“Scripting.Dictionary”)


三、增加 删除 判断是否存在某个键 删除全部:

sdData.Add "A1", "张三"
sdData.Add "A2", "李四"
isThere = sdData.Exists("A1")
strItem = sdData.Item("A1")
strItem = sdData.Remove("A1")
sdData.RemoveAll


四、遍历Dictionary对象:

arrKeys = sdData.Keys
arrItems = sdData.Items
For i= 0 To sdData.Count–1
StrThisKey = arrKeys(i)
StrThisItem = arrItems(i)
Next


« 上一篇 下一篇 »

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。