CreateObject("Scripting.Dictionary")的含义

fanking126 · 发表于 2013-7-31 10:36

Set ds = CreateObject("scripting.dictionary")
brr(1, 1) = "L"
brr(2, 1) = "LW"
brr(3, 1) = "LP"
brr(4, 1) = "LD"
brr(5, 1) = "LE"
brr(6, 1) = "LWF"
brr(7, 1) = "LWB"
brr(8, 1) = "LPE"
brr(9, 1) = "LPP"
brr(10, 1) = "LPC"
brr(11, 1) = "LPT"
brr(12, 1) = "LPB"
brr(13, 1) = "LPF"
brr(14, 1) = "LWB05"

For i = 1 To 14
   ds(brr(i, 1)) = i
Next i

For i = 1 To nr - 8
   k = Left(rng(i, 1), 3)

If ds.exists(k) Then
   brr(ds(k), 2) = brr(ds(k), 2) + 1
End If

Next i

  MsgBox brr(6, 2)

能不能用like的方法呢。这样不能通用哦

vvcoco123 · 发表于 2015-3-4 14:04

看到这样语句，学习了

zz16326556 · 发表于 2018-9-5 21:40

这个集合也是在茫然中

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

[已解决] CreateObject("Scripting.Dictionary")的含义