QTP的一些小知识
上一篇 / 下一篇 2006-12-01 09:16:06 / 个人分类:QTP
1.GetCellData函数
5T3m)f%Cy#br `051Testing软件测试网 B f*Gev?作用:获取单元格的值51Testing软件测试网-Z7i[9[p7nt
BdLJQT+FT:PJ0 例: rowCount = Browser("xxx ").Page("xxx ").Frame("xxx").WebTable("xxx").RowCount
1zp
f;S-]Gr3H#WH-`0For counter = 1 To rowCount
6ki%n_C:~*NB3SL{2D0 text = Browser("xxx").Page("xxx").Frame("xxx").WebTable("xxx").GetCellData(counter,1)
k+bfy(b+t~ l4m0 If (text = "xxx") Then51Testing软件测试网 DvhC2e/T2E Z-lA)S
counter = counter - 151Testing软件测试网)u"{5{$N+H6IE4a
selectNO = "#" & counter51Testing软件测试网0aqs5C+V)v&Q"l
Browser("xxx").Page("xxx").Frame("xxx").WebRadioGroup("xxx").Select selectNO
#ig"HM4@"u'h0 Exit For
Qg7X5acy ~2lC8v0 End If51Testing软件测试网 c7d
Z+B"KT/UFzVi
Next51Testing软件测试网na%Z6HG
2.把值插入datatable里
3ki;ecv+qm#A051Testing软件测试网UXo*dpU 例: datatable.setcurrentrow(i)
c2Y8wLj0 datatable.value("name","Global")="name"
&x2pON1K"u0 datatable.value("passwd","Global")="passwd"51Testing软件测试网6H|?e? u{
Fl q9]8Wn@m03.用代码来启动浏览器
P xE0z0~7R9M0z,mQw:y^0 Browser1 = "IE"51Testing软件测试网.Q'd/O Yt1G!Mq
StartURL = "www.51testing.com"51Testing软件测试网ErZ`;i7g5P
IF Browser1 = "IE" THEN51Testing软件测试网"Q N6I!jr2LR
set IE = CreateObject("InternetExplorer.Application")
`7xW*c\B z1i8Q'Es0 IE.Visible = true
Dm%M1A-\k0 IE.Navigate StartURL
UZ8g
Od;g5d8Hh0 END IF
O7[*g5o7So0 51Testing软件测试网*ziZ,d qXI&Ug#`
4.ExecuteFile函数51Testing软件测试网x E(W d%u
_%Yd9B2Pr0 作用:ExecuteFile 可以直接执行vbs文件,而不需要将其导入resource中 51Testing软件测试网`!AP2N |{
ExecuteFile FileName
't.?tBl0 说明:where FileName is the absolute or relative path of your VBscrīpt file.
例:ExecuteFile("F:\test.vbs")
"TL!i y+Hm0]"kf@B'l05.Strcomp函数 51Testing软件测试网3\G&zf9W/v]A}vmi
shY_{ N c:{~#E(zP0 作用:比较文本
??wk f.Dvi051Testing软件测试网#}0R)P~g\s8d_ 例:dim strtext1,strtext2,str ,str1,comp151Testing软件测试网(z0jQ0s$u1Hh,r]
strtext1 = "xxx"
-I%IR-o[!B6k|$T0 strtext2 = "xxx"
F*E
D&d9Z0|o&w