收藏本站 收藏本站
积木网首页 - 软件测试 - 常用手册 - 站长工具 - 技术社区
软件测试 > QTP > 正文

首页 | 领域细分: 游戏测试 安全测试 手机测试 Web测试 | 技术研究: 单元测试 入门教程 用例设计 性能测试 功能测试 | 测试职场: 面试精选 职场发展 面试试题

测试管理: 配置及流程 - 需求管理 - 质量验收 - 缺陷管理 - 其它管理相关 | 开发语言: PHP技巧 - PHP基础 - PHP实例 - PHP错误代码

测试工具: LoadRunner JiRa QuickTestPro RoBot WinRunner TestDirector 其它测试工具 | 数据库: Mysql数据库 Oracle数据库 CSS/DIV基础 HTML基础

QTP之无分页功能的查找脚本

来源:互联网 日期:2013-09-24 07:00

  无分页功能的查找脚本,其主体结构为“完全匹配查找”和“模糊查找”,按照Case的逻辑需要进行修改,缺点是当表列的数据很多时,检查的速度太慢了,有没有更高的效率去查找,目前还不得而知。

  Dim compterName '本机名

  Dim fucationPath '函数地址

  fucationPath="F:qtptestfucationfucations.vbs" '函数组件

  ExecuteFile fucationPath

  CloseIE() '调用组件中的CloseIE(),结束IE进程

  CloseExcel() '调用组件中的CloseExcel(),结束Excel进程

  Url "XXXXXXXXXXXXXXX" '导航

  login(username,password) '登录

  Dim checkTest1

  Dim checkTest2

  Dim check

  Dim totalRowNumber

  Dim totalColumNumbe

  '下拉框的值

  checkTest1="技术预研"

  '输入框的值从global表中获得

  checkTest2=DataTable.RawValue("test2","Global")

  Browser(" ").Page(" ").Frame(" ").WebList("Value0").Select checkTest1 '查找字段

  Browser(" ").Page(" ").Frame(" ").WebEdit("Value1").Set checkTest2 '查找字段

  Browser(" ").Page(" ").Frame(" ").WebButton(" ").Click

  totalRowNumber=Browser(" ").Page(" ").Frame("name:=RightBottomFrame").WebTable("class:=CommonTable CommonSubTable BugMode").RowCount

  完全匹配查找,即所查找的列必须与关键字的字段一致,如果某一行不一致,则退出fail

For i=2 to totalRowNumber

  获取某列的值

text1=Browser(" ").Page(" ").Frame("name:=RightBottomFrame").WebTable("class:=CommonTable CommonSubTable BugMode").GetCellData(i,2)

  如果没有trim()方法,老是报错,不晓得为啥子,仔细看text1里面也没有空格

If trim(text1)=trim(checkTest1) Then
check=true
else
check=false
i=totalRowNumber
End If
Next

  模糊查找,使用qtp自带函数RegExpTest(),经试验这里的检查作用相当于模糊查询了,不需要自己再构造正则表达式,只要存在checkTest2则返回,否则为空

For j=2 to totalRowNumber

  获取某列的值

text2=Browser(" ").Page(" ").Frame("name:=RightBottomFrame").WebTable("class:=CommonTable CommonSubTable BugMode").GetCellData(j,3)
If RegExpTest(checkTest2,text2)<>"" Then
check=true
else
check=false
i=totalRowNumber
end if
Next
If check=true Then
CloseMsgByTime "pass"
else
CloseMsgByTime "fail"
End If
Browser(" ").Page(" ").Sync
Browser(" ").CloseAllTabs

版权声明:本文出自qwen的51Testing软件测试博客,欢迎转载......

本周排行

别人正在浏览

强悍的草根IT技术社区,这里应该有您想要的!
Copyright © 2010 Gimoo.Net. All Rights Rreserved  京ICP备05050695号