VB 使用键值对存取数据
在VB中开始没找到和Java一样类似与map类似的键值存取值的方式。为了提高效率不能使用循环取值。
根据Dictionary测试后,可以这么用。经测试可以通过键值对方式取值。
注意:从excel中取数据作为键存取数据时,最好使用Trim()函数做一下除空格的处理,当数据存在空格时会出现取不到值的情况,而且该问题在debug时也不容易发现。
代码如下:
Sub test()
Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
If d.Exists("c") Then
c = d.Item("c")
e = d.Item("e")
a = d.Item("a")
Else
msg = "指定的关键字不存在。"
End If
End Sub
测试结果如下图: