在QTP中使用Dictionary对象

VBScript的Dictionary 对象与PERL的关联数组（associative array）类似，其中存储的内容可以是任何数据，每一个存储的数据都与一个唯一的键（Key）关联，键用于获取每一项数据，键通常是整型或字符串类型。

在QTP中，可以把Dictionary 当成数组来用，而且可以随时添加数据，而不需要预先定义大小。下面是一个使用的例子：

' 创建Dictionary对象
Set Dic = CreateObject("Scripting.Dictionary")
' 添加Dictionary的key和value
For Iterator = 1 To 3 Step 1
 Dic.Add CStr(Iterator),Iterator & "_Value"
Next
' 循环读取Dictionary的key和value
For Iterator = 1 To Dic.Count Step 1
 Msgbox  Dic.Item(CStr(Iterator))
Next

DicArray = Dic.Items
'For I = 0 To Dic.Count
For I = 0 To UBound(DicArray)
 Msgbox DicArray(I)
Next

' 判断是否存在某个Key，如果存在，则把其去掉
If Dic.Exists("2") Then
 Msgbox Dic.Item("2")
 Dic.Remove("2")
End If
Msgbox Dic.Count
' 清空所有 Key和Value
Dic.RemoveAll()
Msgbox Dic.Count