在QTP中使用Dictionary对象

分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow

也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！

               

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 

           

给我老师的人工智能教程打call！http://blog.csdn.net/jiangjunshow