学习分享:字典学习简版

jlf2003 · 发表于 2012-9-28 15:27

搜到一个好教程:
学习分享:字典学习简版
一、定义字典
  Set d = CreateObject("Scripting.Dictionary")

二、呼之即来，挥之即去

d("张三“)=1    '相当于给字典赋值，张三过来（没有就生成）拿个1站一边去
d("李四”)=2    '相当于给字典赋值，李四过来（没有就生成）拿个2站一边去
d("李四”)=3    '相当于改变值，字典中已经有李四了，李四跑过来，丢下2换个3站一边去
   注：这时字典中有两个人的存在，张三＝1 和李四＝3，相当于实现了去重复的功能

s=d("张三") 's=1 即叫了声张三，张三就告诉你他拿的是1
s=d("李四") 's=3 即叫了声李四，李四就告诉你他拿的是3
s=d("麻子") 's=""  没有找到麻子怎么办呢，字典里就自动生成一个麻子d("麻子") ＝“”，告诉你他手上是空的
   注：这时字典中有三个人的存在，张三＝1 ; 李四＝3;麻子＝“”
三、将字典里的东西变成数组
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  有的
   s=d.Exists(“彭希遴”)  's=False  没有
五、清空数组
d.RemoveAll

9910343 · 发表于 2012-9-28 18:02

学习学习学习，还有呢

hwc2ycy · 发表于 2012-9-30 12:16

这个好理解。

syt188702 · 发表于 2012-10-3 18:41

请楼主继续讲解，谢谢

1982zyh · 发表于 2012-10-7 21:24

期待后面的讲解

zjyxp · 发表于 2012-10-9 08:17

谢谢楼主分享，学习字典

398829134 · 发表于 2012-10-18 23:28

这个真的好经典，值得学习，感谢楼主分享

wangweihb · 发表于 2012-11-2 13:29

学习学习

jiangbo0505 · 发表于 2013-1-29 13:40

好理解，谢谢楼主分享，学习字典

hannanrenjie · 发表于 2013-8-4 22:21

再来一段。

		自动登录	找回密码
密码			注册

[分享] 学习分享:字典学习简版

评分

相关帖子