51Testing软件测试论坛

标题: 如何验证weblist中的某条item存在 [打印本页]

作者: nanice 时间: 2008-9-12 12:24
标题: 如何验证weblist中的某条item存在
itemsget=Browser("****系统").Page("****系统").Frame("Frame").WebList("sObjId").GetROProperty("all items")

setitemsget=";"&itemsget&";"

请问：在获取到了所有的weblist的内容中，如何去比较确定某一条选择项存在？

比如 setitemsget的内容是： ;你好；我好；他好；大家好；你们好；都很好；（这些都是weblist中的items）

该如何确定某条item，如：大家好存在？？

望大家不吝赐教。。呵呵

作者: nanice 时间: 2008-9-12 13:50
尝试用 Instr(1, SearchString, SearchChar, 0) 解决。

作者: nanice 时间: 2008-9-12 14:10
If instr(setitemsget,searchchar)<>0 Then
msgbox searchchar
Else
msgbox "没有该内容！"

作者: qiwt 时间: 2008-9-12 14:50
标题: 这样行不
Dim m
m=split(itemsget,";")
for i=0 to m.uppbond
if eval(m(i)=你要比较的内容) then exit for

next

[ 本帖最后由 qiwt 于 2008-9-12 14:54 编辑 ]

作者: happychap 时间: 2008-9-12 15:02
把所有的Item循环一遍，再每项Item的内容与你的预期值相比较就行了吧。
Dim index, bResult
bResult = False
For index = 0 to WebList("sObjId").GetItemsCount - 1
  If Eval(StrComp(WebList("sObjId").GetItem(index), "xxxx") = 0) Then
bResult = True
Exit For
  End If
End For

If Eval(bResult = True) Then
  Reporter.....
Else
  Reporter....
End If

作者: nanice 时间: 2008-9-12 15:41
感谢楼上两位，这些方式我都考虑到了，尤其是把所有的Item循环一遍，再每项Item的内容与你的预期值相比较，但这会降低脚本运行的效率和性能，所以我采用的就是
instr(setitemsget,searchchar)<>0 这种方法来实现的。呵呵。。。。。。

作者: happychap 时间: 2008-9-12 15:49
数据量小的话，我觉得问题倒不是太大。而且WebList也不宜放太多的记录噻。

作者: xiaodong 时间: 2008-9-12 15:58
weblist没做过..我做过一个sys32viewlist的控件,其中有一个属性叫做select
他里面放的就是我当前active的内容.你可以试试看.

作者: xiaoan_2131 时间: 2008-9-12 17:10
Function Get_Ran(i) /定义一个过程，其含义是取随机数用
Randomize
Get_Ran=RandomNumber (0,i)
End Function
Sub A
Get_Count=Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").GetROProperty("items count")/获取weblist里面的内容
Ran_Number=Get_Ran(Get_Count-1)/weblist index 从零开始的，所以要减去1
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").Select "#"&Ran_Number /进行参数化后，然后修改select值，把随机取得的数给Ran_Number

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Image("findFlights").Click 75,6
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").Image("reserveFlights").Click 65,8
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").Image("buyFlights").Click 68,10
Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury").Image("home").Click
End Sub

For j = 1 to 4 /程序先从这里执行，Exist 判断一下时间然后执行 call A 子函数
If Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Exist(2) Then
  Call A
  else
Browser("Welcome: Mercury Tours").Sync
'  elseif  Browser("Welcome: Mercury Tours").Page("Sign-on: Mercury Tours").Link("Home").Click  Then
'Call A
End If
next
试一下

作者: amyfind 时间: 2008-9-15 20:28
学习了

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)