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

作者：文青山

时间：2010-9-0451Testing软件测试网9s@ch6v%Ig

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

注意：请尊重版权!51Testing软件测试网
[6j/Y?q"hAX

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

Lk:Y:E:R1YO9K4P,|9W0
Q5W/{8AZ;o:gr5I%D0Dim compterName          '本机名51Testing软件测试网Q N6p+vWBf)[
Dim fucationPath              '函数地址51Testing软件测试网2u-z@dv&Fp
fucationPath="F:\qtptest\fucation\fucations.vbs"  '函数组件51Testing软件测试网X-Q8}'{J
ExecuteFile fucationPath
&p5VRa'lp|S0CloseIE()     '调用组件中的CloseIE()，结束IE进程
g:s6Ujkz0CloseExcel()   '调用组件中的CloseExcel()，结束Excel进程51Testing软件测试网 W0A O$T1I
Url "XXXXXXXXXXXXXXX" '导航
%gN$N_]0login(username,password) '登录51Testing软件测试网f_.J C r
Dim  checkTest151Testing软件测试网,WO,b)c6E"p
Dim  checkTest2
-R[.[0h%xQ Y0Dim check
,lTFOM
pX ?k0Dim totalRowNumber51Testing软件测试网dqvw+w5V/G_yi
Dim totalColumNumbe51Testing软件测试网i)`6|vyir
'下拉框的值
S&K0L5JCVc"A0checkTest1="技术预研"51Testing软件测试网`![?!JYS$a
'输入框的值从global表中获得
$Iuc8W4w%`0checkTest2=DataTable.RawValue("test2","Global")
j/QTx X|/V1iV0^c0Browser(" ").Page(" ").Frame(" ").WebList("Value0").Select checkTest1 '查找字段51Testing软件测试网j,Z\T#s9q |*K
Browser(" ").Page(" ").Frame(" ").WebEdit("Value1").Set checkTest2    '查找字段
fD `*C~P2L0Browser(" ").Page(" ").Frame(" ").WebButton(" ").Click51Testing软件测试网*V pEOs
totalRowNumber=Browser(" ").Page(" ").Frame("name:=RightBottomFrame").WebTable("class:=CommonTable CommonSubTable BugMode").RowCount51Testing软件测试网glE-R lAR0T!O8D
'完全匹配查找，即所查找的列必须与关键字的字段一致，如果某一行不一致，则退出fail
r:A
Fwe9}8`&o0For i=2 to totalRowNumber51Testing软件测试网8z3Nws {9qn
 '获取某列的值51Testing软件测试网S
Ua&J9w o&f'M
 text1=Browser(" ").Page(" ").Frame("name:=RightBottomFrame").WebTable("class:=CommonTable CommonSubTable BugMode").GetCellData(i,2)51Testing软件测试网j'Lr$k [;L
 
C#J&N#p}w#A0 '如果没有trim()方法，老是报错，不晓得为啥子，仔细看text1里面也没有空格51Testing软件测试网c1Wrp#ujJ
 51Testing软件测试网
|&d{ \+x,OG4k#P
 If  trim(text1)=trim(checkTest1) Then51Testing软件测试网uT];rs ~.u!bQ$Zc1f
  check=true
y
{Z9{-t/E.{0 else
C6K'^'RL5vh4eW'sa0  check=false51Testing软件测试网+YTB,[%eju0Z
  i=totalRowNumber51Testing软件测试网} os4l `'rB
 End If51Testing软件测试网6y'rq G#A#o
Next
]fCi(` TEw0F0'模糊查找，使用qtp自带函数RegExpTest()，经试验这里的检查作用相当于模糊查询了，不需要自己再构造正则表达式,只要存在checkTest2则返回，否则为空

\P1rGW
K]\C0For j=2 to totalRowNumber
@ _#z{5Y'C~b0 '获取某列的值 
G7Aq4]^i0{,k0 text2=Browser(" ").Page(" ").Frame("name:=RightBottomFrame").WebTable("class:=CommonTable CommonSubTable BugMode").GetCellData(j,3)
u?R|B~0 If  RegExpTest(checkTest2,text2)<>""  Then51Testing软件测试网 ~[1r5um/\%an%g
  check=true51Testing软件测试网 w$HG Q/M2~"t z8M!h
 else51Testing软件测试网c vS%cK
  check=false51Testing软件测试网.Mtk]:kpVB3]$@
  i=totalRowNumber51Testing软件测试网HX |9U8g-b
 end if
J2h#L&r!b"~0Next
)q5FaH-e0G q0If check=true Then51Testing软件测试网-C6s.wg/fs
 CloseMsgByTime "pass"51Testing软件测试网5CS}/zk4G"R7I2e
else51Testing软件测试网
?P{ ?$s6\Tb
 CloseMsgByTime "fail"51Testing软件测试网4j6E5?0u Mg.^U'N
End If

Browser(" ").Page(" ").Sync
!WG-Z~P,?R0Browser(" ").CloseAllTabs