QTP函数练习--数组作为参数

http://automationqa.com/uchome/space.php?uid=88&do=blog&id=78

''''使用范例
Set obj=Browser("name:=用户服务网登录").Page("title:=用户服务网登录")
msgbox Omni(obj,"WebEdit-html id-passport","-","default value")
执行结果：用户名/手机号/身份证

Omni "obj,"WebEdit-html id-passport-shmily","-",""
执行结果：用户名输入框中输入shmily成功

''''**************************************
函数功能：
根据参数内容执行相关的操作
1.如给WebEdit输入一个值，则strProperty为"WebEdit-html id-username-shmily"
函数使用方法为：Omni "obj,"WebEdit-html id-username-shmily","-",""
2.如需要选择WebList下的某一项（"test"）,则strProperty为"WebList-html id-type-test"
函数的使用方法：Omni "obj,"WebList-html id-type-test","-",""
3.如需要点击某个WebButton，则strProperty为"WebButton-name-确定"
函数的使用方法：Omni "obj,"WebButton-name-确定","-",""
4.如需要获取某个WebElement的Innertext，则strProperty为"WebElement-html id-content"
函数使用方法为：va=Omni(obj,"WebElement-html id-content","-","Innertext")
va即为所需要的属性值。


Function Omni(upperObj,strProperty,separator,getProperty)
''''*********************************************************************
''''upperObj为控件的上层对象，如Browser(xxx).Page(xxx).Frame(xxx)等
''''strproperty为控件类型，属性和属性值的连接字符串，eg:WebEdit-html id-engine-name-发动机等
''''separator为属性值的分隔符，如上面采用的即是"-"
''''getProperty为期望获取的控件属性名称，如：name，此项如果为空，则判断不需要返回属性值
''''**********************************************************************
Dim arrPropertys,i ''''strProperty分割后的字符串数组
Dim typesDesc ''''虚拟对象-用来保存不同类型的控件属性和属性值

''''使用Description来存储输入的strProperty来赋值
Set typesDesc=Description.Create()

If InStr(strProperty,separator)=0 Then ''''如果分隔符的数目为0，则判断属性(值)格式错误
Msgbox "分隔符不正确或者缺少属性(值)，请检查strProperty的内容"

Else
arrPropertys=Split(strProperty,separator)

If UBound(arrPropertys) mod 2<>0 Then ''''如果UBound()为奇数，则结构为:type+property+propertyValue+set(select)Value
''''循环给控件传进属性和属性值
For i=1 to UBound(arrPropertys)-2 Step 2
typesDesc(arrPropertys(i)).Value=arrPropertys(i+1)
Next
''''暂时只考虑了WebEdit和WebList，后续补充
Select Case LCase(arrPropertys(0))
Case "webedit"
upperObj.WebEdit(typesDesc).Object.Value=arrPropertys(UBound(arrPropertys))
Case "weblist"
upperObj.WebList(typesDesc).Select arrPropertys(UBound(arrPropertys))
End Select

Else ''''如果UBound()为偶数，则结构为:type+property+propertyValue
''''循环给控件传进属性和属性值
For i=1 to UBound(arrPropertys)-1 Step 2
typesDesc(arrPropertys(i)).Value=arrPropertys(i+1)
Next
''''暂时只考虑了Link,WebButton,WebEdit,WebElement,WebList，后续补充
If Len(getProperty)=0 Then
Select Case LCase(arrPropertys(0))
Case "link"
upperObj.Link(typesDesc).Click
Case "webbutton"
upperObj.WebButton(typesDesc).Click
Case "webelement"
upperObj.WebElement(typesDesc).Click
End Select
Else
Select Case LCase(arrPropertys(0))
Case "link"
Omni=upperObj.Link(typesDesc).GetROProperty(getProperty)
Case "webedit"
Omni=upperObj.WebEdit(typesDesc).GetROProperty(getProperty)
Case "weblist"
Omni=upperObj.WebList(typesDesc).GetROProperty(getProperty)
Case "webbutton"
Omni=upperObj.WebButton(typesDesc).GetROProperty(getProperty)
Case "webelement"
Omni=upperObj.WebElement(typesDesc).GetROProperty(getProperty)
End Select
End If

End If

End If

Set arrPropertys=Nothing
Set typesDesc=Nothing
Set i=Nothing
End Function