當(dāng)年我向LDY版主求教字典的時候，他老人家總結(jié)了一句話“呼之即來膛堤，揮之即去”
即學(xué)會d(a)=s 和 s=d(a) 就差不多了晌该，忘記ADD存在绿渣。
一、定義字典
Set d = CreateObject("Scripting.Dictionary")
二中符、呼之即來誉帅，揮之即去
d("張三“)=1 '相當(dāng)于給字典賦值，張三過來（沒有就生成）拿個1站一邊去
d("李四”)=2 '相當(dāng)于給字典賦值蚜锨，李四過來（沒有就生成）拿個2站一邊去
d("李四”)=3 '相當(dāng)于改變值，字典中已經(jīng)有李四了踏志，李四跑過來，丟下2換個3站一邊去
注：這時字典中有兩個人的存在，張三＝1 和 李四＝3凄诞，相當(dāng)于實(shí)現(xiàn)了去重復(fù)的功能
s=d("張三") 's=1 即叫了聲張三圆雁，張三就告訴你他拿的是1
s=d("李四") 's=3 即叫了聲李四，李四就告訴你他拿的是3
s=d("麻子") 's="" 沒有找到麻子怎么辦呢帆谍，字典里就自動生成一個麻子d("麻子") ＝“”伪朽，告訴你他手上是空的
注：這時字典中有三個人的存在，張三＝1 ; 李四＝3;麻子＝“”
三汛蝙、將字典里的東西變成數(shù)組
arr= d.Keys '把名字的集合按先來后到的原則放到一維數(shù)組里 arr(0)＝“張三” ; arr(1)＝“李四” ; arr(2)＝“麻子”
arr1=d.Items '把名字對應(yīng)的值的集合按先來后到的原則放到一維數(shù)組里 arr1(0)＝“1” ; arr1(1)＝“3” ; arr1(2)＝“”
四烈涮、查找字典中有沒有這個人
s=d.Exists(“張三”) 's=True 有的
s=d.Exists(“彭希遴”) 's=False 沒有
五、清空數(shù)組
d.RemoveAll
是不是簡單呢窖剑？