Scripting.Dictionary字典对象

在读《VBScript程序员参考手册》，来总结一下Scripting.Dictionary对象的用法。

这个对象与数组类似，一个key对应一个item，主要起到索引的用途。

首先先建一个Scripting.Dictionary对象：

Set dicPhoneList = CreateObject("Scripting.Dictionary")

1.把数据加入字典对象

strItemAdd(LAST, 0) = "Williams"
strItemAdd(FIRST, 0) = "Tony"
strItemAdd(PHONE, 0) = "404-985-6328"
strKey = strItemAdd(PHONE, 0)
dicPhoneList.Add strKey, strItemAdd

其中strKey即字典对象中的key，strItemAdd即item

2.Remove方法与Add方法对应，使用方法相像，可以移除字典对象中的数据。

3.检测某item是否存在

例：

If dicAnimals.Exists("1234")  Then
    strAnimalName = dicPhoneList.Item("1234") 
End If

4.CompareMode 属性

　　1（vbTextCompare）是进行文本比较，0（vbDatabaseCompare）是进行二进制比较。
　　比方说区分大小写，使用vbTextCompare时，已有abc时添加ABC即会生成错误。

5.RemoveAll方法

清空数据。