创建字典对象后d(arr(i, 2)) = ""这个语句用来做什么的?

twj007 · 发表于 2020-4-28 17:32

Private Sub TextBox1_Change()
Dim arr, i%, j%, d
Set d = CreateObject("scripting.dictionary")
arr = Sheets("Sheet2").Range("A1").CurrentRegion
For i = 1 To UBound(arr)
If InStr(arr(i, 2), Me.TextBox1.Value) Then
d(arr(i, 2)) = ""
End If
Next
Me.ListBox1.Clear
If d.Count >= 1 Then Me.ListBox1.List = d.keys
End Sub

d(arr(i, 2)) = ""语句是用来做什么的?
谢谢！

huang1314wei · 发表于 2020-4-28 17:36

就是把模糊匹配上的数据加入字典

shenjianrong163 · 发表于 2020-4-28 17:37

用来去除重复项的。

twj007 · 发表于 2020-4-28 17:44

huang1314wei 发表于 2020-4-28 17:36
就是把模糊匹配上的数据加入字典

d(arr(i, 2)) = ""的意思是把arr(i,2)加入到字典d中去吗？
为什么后面是“”?
谢谢！

suntao2000 · 发表于 2020-4-28 17:49

后面的不要数据等于什么无所谓。

twj007 · 发表于 2020-4-28 17:53

suntao2000 发表于 2020-4-28 17:49
后面的不要数据等于什么无所谓。

d(arr(i, 2)) = ""
我意思是为什么这个语句等号后面是“”，如果这个语句是把arr(i,2)加入到d字典中，等号后面""怎样理解呢？
谢谢！

opel-wong · 发表于 2020-4-28 17:55

twj007 发表于 2020-4-28 17:53
d(arr(i, 2)) = ""
我意思是为什么这个语句等号后面是“”，如果这个语句是把arr(i,2)加入到d字典中，等 ...

d(arr(i, 2)) = ""
就是把arr(i, 2)加入字典中，
key，是 arr(i,2)
item，是 ""
你也可以 d(arr(i, 2)) =0 或 d(arr(i, 2)) = 1 或 d(arr(i, 2)) = i

micch · 发表于 2020-4-28 17:56

是吧搜一个字典的介绍贴看看，key和item属性

larer · 发表于 2020-4-28 18:19

相当于dic.add arr(i,2),""

huang1314wei · 发表于 2020-4-28 19:10

twj007 发表于 2020-4-28 17:44
d(arr(i, 2)) = ""的意思是把arr(i,2)加入到字典d中去吗？
为什么后面是“”?
谢谢！

你的目的是获取不重复的key，它的item等于什么无所谓的，
d(arr(i, 2)) = "" 的意思是把arr(i,2)加入到字典d，如果字典d中存在这个arr(i,2)，则把已经存在的这个项它的item值赋值成“”，如果不存在，则直接将追加arr(i,2)到字典中，它的item值设置为""

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

[求助] 创建字典对象后d(arr(i, 2)) = ""这个语句用来做什么的?