字典求救

香川群子

zhaogang1960 发表于 2013-5-7 15:21
楼主还没有理解d(Arr(i,1))=""是如何把不重复的名字弄出来的？
很简单,如果字典中没有Arr(i,1)这个键值 ...

【这是另外的一种“不重复”，使用两个字典即可】

一个字典当然也可以……活用item项目即可。

方法1，字典项统计出现次数，最后提取count=1的即为完全不重复关键词。

  Set dic = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr)
        dic(arr(i, 1)) = dic(arr(i, 1)) + 1
    Next
   
    p = d.Keys
    q = d.Items
    For i = 0 To dic.Count - 1
        If q(i) = 1 Then brr(k) = p(i): k = k + 1
    Next

方法2，d.Exists方法检查并处理，最后用数组Filter方法直接取出结果：
   
   Set dic = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr)
        If dic.Exists(arr(i, 1)) Then
            dic(arr(i, 1)) = "_"
        Else
            dic(arr(i, 1)) = arr(i, 1)
        End If
    Next
    brr = Filter(d.Items, "_", False)
   

以上

一望无垠

谢谢上面两位耐心讲解，其实我的理解在26楼进行了说明。谢谢！

mimiboby

正好在学习字典，看完此贴，收获非浅！

一望无垠

香川群子 发表于 2013-5-7 16:55
【这是另外的一种“不重复”，使用两个字典即可】

一个字典当然也可以……活用item项目即可。

泡在EH就是好：
可以健身益智；
可以修心养性；
可以开动脑筋；
最好的是可以防止老年痴呆！

china047

学习了!!!!

ty1014

想穿裙子老师能不能出一个关于字典的入门贴呢

一望无垠

香川群子 发表于 2013-5-7 16:55
【这是另外的一种“不重复”，使用两个字典即可】

一个字典当然也可以……活用item项目即可。

这个咋不行呢：
      If q(i) = 1 Then Arr(k) = p(i): k = k + 1
提示下标越界，怎么处理呢？

香川群子

一望无垠 发表于 2013-5-8 11:34
这个咋不行呢：
      If q(i) = 1 Then Arr(k) = p(i): k = k + 1
提示下标越界，怎么处理呢？

完整的代码还需要有 redim arr(d.count) 这一句……


…………
建议你有问题，有想法时，首先要上传附件。

一望无垠

香川群子 发表于 2013-5-8 13:29
完整的代码还需要有 redim arr(d.count) 这一句……

佩服死你了！！！！