QTP 常用函数(转)

1.GetCellData函数 

  作用:获取单元格的值

  例:  rowCount = Browser("xxx ").Page("xxx ").Frame("xxx").WebTable("xxx").RowCount软件测试专业网站:51Testing软件测试网e6{k.X SO.x
For counter = 1 To rowCount软件测试专业网站:51Testing软件测试网8S'\!~?%F2H x*Ifx
  text = Browser("xxx").Page("xxx").Frame("xxx").WebTable("xxx").GetCellData(counter,1)软件测试专业网站:51Testing软件测试网;Wl)[{1v X(YgP
  If (text = "xxx") Then
2K%c3s.T#L!^9z.} S ~46301    counter = counter - 1
.imw&a~p Y:\w;\0~46301    selectNO = "#" & counter软件测试专业网站:51Testing软件测试网`7J Pmd
    Browser("xxx").Page("xxx").Frame("xxx").WebRadioGroup("xxx").Select selectNO
qLT8{y46301    Exit For
(M:n j.K'P sEB46301  End If软件测试专业网站:51Testing软件测试网-q l)j;yl
Next

2.把值插入datatable里

  例:   datatable.setcurrentrow(i)软件测试专业网站:51Testing软件测试网 R6AB7t m f
        datatable.value("name","Global")="name"软件测试专业网站:51Testing软件测试网0k"E*E5d'['z:~#b&h`;@
        datatable.value("passwd","Global")="passwd"

3.用代码来启动浏览器

  Browser1 = "IE"
-rw&\,PM(P'C0R:E7P+|"J7E46301  StartURL = "www.51testing.com"
!o!r,] xT[46301  IF Browser1 = "IE" THEN软件测试专业网站:51Testing软件测试网gtJi8K
     set IE = CreateObject("InternetExplorer.Application")软件测试专业网站:51Testing软件测试网Ft8_4O^!ZW-\.`&VF
     IE.Visible = true
5s!uY(p-[46301     IE.Navigate StartURL
u%Hwq"s+V46301  END IF软件测试专业网站:51Testing软件测试网"Xe$z#B pY
 

4.ExecuteFile函数

  作用:ExecuteFile 可以直接执行vbs文件，而不需要将其导入resource中 软件测试专业网站:51Testing软件测试网2Oz|? X
       ExecuteFile FileName 软件测试专业网站:51Testing软件测试网*f s%TM*s3})k[,Mf
  说明:where FileName is the absolute or relative path of your VBscrīpt file.

  例:ExecuteFile("F:\test.vbs")

5.Strcomp函数 

  作用:比较文本

  例:dim strtext1,strtext2,str ,str1,comp1
B%B { u8crC9l46301     strtext1 = "xxx"
+O8{ Tn m[46301     strtext2 = "xxx"
+|%b xQ"mY#K(]46301     str = VbWindow("xxx").VbWindow("xxx").VbLabe1("xxx").GetTOProperty("text")软件测试专业网站:51Testing软件测试网:\
d#a8AW g w ud6V&e
     str1= VbWindow("xxx").VbWindow("xxx").VbLabel("xxx").GetTOProperty("text")软件测试专业网站:51Testing软件测试网,C/` vLr$z-_ EE
     comp1=strcomp(strtext1,str,0)
.k$nL#a%k0y6rJM*j%Z|46301     If  comp=0 Then
-Z*S0s!i EGL(GY,h46301          msgbox “这两个串相等”
XW1b_@ U:r(O
Dgr&c46301     else

Al \4v%eGq"j46301       msgbox str软件测试专业网站:51Testing软件测试网Q#D$YB Hv dw-A
     End If 

6.CaptureBitmap 

  作用:捕获屏幕

7. GetROProperty

  作用:取对象属性值

  例:VbWindow("xxx").VbWindow("xxx").VbWindow("xxx").ActiveX("xxx").GetROProperty("TextMatrix(1,0)")　

8.ExitAction - 退出当前操作，无论其循环属性如何。软件测试专业网站:51Testing软件测试网7^k7u9h(a oZ ~Iw
  ExitActionIteration - 退出操作的当前循环。软件测试专业网站:51Testing软件测试网?'_&t ^$n9Od
  ExitRun - 退出测试，无论其循环属性如何。软件测试专业网站:51Testing软件测试网*{)nM)b*D4[F}
  ExitGlobalIteration - 退出当前全局循环。

R$iR
F!bf|463019.如何使用Excel对象处理数据？
7Z7C3[,ME3[d1ano
gP46301  Dim xl软件测试专业网站:51Testing软件测试网+q`^w_
f#i
  打开excel文件软件测试专业网站:51Testing软件测试网 fh8j,e3Z#d@3^M7[M+u
  Function OpenExcelFile(strFilePath)软件测试专业网站:51Testing软件测试网*S(G)W {k%t#k0L.X"g1E$V
  Set xl = CreateObject("Excel.Application")
8Q7CN!D@ Fz46301  xl.Workbooks.Open strFilePath软件测试专业网站:51Testing软件测试网} V3h ~ju(pI gq
  End Function软件测试专业网站:51Testing软件测试网h"N%WI ]q
  获得指定单元格数据
(E%g8C+P-?O!r2qz;z46301  Function GetCellData(strSheet,rwIndex,colIndex)
:PB-t?f2VD.Ug46301  GetCellData = xl.WorkSheets(strSheet).Cells(rwIndex,colIndex)软件测试专业网站:51Testing软件测试网:Zt^jUk"a8G
  End Function软件测试专业网站:51Testing软件测试网H6}*H
eY
  填充单元格数据软件测试专业网站:51Testing软件测试网1yY5e*IJVq&l8iI
  Function PutCellData(strSheet,rwIndex,colIndex,varData)
/{,Y%HLO-Kj ne j^46301  xl.WorkSheets(strSheet).Cells(rwIndex,colIndex) = varData软件测试专业网站:51Testing软件测试网&\:zIA1Lg a7z"V
  End Function软件测试专业网站:51Testing软件测试网 E*w'{O:~^0aCUk
  保存并推出软件测试专业网站:51Testing软件测试网'f\+oQ h#f/V@i
  Function SaveAndQuit()软件测试专业网站:51Testing软件测试网`&AAW!c!r D
  xl.Activeworkbook.save
7WyY{KQ A46301  xl.Quit
LG'r-b A?"m,M46301  Set xl = nothing软件测试专业网站:51Testing软件测试网0x4NJ|~%s6l:D
  End Function
"p8Yqr(C,y,\-R46301

10.连接sql数据库

  例:Dim res,cmd,sql软件测试专业网站:51Testing软件测试网8[&qb p.}m
     Set Res=createobject("adodb.recordset")
S$u"Q6Y0B1dO D46301     Set Cmd=createobject("adodb.command")
7Q;kijE t46301     Cmd.activeconnection="Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=xhq;Data Source=192.168.191.142"　　＇这句话是连接数据库的数据源，要做修改软件测试专业网站:51Testing软件测试网~ RDO| M ~)jS3CW/K#b
    Cmd.CommandType = 1
amW1Uw Nq46301    sql="selec t * from 表 where name=username"软件测试专业网站:51Testing软件测试网*z _g,^ o G0_#t|
    Cmd.CommandText = sql
.J.~e6U,l:Cp$l46301    Set res = Cmd.Execute()软件测试专业网站:51Testing软件测试网'T D+]xg0R*uz"E
    Set res = nothing软件测试专业网站:51Testing软件测试网 n2GWU:c J
    Set cmd.ActiveConnection = nothing软件测试专业网站:51Testing软件测试网8G1e(D}+i"r+g2?x(u
    Set Cmd= nothing