使用字典浅谈-缪炜
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


使用字典浅谈

发表时间:2018/10/19 8:36:03 评论(0) 浏览(766)  评论 | 加入收藏 | 复制
   
摘 要:以下是关于字典的一些基础知识,后面我会再给大家带来字典的一些示例,敬请期待。
正 文:
(1)字典定义与实例化

(1-1)字典的前期绑定(静态绑定)

工具——>引用


声明字典变量并实例化

'NO1:先声明,后实例化
Dim pDicX As Dictionary
Set pDicX = New Dictionary
'NO2:直接声明实例化,相当于执行了NO1的两句代码
Dim pDicX As New Dictionary
(1-2)字典的后期绑定(动态绑定)
  Dim pDicX As Object
  Set pDicX = CreateObject("Scriping.Dictionary")
(2)字典对象的基本操作
(2-1)字典的增【习惯:先判断键是否存在,再添加键值对】
'语法:Dictionary.Add (Key.Item),注意关键字【Key】值唯一,值可以重复
'作用:添加一个新的关键字及项目到字典中
'例子:我想给字典新增三个值,分别表示狗、猫、兔子有几条腿,
'【"dog",4,"cat":4,"rabbit":2】

Dim pStrX As String
pStrX = "dog"
If Not pDicX.Exists(pStrX) Then pDicX.Add pStrX, 4

pStrX = "cat"
If Not pDicX.Exists(pStrX) Then pDicX.Add pStrX, 4

pStrX = "rabbit"
If Not pDicX.Exists(pStrX) Then pDicX.Add pStrX, 2

(2-2)字典的查、改【习惯:先判断键是否存在,再查改】
'语法:Dictionary.Exists(Key) as Boolean
'作用:确定给定的关键字是否存在于字典中,存在返回true,不存在返回false

'语法:Dictionary.Item(Key)或者Dictionary(Key)
'作用:设置/获得给定关键字的项目

'语法:Dictionary.Key(Key)=newKey
'作用:更改关键字,将Key更改为newKey

'语法:Dictionary.Count As Long
'作用:获得字典中项目的个数

'例子:查询dog有几条腿,修改dog的腿数
pStrX = "dog"
If pDicX.Exists(pStrX) Then
    '(2-2-1)查询键对应的值
    Debug.Print Replace("写法一:dog有%条腿", "%", pDicX.item(pStrX)) ' 写法一:dog有4条腿
    Debug.Print Replace("写法二:dog有%条腿", "%", pDicX("dog")) '写法二:dog有4条腿
    '(2-2-2)修改键对应的值
    pDicX.item(pStrX) = 4 '或者pDicX("dog") = 4
    '(2-2-3)修改键本身的键名
    pDicX.key("dog") = "dog123" '将关键字为"dog"更名为"dog123"
    '(2-2-4)修改键本身的键名
    Debug.Print pDicX.Count'3
End If

'语法:Dictionary.Keys
'作用:获得一个包含字典中所有关键字的数组。
'例子:如pDicX.Keys返回的数组是Array("dog", "cat", "rabbit"),切记数组返回的是变体类型Variant
'语法:Dictionary.Items
'作用:获得一个包含字典中所有项目的数组。
'例子:如pDicX.Keys返回的数组是Array(4,4,2),切记数组返回的是变体类型Variant

(2-3)字典的遍历
Dim i As Long, aryKey As Variant, aryItem As Variant
aryKey = pDicX.keys
aryItem = pDicX.Items
For i = 0 To pDicX.Count - 1
    Debug.Print aryKey(i) & ":" & aryItem(i)
Next

'dog123:4
'cat:4
'rabbit:2

Dim vKey As Variant
For Each vKey In pDicX
    Debug.Print vKey
Next
'dog123
'cat
'rabbit
(2-4)字典的删【习惯:先判断键是否存在,再删除】
'语法:Dictionary.Remove (Key)
'作用:从字典中删除给定的关键字【Key】
'例子:从字典pDicX中移除dog
 pStrX = "dog"
If pDicX.Exists(pStrX) Then pDicX.Remove (pStrX)

'语法:Dictionary.RemoveAll
'作用:从字典中删除所有信息
pDicX.RemoveAll '仅仅是删除字典中的所有信息,字典对象并没有释放,有别于set pDicX = nothing
(2-5)字典对象的销毁
'对于对象的使用,虽然VB6有内在的变量销毁机制,但是我还是建议,在使用过后,最好是手动销毁,这是一种良好的编程习惯。
Set pDicX = Nothing

Access软件网交流QQ群(群号:198465573)
 
 相关文章
SQL Server数据库字典SQL语句  【UMVsoft整理  2008/6/21】
公司客户管理系统\支持按字典标签ABC字母查询的示例  【lyxiong0728  2010/11/6】
【access通用工具源码】通用数据字典功能  【红尘如烟  2010/12/17】
【access小品】康熙字典---拼音变字母函数  【煮江品茶  2011/4/26】
[access查询]按拼音查询 宏鹏老师《access数据类型词汇...  【蒋元根  2011/8/30】
(VBA学习小结)在设计汇总功能时候的"文本/日期/数字/货币" ...  【何必见戴  2011/12/24】
【Access小品】事必做于细--字典的运用示例  【煮江品茶  2014/1/9】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

缪炜

文章分类

文章存档

友情链接