QTP常用脚本函数

cff2 贡献于2015-05-17

作者 User  创建于2011-06-09 05:43:00   修改者User  修改于2011-06-09 06:10:00字数3468

文档摘要:怎样使用脚本启动QTP应用,并打开一个新的测试
关键词:

怎样使用脚本启动QTP应用,并打开一个新的测试 By zzxxbb112 | Published: 2011 年 05 月 04 日 Set qtapp=CreateObject("quicktest.application") qtapp.Launch qtapp.Visible=True qtapp.Open "d:\iquicktest" Set qtapp=Nothing 如何在没有导入excel的情况下获取excel中的测试数据 By zzxxbb112 | Published: 2011 年 05 月 04 日 Set oExcel = CreateObject(“excel.application”) ‘创建excel对象 oExcel.Workbooks.Open “d:\iQuickTest.xls” ‘此处填入你需要连接的Excel路径 Set oSheet = oExcel.Sheets.Item(1) ‘获取sheet对象 MsgBox oSheet.cells(1.1) ‘获取某个单元格中的值 oExcel.Workbooks.Close ‘关闭当前工作博 oExcel.Quit ‘退出excel Set oExcel = Nothing ‘释放oExcel对象实例 如何利用脚本把excel数据导入DataTable By zzxxbb112 | Published: 2011 年 05 月 04 日 xls_Sheet_Index = 1 DataTable_Sheet_Index = 1 Set qtapp=CreateObject("quicktest.application") qtapp.Launch qtapp.Visible=True qtapp.Open "d:\iquicktest" qtapp.Test.DataTable.ImportSheet "d:\1.xls",1,1 Set qtapp=Nothing 怎样在给定的目录下获取其所有的子文件 By zzxxbb112 | Published: 2011 年 05 月 04 日 '设定指定目录 FolderPath = "d:\iQuickTest"'创建fso组件 Set fso = CreateObject("scripting.filesystemobject") '获取指定目录的文件夹 Set oFolder = fso.GetFolder(FolderPath) '获取指定文件夹下的所有文件 Set oFiles = oFolder.Files For Each f In oFiles MsgBox f.Name Next '释放对象 Set f = Nothing Set oFiles = Nothing Set oFolder = Nothing Set fso = Nothing 怎样利用ado自动化组件连接Excel,并运行查询语句 By zzxxbb112 | Published: 2011 年 05 月 09 日 很多情况下,ado往往是用来处理数据库的,但其实它同样也可以处理excel,因为excel带有数据源,只要有数据源就可以使用ado来进行自动化控制。来看一下例子: 表: username iQuickTest zzxxbb112 qtp 脚本: ‘强制变量声明 Option Explicit ‘声明conn数据库链接对象和rs结果集对象 Dim conn,rs ‘声明数据库链接字符串 Dim connectionString : connectionString =”DSN=Excel Files;DBQ=D:\iquicktest.xls;” ‘声明sql执行语句 Dim sqlString : sqlString = “select * from [Sheet1$]” ‘创建ado组件对象 Set conn = CreateObject(“adodb.connection”) ‘打开数据库 conn.Open connectionString ‘执行sql语句并获得结果集 Set rs = conn.Execute(sqlString) ‘遍历结果集中的username字段的数据 While Not rs.EOFMsgBox rs.Fields(“username”).Value rs.MoveNext Wend ‘关闭结果集 rs.Close ‘关闭数据库 conn.Close ‘释放对象 Set sqlString = Nothing Set connectionString = Nothing Set rs = Nothing Set conn =Nothing 怎样获取页面上所有链接的名称和url By zzxxbb112 | Published: 2011 年 05 月 09 日 ‘启动ie,并打开baidu systemutil.Run “C:\Program Files\Internet Explorer\iexplore.exe”, _ “http://www.baidu.com”‘ 描述链接对象 Set linkDes = Description.Create linkDes(“html tag”).value = “A” ‘利用childobject获取page下的所有链接对象集 set oLink = Browser(“iQuickTest Studio | iQuickTest”). _ Page(“iQuickTest Studio | iQuickTest”). _ ChildObjects(linkDes) ‘获取所有link对象的名称和url For i=0 to oLink.count-1 print “链接名称:” & oLink(i).GetROProperty(“text”) & _ “链接Url:” & oLink(i).GetROProperty(“url”) Next 如何利用qtp创建一个xml文件 By zzxxbb112 | Published: 2011 年 05 月 09 日 ‘创建xml保留对象组件 set oXML = XMLUtil.CreateXML  ‘新建一个document oXML.CreateDocument “iQuickTest” ‘获取root根元素 set root = oXML.GetRootElement ‘添加子节点qtp,并赋值 root.AddChildElementByName “qtp”,”quicktest professional” ‘添加子节点vbs,并赋值 root.AddChildElementByName “vbs”,”vbscript” ‘保存文件 oXML.SaveFile “d:\iquicktest.xml” ‘释放对象 Set root = nothing Set oXML = nothing XML联合XSL输出html By zzxxbb112 | Published: 2011 年 05 月 09 日 ‘QTP的结果文件RES中的XML文件 sResultsXML = “C:\Documents and Settings\Administrator\桌面\Test1\Res3\Report\Results.xml” ‘需要的模版文件XSL sDetailedXSL = “D:\Program Files\HP\QuickTest Professional\dat\PDetails.xsl” ‘调用转换函数输出HTML ApplyXSL sResultsXML, sDetailedXSL, “c:\tt.html” ‘转换函数 Public Function ApplyXSL(ByVal inputXML, ByVal inputXSL, ByVal outputFile) sXMLLib = “MSXML.DOMDocument” Set xmlDoc = CreateObject(sXMLLib) Set xslDoc = CreateObject(sXMLLib) xmlDoc.async = False xslDoc.async = False xslDoc.load inputXSL xmlDoc.load inputXML outputText = xmlDoc.transformNode(xslDoc.documentElement) outputText=replace(outputText,”UTF-16″,”gb2312″) Set FSO = CreateObject(“Scripting.FileSystemObject”) Set outFile = FSO.CreateTextFile(outputFile,True) outFile.Write outputText outFile.Close Set outFile = Nothing Set FSO = Nothing Set xmlDoc = Nothing Set xslDoc = Nothing Set xmlResults = Nothing End Function

下载文档到电脑,查找使用更方便

文档的实际排版效果,会与网站的显示效果略有不同!!

需要 3 金币 [ 分享文档获得金币 ] 0 人已下载

下载文档