QTP常用函数.docVIP

1.GetCellData函数? ? 作用:获取单元格的值 ? 例:? rowCount = Browser(xxx ).Page(xxx ).Frame(xxx).WebTable(xxx).RowCount软件测试专业网站:51Testing软件测试网e6{k.X SO.xFor 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) Then2K%c3s.T#L!^9z.} S ~46301??? counter = counter - 1.imwa~p Y:\w;\0~46301??? selectNO = # counter软件测试专业网站:51Testing软件测试网`7J Pmd??? Browser(xxx).Page(xxx).Frame(xxx).WebRadioGroup(xxx).Select selectNOqLT8{y46301??? Exit For(M:n j.KP sEB46301? End If软件测试专业网站:51Testing软件测试网-q l)j;ylNext 2.把值插入datatable里 ? 例:???datatable.setcurrentrow(i) 软件测试专业网站:51Testing软件测试网 R6AB7t m f??????? datatable.value(name,Global)=name软件测试专业网站:51Testing软件测试网0kE*E5d[z:~#bh`;@??????? datatable.value(passwd,Global)=passwd 3.用代码来启动浏览器 ? Browser1 = IE-rw\,PM(PC0R:E7P+|J7E46301? StartURL = !o!r,] xT[46301? IF Browser1 = IE THEN 软件测试专业网站:51Testing软件测试网gtJi8K???? set IE = CreateObject(InternetExplorer.Application)软件测试专业网站:51Testing软件测试网F t8_4O^!ZW-\.`VF???? IE.Visible = true5s!uY(p-[46301???? IE.Navigate StartURLu%Hwqs+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,comp1B%B { u8crC9l46301???? strtext1 = xxx+O8{ Tn m[46301???? strtext2 = xxx+|%b x QmY#K(]46301???? str = VbWindow(xxx).VbWindow(xxx).VbLabe1(xxx).GetTOProperty(text)软件测试专业网站:51Testing软件测试网:\
d#a8AW g w ud6Ve???? 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*S0