佛山小老鼠带您走进字典(字典入门帖)

海婷

感谢佛山分享

qwqw8899

老师的字典用法讲得通俗易懂，谢谢！

zxpzxp

感谢版主分享。学习期待中。

lhsh36183

谢谢版主的精品。

gongqiulin

感谢佛山分享

佛山小老鼠

龙蒙山 发表于 2013-11-3 19:03
老师的字典用法讲得通俗易懂，非常好！谢谢！
学习“透视表式字典”有个问题请教一下：怎么样能使代码变 ...

一般大家都会认为条目是来装数据列的,,那个案例当然也是也用来装数据,不过它的数据不一样,是一个索引号,说土一点就是一个从1开始的编号,而并没有真正装工作表里的数据,用来记位置,记关键词在数组那一行,然后找到它的行,然后再到数组相应的列上累加,这样就起到了汇总

佛山小老鼠

ctp_119 发表于 2013-11-4 08:14
感谢老鼠老师的原创！！！

谢谢ctp_119版主的加分鼓励,真开心,继续努力

香川群子

佛山小老鼠 发表于 2013-11-3 17:59
dic.Add "不及格", 59
dic("不及格") = 59
这是两种向字典时添加关键字和条目的方法

dic.Add "不及格", 59
dic("不及格") = 59

两者都是向字典内添加关键字key和条目Item的方法。

差异如下：
方法1是 很清晰、明确的Add添加方法，

Sub test1()
    Set dic = CreateObject("Scripting.Dictionary") '后期绑定引用字典对象
   
    dic.Add "a", 1
    '标准的字典Add添加语句，可以细细分为6个部分
   '【字典对象名】【.Add】【 (空格)】【关键词】【,(逗号)】【条目内容】
   '以上内容缺一不可。

   '如果需要用括号把参数括起来，那么这么写：
    Call dic.Add("b", 2)
   '【Call】【 (空格)】【字典对象名】【.Add】【(左括号】【关键词】【,(逗号)】【条目内容】【)右括号】

   '下面写法是错误的，因为缺了【条目参数】
'    dic.Add "aa"
'    Call dic.Add("bb")
'    dic.Add "aa",
'    Call dic.Add("bb",)

'…………分割线
    '这个方法只能添加字典中不存在的【新鲜的】关键字
    ’如果再次重复添加"a"，则代码报错停止
    dic.Add "a", 1

    '因此可以用以下方法处理：
    If Not dic.Exists("a") Then dic.Add "a", 1   '如果不存在"a"就新添 → 因为存在所以运行后不重复添加
    If Not dic.Exists("c") Then dic.Add "c", 3   '如果不存在"c"就新添 → 因为不存在"c" 所以可以添加

    '上述代码的完整If结构如下：   
    If Not dic.Exists("a") Then '如果不存在"a"则新添
        dic.Add "a", 11        
    Else '如果已经存在"a"则报错
        MsgBox """a"" is Exists !"
    End If
   
End Sub


这样的代码效果，就是：
可以添加关键词和条目，但后续数据中有重复的关键词时将被忽略。

香川群子

佛山小老鼠 发表于 2013-11-3 17:59
dic.Add "不及格", 59
dic("不及格") = 59
这是两种向字典时添加关键字和条目的方法

dic("不及格") = 59
第二种方法的说明：

第2种方法，其实是一种字典变量操作的过程简化。
因为，dic(【关键词】)=条目  即： dic(Key)=Item

所以本质上如下：

Sub test2()
    Set dic = CreateObject("Scripting.Dictionary")
   
    dic("a") = 1
    '如果"a"为新关键字，那么相当于如下字典Add新添语句的作用
    dic.Add "a", 1
   
    '如果"a"为已有关键字
    dic("a") = 2
   
    '那么相当于如下字典操作：   
    If Not dic.Exists("a") Then
        dic.Add "a", 2
    Else
        dic.Remove "a"
        dic.Add "a", 2
    End If
        
End Sub

香川群子

字典赋值方法2的进一步解释：

dic(kye)=dic(kye)+NewItem

Sub test3()
    Set dic = CreateObject("Scripting.Dictionary")
   
    x = 100
    dic("a") = x '字典中关键词"a"加入变量x=100
   
    t = dic("a") '检查字典中关键字"a"对应的条目结果t
    If IsEmpty(t) Then '如果结果为空集→ 即相当于该关键词不存在，等效于Not dic.Exists("a")
        dic.Add "a", x '那么以x变量为条目把关键词"a"加入字典
    Else
        dic.Remove "a"
        dic.Add "a", x '如果已有条目值t （相当于dic.Exists("a")=True）
      '那么以 x 作为新的条目结果重新把关键词"a"加入字典
    End If
   
   
   
    y = 1
    dic("a") = dic("a") + y  '本句要求关键词"a"对应条目结果t和现在的变量y相加！
   
    t = dic("a")'检查字典中关键字"a"对应的条目结果t
    If IsEmpty(t) Then '等于 If IsEmpty(dic("a")) Then  '等效于 If Not dic.Exists("a") Then
        dic.Add "a", y
    Else
        dic.Remove "a"
        dic.Add "a", t + y
        '那么以 t + y 作为新的条目结果重新把关键词"a"加入字典
    End If
   
End Sub

上述代码中，IsEmpty(t1)


结论：
dic(kye)=Item 以及 dic(kye)=dic(kye)+NewItem
的字典条目赋值方法，非常有优势，是字典入门以后的必然选择。

总结：
如果需要和dic.Add方法结果保持一致，（即只以第一次出现的关键词对应条目作为字典结果）
那么代码为：
If Not dic.Exists(key) Then dic(kye)=Item

如果以最新（最后一次出现）的关键词对应条目作为字典结果
那么代码最简明：
dic(kye)=Item → 即条目随时更新

同时，可以直接对条目进行汇总、合并等方法进行灵活处理：

dic(kye)=dic(kye)+NewItem （数值型数据时，用来加总统计）

或 dic(kye)=dic(kye) & "," & NewItem （作为文本字符串合并）



…………
因此，事实上，一般说 dic.Add 语句方法已经是高手所不需要的语句了。