|
本帖最后由 小飞天猪 于 2011-2-18 10:50 编辑
我的QTP是9.2的,我的脚本可以直接运行的
我想通过函数重写和正则的应用,实现如下的功能:
在WinList控件的选择方法Select的参数仅需要输入航班信息中的航班号就能选择所在的行。
我的脚本中就是选择15861这一行。
可是,我通过脚本调试,发现SelectRegExp函数中的NumOfItems = obj.GetROProperty("itmes count"),该NumOfItems没有值。我没有找到原因。请会的朋友帮我看看。
另外:在调用这个函数SelectRegExp(obj,patrn,Button,Offset)时,对象是如何传入的呢?我没有看懂
------------------------------------------------------------------------------------------------
其中的部分代码贴出如下:
Function SelectRegExp(obj,patrn,Button,Offset)
Dim NumOfItems,i,CurrentValue,regEx,ItemToSelect,oldFilter
'初始化正则表达式
Set regEx=new RegExp
regEx.Pattern=patrn
regEx.IgnoreCase=false '区分大小写
oldFilter=Reporter.Filter '保存默认设置
Reporter.Filter=2 '仅发送错误
ItemToSelect=-1
'获取测试对象的items count属性
NumOfItems = obj.GetROProperty("itmes count")
For i=0 to NumOfItems-1
CurrentValue = obj.GetItm(i)
print "CurrentValue:"&CurrentValue
If regEx.Test(CurrentValue) Then
If (ItemToSelect<>-1) Then
SelectRegExp=-1 '表示匹配项不唯一
Reporter.Filter = oldFilter
Exit function
End If
ItemToSelect = i
End If
Next
Reporter.Filter = oldFilter '重置默认设置
'做出选择的动作
If (ItemToSelect>=0) Then
SelectRegExp = obj.Select(ItemToSelect,Button,Offset)
Else
SelectRegExp = -1
End If
End Function
'重写WinList控件的Select方法(利用“RegisterUserFunc”把SelectRegExp函数注册到WinList控件的Select方法后,就可以使用重写的方法了)
RegisterUserFunc "WinList","Select","SelectRegExp"
window("Flight Reservation").Dialog("Flights Table").Activate
window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "15861*" |
|