QTP常用脚本函数

By zzxxbb112 | Published: 2011 年 05 月 04 日

By zzxxbb112 | Published: 2011 年 05 月 04 日

By zzxxbb112 | Published: 2011 年 05 月 04 日

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

By zzxxbb112 | Published: 2011 年 05 月 09 日

很多情况下，ado往往是用来处理数据库的，但其实它同样也可以处理excel，因为excel带有数据源，只要有数据源就可以使用ado来进行自动化控制。来看一下例子：

表：

‘强制变量声明

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

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”)

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”

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:\t.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