51Testing软件测试论坛

标题: 怎么将页面上两个或多个Output Value组合起来设为一参数 [打印本页]

作者: adiao 时间: 2008-3-19 10:49
标题: 怎么将页面上两个或多个Output Value组合起来设为一参数
在页面上设置了多个Output Value值。这些值组合起来的词组会在某一页面上显示，我现在想做的就是验证页面上显示的字符串是不是跟output value的值组合起来是一样的，请问该如何操作。
下面是脚本代码，其中A是firstname，B是lastname
Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("firstname").Output CheckPoint("firstname")
Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("lastname").Output CheckPoint("lastname")
Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").Link("A B").Check CheckPoint("A B")

作者: language_fw 时间: 2008-3-19 11:04
我的想法是直接从临时表里面取出来值，然后组合在一起作为一个参数来用。

作者: zhou840401 时间: 2008-3-19 11:12
我觉得可以用getroproperty的方法,分别把firstname,lastname,Link("A B")的相关的值取出来进行比较.

作者: adiao 时间: 2008-3-19 11:12
我已经将他们的值输出到Data Table中了，就是不知道怎么将他们连接起来，在oracle 中A||B就可以了，但是在这不知道怎么写了。

作者: language_fw 时间: 2008-3-19 11:50
重新定义一个变量
dim result
dim firstname
dim lastname

result = firstname & lastname
你试一下。。。

作者: adiao 时间: 2008-3-19 14:03
为什么我这样写Set Fname=Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").GetROProperty("value")，执行时就会报“缺少对象: 'Browser(...).Page(...).GetROProperty(...)'”
若是Set Fname=String(Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").GetROProperty("name"))这样写又报“错误的参数个数或无效的参数属性值: 'String'”呢

作者: adiao 时间: 2008-3-19 14:14
大概明白了，是不是因为我要取的值是在WebEdit:firstname这层上，但是脚本中却只指到Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息")，从而会报缺少对象的错误
[attach]39972[/attach]

作者: adiao 时间: 2008-3-19 14:29
呵呵，解决，修改后代码如下：
Dim Fname,Lname,Fullname,Actual_name,MyComp
MyComp=StrComp(Fullname, Actual_name, 1)
Fname= Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("firstname").GetROProperty("value")
Lname=Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("lastname").GetROProperty("value")
Actual_name=Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").Link("张彪").GetROProperty("outerText")
Fullname=Fname&" "&Lname
If MyComp = 0 Then
Msgbox("一致")
else
Msgbox("不一致")
End If

作者: adiao 时间: 2008-3-20 08:27
脚本还是有问题
MyComp=StrComp(Fullname, Actual_name, 1) 放在声明语句后，而赋值语句在其之后，导致每次执行的结果都是：Msgbox("一致")。
作如下修改：
Dim Fname,Lname,Fullname,Actual_name,MyComp
Fname= Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("firstname").GetROProperty("value")
Lname=Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("lastname").GetROProperty("value")
Actual_name=Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").Link("张彪").GetROProperty("outerText")
Fullname=Fname&" "&Lname
MyComp=StrComp(Fullname, Actual_name, 1)
If MyComp = 0 Then
      Msgbox("一致")
      else
         Msgbox("不一致")
End If

[ 本帖最后由 adiao 于 2008-3-20 08:30 编辑 ]

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