VB中的Dictionary对象
VB中的Dictionary对象
Dictionary对象不是VBA或Visual Basic实时语言的具体存在的部分,它是存在于Microsoft Scripting Runtime Library(SCRRUN.DLL)中的一个对象。
为了在应用程序中使用Dictionary对象,就必须利用Reference对话框增加一个项目级的引用到Scripting Runtime Library。
核心归纳:
1、更换键名,用obj.key("xx")="newxx"
2、更换键值或访问指定键:
(1)重设键值:obj.item("xx")="newxx",
(2)取得键值:obj.item("xx")="newxx" 中的KEY键“xx”未设定时,会在对象的后面增加一个键值对。
3、获得条目数:obj.count (从1开始)
4、增加键值对:obj.add key,value
5、移除键: obj.remove("key") , obj.removeall()
6、判定键是否存在:obj.Exists("key")
7、遍历:先把键和值各自赋给一个变量,构成一维数组,再用FOR遍历
a=d.keys 'b=d.Items
For i=0 to d.count-1
a(i)
b(i)
Next
8、用obj..CompareMode = 0(二进制,默认,大小写敏感)或= 1(文本,大小写不区分,但不会后面的覆盖前面)来指定比较模式,
'-----------------------------------
(1) Dim D as new Dictionnary
(2) Dim D as Dictionnary
set D =new Dictionnary
(3) Dim D as Dictionnary
Set d = CreateObject("Scripting.Dictionary")
'-------------------
Dim a, d, i '创建一些变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" '添加一些关键字和条目。
d.Add "b", "Belgrade"
blnIsThere = d.Exists("Key1")
strItem = d.Item("Key2")
strItem = d.Remove("Key3")
d.RemoveAll
a = d.Items '取得条目
For i = 0 To d.Count -1 '重复数组
Print a(i) '打印条目
Next
arrKeys = D.Keys
For Each objItem in arrItems
x = arrItems(objItem)
Next
1.Dictionary对象
当增加一个键/条目对时,如果该键已存在;或者删除一个键/条目对时,该关键字/条目对不存在,或改变已包含数据的Dictionary对象的CompareMode,都将产生错误。
属性
CompareMode 设定或返回键的字符串比较模式
Count 只读。 返回Dictionary里的键/条目对的数量 ---从1开始,而不像数组从0开始计数
Item(key) 设定或返回指定的键的值
Key(key) 设定键名值
方法
Add(key,item) 增加键/条目对到Dictionary
Exists(key) 如果指定的键存在,返回True,否则返回False
Remove(key) 删除一个指定的键/条目对
RemoveAll() 删除全部键/条目对
Items() 返回一个包含Dictionary对象中所有条目的数组
Keys() 返回一个包含Dictionary对象中所有键的数组
2. 对Dictionary中增加和删除条目
一旦得到一个新的(空的)Dictionary,可以对其添加条目,从中获取条目以及删除条目:
blnIsThere = d.Exists("Key1")
strItem = d.Item("Key2")
strItem = d.Remove("Key3")
a.RemoveAll
3. 修改键或条目的值
可以通过修改键的值,或通过修改与特定的键关联的条目的数据,来改变存储在Dictionary内的数据。下面的代码改变键为MyKey的条目中的数据。
a.Item(“MyKey”) = “NewValue”
如果指定的键在Dictionary未找到,将在Dictionary中后面位置创建一个以MyKey为键,以New Value为其条目值的新的键/条目对。
有意思的是,如果使用一个不存在的键来检索条目,不仅得到一个空的字符串(这是可以想到的),而且还在Dictionary里添加一个新的键/条目对,键即是指定的键,但条目的数据为空。
可以使用Key属性仅改变键名的值而不改变与之对应的条目的数据。将一个已存在的键MyKey改变为MyNewKey,可以用:
a.Key(“MyKey”) = “MyNewValue”
如果指定的键未找到,则产生运行期错误。
4. 设置比较模式
Dictionary的CompareMode属性。
当比较字符串键时,允许指定比较的方式。两个允许的值为BinaryCompare(0)和TextCompare(1)。BinaryCompare(0)为二进制数对照(即区分大小写);TextCompare(1)为文本对照(即不区分大小写)。
5. 遍历Dictionary
研究Dictionary时,有两个方法和一个属性需要特别注意,它们允许我们遍历存储在Dictionary里的所有键/条目对。
Items方法用一个一维数组的形式返回Dictionary里所有的条目数据.
keys方法用一个一维数组返回所有已存在的键值。
可以使用Count属性得到键或条目的数量。
例如,可以使用下列代码得到名称为D的Dictionary中所有的键和条目值。注意,虽然Count属性保存了在Dictionary里的键/条目数量
数组下标应从0到Count-1。
arrKeys = D.Keys ‘Get all the keys into an array
arrItems = D.Items ‘Get all the items into an array
For intLoop = 0 To D.Count –1 ‘Iterate through the array
StrThisKey = arrKeys(intLoop) ‘This is the key value
StrThisItem = arrItems(intLoop) ‘This is the item (data) value
Next
也可以使用For Each … Next语句完成同样的功能:
arrKeys = D.Keys
For Each objItem in arrItems
x = arrItems(objItem)
Next
VB中的Dictionary对象的更多相关文章
- VB 中定义FileSystemObject对象,要先添加对象
存取文件的方法有很多种,可以使用上述VB提供的函数,使用Windows API函数等等,但是最简单的方法是使用FileSystemObject对象. 1.使用FileSystemObject对象 F ...
- vb 中recordset提示对象关闭时不允许操作
vb中执行查询后,一般要判断是否为空,只要执行的查询执行了select,都可以用rs.eof 或者 rs.recordcount来判断, 但是,如果执行的sql中加了逻辑判断,导致没有执行任何sele ...
- c++中的dictionary对象:map的使用备忘
#include <map> #include <iostream> using namespace std; void main(){ map <string, int ...
- JavaScript基础精华03(String对象,Array对象,循环遍历数组,JS中的Dictionary,Array的简化声明)
String对象(*) length属性:获取字符串的字符个数.(无论中文字符还是英文字符都算1个字符.) charAt(index)方法:获取指定索引位置的字符.(索引从0开始) indexOf(‘ ...
- JavaScript中创建字典对象(dictionary)实例
这篇文章主要介绍了JavaScript中创建字典对象(dictionary)实例,本文直接给出了实现的源码,并给出了使用示例,需要的朋友可以参考下 对于JavaScript来说,其自身的Array对象 ...
- C#中的Dictionary简介
简介在C#中,Dictionary提供快速的基于兼职的元素查找.当你有很多元素的时候可以使用它.它包含在System.Collections.Generic名空间中. 在使用前,你必须声明它的键类型和 ...
- C#中使用Dictionary实现Map数据结构——VC编程网
转载自: http://blog.51cto.com/psnx168 在VC中使用过CMap以及在Java中使用过Map的朋友应该很熟悉,使用Map可以方便实现基于键值对数据的处理,在C#中,你就需要 ...
- VB中的API详解
一.API是什么? 这个我本来不想说的,不过也许你知道其它人不知道,这里为了照顾一下新手,不得不说些废话,请大家谅解. Win32 API即为Microsoft 32位平台的应用程序编程接口(Appl ...
- 【转】VB中应用DDE
动态数据交换(dde)是windows应用程序间通讯的基本方法之一,在动态数据交换的过程中,提供数据和服务的应用程序称为服务器,请求数据或服务的应用程序则称为客户. dde交谈是由客户程序启动的.如果 ...
随机推荐
- 获取fragment中对应的控件的写法
getActivity().findViewById(id);//用来关联activity中加载的控件id
- document.all和jq trigger原理
document.all是页面内所有元素的一个集合.如: document.all(0)表示页面内第一个元素document.all可以判断浏览器是否是IE if(document ...
- bzoj1188: [HNOI2007]分裂游戏
Description 聪聪和睿睿最近迷上了一款叫做分裂的游戏. 该游戏的规则试: 共有 n 个瓶子, 标号为 0,1,2.....n-1, 第 i 个瓶子中装有 p[i]颗巧克力豆,两个人轮流取豆子 ...
- Kafka笔记--指定消息的partition规则
参数的设定:参考资料 不错的资料:http://blog.csdn.net/honglei915/article/details/37697655 http://developer.51cto.com ...
- java_method_正则校验
/** * * @Title: validadeRegExp * @Descrption : TODO (正则校验) * @param regExp * @param obj * @return * ...
- Linux——搭建PHP开发环境第一步:apache
原文链接:http://www.2cto.com/os/201511/450258.html ##### Apache 编译安装[root@localhost ~]# yum install gcc ...
- 记 tower.im 的一次重构
原文in here: http://outofmemory.cn/wr?u=http%3A%2F%2Fblog.mycolorway.com%2F2013%2F05%2F01%2Ftower-refa ...
- FPGA同步复位异步复位
今天看了篇博客, 是拿altera的芯片和软件作例子的,讲同步异步复位的: http://blog.sina.com.cn/s/blog_bff0927b0101aaii.html 还有一个博客, h ...
- Solr4.8.0源码分析(14)之SolrCloud索引深入(1)
Solr4.8.0源码分析(14) 之 SolrCloud索引深入(1) 上一章节<Solr In Action 笔记(4) 之 SolrCloud分布式索引基础>简要学习了SolrClo ...
- strcmp() Anyone?
uva11732:http://uva.onlinejudge.org/index.php?option=com_onlinejudge&Itemid=8&page=show_prob ...