字典教程精简版（呼之即来、挥之即去）

wwgp

通俗易懂，就是内容少了一点，希望版主能结合实例这样就更好了。

qigengzier

不仅精简 而且经典

XXC

开始学习字典

yhji2009

太好了，可不可以一个人手里，拿两个号，左手一个，右手一个即左手拿“1”，右手拿“2"，当问左手拿的是什么，他就告诉拿“1”

lu_zhao_long

以前看过蓝版主的字典，一直没有真正搞明白，所以也就一直没有应用起来。今天看了彭版和群子的解释，真是获益菲浅！

多谢了！

引子玄

了解字典知识是必须的，对灵活处理有帮助。
比如：URL中的引用地址，在处理URL中编号与名称时，名称就可以省略，省去一些障碍

引子玄

学习字典了
Sub 字典()
'一、定义字典
Set d = CreateObject("Scripting.Dictionary")

'二、呼之即来，挥之即去。即学会d(a)=s  和  s=d(a) 就差不多了，忘记ADD存的。
S = d("张三") 's=1   即叫了声张三，张三就告诉你他拿的是1
S = d("李四")  's=3   即叫了声李四，李四就告诉你他拿的是3
S = d("麻子")  's=""  没有找到麻子怎么办呢，字典里就自动生成一个麻子d("麻子") ＝“”，告诉你他手上是空的
'三、将字典里的东西变成数组
arr = d.Keys   '把名字的集合按先来后到的原则放到一维数组里  arr(0)＝“张三” ; arr(1)＝“李四” ; arr(2)＝“麻子”
arr1 = d.Items    '把名字对应的值的集合按先来后到的原则放到一维数组里  arr1(0)＝“1” ; arr1(1)＝“3” ; arr1(2)＝“”
'四、查找字典中有没有这个人
S = d.Exists("张三") 's=True  有的
MsgBox S
     If S = True Then
     S = "有"
     Else: S = "无"
     End If
     MsgBox "张三：" & S
S = d.Exists("彭希遴") 's=False  没有
MsgBox S
     If S = True Then
     S = "有"
     Else: S = "无"
     End If
     MsgBox "彭希遴：" & S
'五、清空数组
d.RemoveAll
End Sub

香川群子

yhji2009 发表于 2012-10-7 03:54
太好了，可不可以一个人手里，拿两个号，左手一个，右手一个即左手拿“1”，右手拿“2"，当问左手拿的是什么 ...

d("张三" & "左手")="1"
d("张三" & "右手")="2"

这时候，
查询"张三" & "左手"返回="1"
查询"张三" & "右手"返回="2"

…………
如果你要查询"张三"就知道 "左手"="1"和"右手"="2"，
那么一开始的字典就要：
根据原始数据建立字典d，依次加入关于"张三"的信息：
……
d("张三") = d("张三") & "|" & "左手" & "1"
……
d("张三") = d("张三") & "|" & "右手" & "2"

……

字典完成以后再去查询"张三"，就得到：
t = d("张三")
t 显示：t = "|左手1|右手2"

如果需要，可以用split方法对此信息做进一步的拆分处理。

yhji2009

谢谢群子，忘记了还有Split了

彭希仁

yhji2009 发表于 2012-10-7 03:54
太好了，可不可以一个人手里，拿两个号，左手一个，右手一个即左手拿“1”，右手拿“2"，当问左手拿的是什么 ...

当一个名字,要对应多个结果时,可采用字典与数组结合的方式,字典记录数组的位置(或叫指针)即可.

dim arr(1 to 10,1 to 3)
for i=1 to 10
arr(I,1)=i & "名字"
arr(I,2)=i & "左手"
arr(I,3)=i & "右手"
d(i & "名字")=i
next i