51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3190|回复: 9
打印 上一主题 下一主题

[原创] 如何验证weblist中的某条item存在

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-9-12 12:24:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
itemsget=Browser("****系统").Page("****系统").Frame("Frame").WebList("sObjId").GetROProperty("all items")

setitemsget=";"&itemsget&";"

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

比如 setitemsget的内容是:  ;你好;我好;他好;大家好;你们好;都很好;(这些都是weblist中的items)

该如何确定某条item,如:大家好  存在??

望大家不吝赐教。。呵呵
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2008-9-12 13:50:05 | 只看该作者
尝试用 Instr(1, SearchString, SearchChar, 0) 解决。
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2008-9-12 14:10:30 | 只看该作者
If instr(setitemsget,searchchar)<>0 Then
        msgbox searchchar
Else
msgbox "没有该内容!"
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2008-9-12 14:50:54 | 只看该作者

这样行不

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 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2008-9-12 15:02:51 | 只看该作者
把所有的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
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2008-9-12 15:41:58 | 只看该作者
感谢楼上两位,这些方式我都考虑到了,尤其是把所有的Item循环一遍,再每项Item的内容与你的预期值相比较,但这会降低脚本运行的效率和性能,所以我采用的就是
instr(setitemsget,searchchar)<>0  这种方法来实现的。呵呵。。。。。。
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2008-9-12 15:49:09 | 只看该作者
数据量小的话,我觉得问题倒不是太大。而且WebList也不宜放太多的记录噻。
回复 支持 反对

使用道具 举报

该用户从未签到

8#
发表于 2008-9-12 15:58:48 | 只看该作者
weblist没做过..我做过一个sys32viewlist的控件,其中有一个属性叫做select
他里面放的就是我当前active的内容.你可以试试看.
回复 支持 反对

使用道具 举报

该用户从未签到

9#
发表于 2008-9-12 17:10:57 | 只看该作者
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
试一下
回复 支持 反对

使用道具 举报

该用户从未签到

10#
发表于 2008-9-15 20:28:43 | 只看该作者
学习了
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-28 08:35 , Processed in 0.068680 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表