实现QC中生成的QTP脚本快速修改

QC和QTP之间有很多成型的接口，提供给企业级UI自动化测试以快速、便捷的开发管理方式，只不过真正使用起来可能还需要自己手工加工一下。

笔者以自己信奉的教条为例，QC+QTP的脚本开发首先需要选择或者自己开发合适的（适应被测系统特征的）框架，不单纯依赖QC那些简单的案例管理和执行流管理功能；然后在框架下进行测试案例开发，在QC中生成QTP测试脚本，自动化开发人员依据测试脚本中已经生成的注释进行UI的自动化测试描述，再进行场景、数据的综合覆盖……在自动化开发人员在对QC生成的测试脚本进行修改的时候可能会觉得QC自己生成的脚本注释过于啰嗦或者不美观，自己去逐个改吧又有点费劲，感觉这个功能就成了鸡肋！

其实，只要我们利用QTP自身提供的方法进行简单的操作，就可以做成一个快速一键编辑的简单小程序，让自动化开发更加高效，何乐而不为呢，具体方法大部分都能通过QTP的settings窗口自动生成，下面是一个简单的例子：

'如下三个路径中只能保留需要加载的资源，文件格式必须正确，因为函数会加载该目录下所有文件

Dim frameRoot:frameRoot = "\\XXXXX\share\TestData\EnglishBest\systemName"

Dim repattern:repattern = "Report micDone, "&AddQuoteToStr("步骤 [1-9]")&" ,"&AddQuoteToStr("End")

Public Function AddQuoteToStr (appointedText)

AddQuoteToStr = Chr(34) & appointedText & Chr(34)

End Function

Function ReplaceReg(Str, myPattern, repStr)

Set Regex = New RegExp

Regex.pattern = myPattern

Regex.Global = True

ReplaceReg=Regex.Replace(Str, repStr)

End Function

'如下两组参数中元素个数必须相等，否则无法执行

Dim whatToRep:whatToRep = "------------------------------------>,Reporter.ReportEvent 2,End Step,Expected Results,Description,Begin Step,Start recording here..."

Dim repToWhat:repToWhat = "**********************************************************************************,Report micDone,结束步骤,预期结果,操作描述,开始步骤,脚本操作内容请如下："

Dim whatToRepArr:whatToRepArr = Split(whatToRep,",")

Dim repToWhatArr:repToWhatArr = Split(repToWhat,",")

Set fobjShell = CreateObject("Scripting.Filesystemobject")

Set QTPApplication = CreateObject("QuickTest.Application")

QTPApplication.Launch

QTPApplication.Visible = True

'脚本运行设置

QTPApplication.Test.Settings.Run.IterationMode = "rngAll"

QTPApplication.Test.Settings.Run.ObjectSyncTimeOut = 30000

QTPApplication.Test.Settings.Run.DisableSmartIdentification = True

QTPApplication.Test.Settings.Run.OnError = "Stop"

'参数表设置

QTPApplication.Test.Settings.Resources.DataTablePath = "<Default>"

'函数文件移除重新加载

Set AllFiles = fobjShell.GetFolder(frameRoot & "\Functions Library\FrameWork\PAFAWEB").Files

QTPApplication.Test.Settings.Resources.Libraries.RemoveAll

For Each sFile in AllFiles

QTPApplication.Test.Settings.Resources.Libraries.Add(sFile.Path)

Next

Set AllFiles = Nothing

'场景恢复移除重新加载

Set AllFiles = fobjShell.GetFolder(frameRoot & "\Recovery Senario").Files

QTPApplication.Test.Settings.Recovery.RemoveAll

For Each sFile in AllFiles

QTPApplication.Test.Settings.Recovery.Add(sFile.Path)

Next

Set AllFiles = Nothing

'配置文件加载

Set AllFiles = fobjShell.GetFolder(frameRoot & "\Environment").Files

For Each sFile in AllFiles

QTPApplication.Test.Environment.LoadFromFile(sFile.Path)

Next

Set AllFiles = Nothing

'替换QC生成的指定注释内容和格式

For ainx = 1 to QTPApplication.Test.Actions.Count

vbsContent = QTPApplication.Test.Actions.Item(ainx).GetScript

For arr = 0 to UBound(whatToRepArr)

vbsContent = Replace(vbsContent, whatToRepArr(arr), repToWhatArr(arr))

Next

vbsContent = Replace(vbsContent, "Quality Center", "Quality Center" & Chr(10))

vbsContent = ReplaceReg(vbsContent,repattern,"")

QTPApplication.Test.Actions.Item(ainx).SetScript(vbsContent)

Next

QTPApplication.Test.Actions.Item(1).ActionParameterDefinitions.RemoveAll

QTPApplication.Test.Actions.Item(1).ActionParameterDefinitions.Add "posSubPath","执行流文件路径区分子路径",qtParamTypeString,qtParamDirIn,inputbox("请输入默指向路径：")

'保存测试脚本

QTPApplication.Test.Save

这样，一个脚本就编辑完成了，如果要实现批量修改呢？可以吧脚本放到一个测试集（执行流）里面，也可以放到一个EXCEL里面，循环去操作，这样，即便发生公函的名称被修改或者其他意外不被允许的可逆操作，也很容易批次替换修改脚本内容，不让这样机械的工作干扰自动化开发的“自动化性”甚至影响工作效率。

附：通过QC测试集批量修改的方法如下：

Set TDConn = CreateObject("TDApiOle80.TDConnection.1")

Set Wshshell = CreateObject("Wscript.shell")

If TDConn.Connected = False Then

TDConn.InitConnectionEx "http://qc.paic.com.cn/qcbin"

TDConn.Login qcUserName,InputBox("请输入您QC用户的密码：")

TDConn.Connect mydomain,myproject

Else

TDConn.Disconnect()

TDConn.Logout()

TDConn.ReleaseConnection()

TDConn.InitConnectionEx "http://qc.paic.com.cn/qcbin"

TDConn.Login qcUserName,InputBox("请输入您QC用户的密码：")

TDConn.Connect mydomain,myproject

End If

Set tsTreeMgr = TDConn.TestSetTreeManager

Set tsFolder = tsTreeMgr.NodeByPath("Root\" & testSetFolder)

If tsFolder Is Nothing Then

Wshshell.Popup "找不到路径【" & testSetFolder & "】", 5, "运行时错误:", 0

Set tsFolder = Nothing

Set tsTreeMgr = Nothing

Else

Set TSetFact = TDConn.TestSetFactory

Set tsFilter = TSetFact.Filter

tsFilter.Filter("CY_USER_01") = testSetEdition

Set tsList = tsFolder.FindTestSets("", False, tsFilter.Text)

If tsList Is Nothing Then

Wshshell.Popup "找不到测试集", 5, "指定目录下没有任何测试集！", 0

Set tsList = Nothing

Set tsFilter = Nothing

Set TSetFact = Nothing

Set tsFolder = Nothing

Set tsTreeMgr = Nothing

Else

For Each aTestSet In tsList

Set TSTestFact = aTestSet.TSTestFactory

Set TSTestsList = TSTestFact.NewList("")

For i = 1 To TSTestsList.Count

Set TestToMod = TSTestsList.Item(i)

theTestId= TestToMod.TestId

Set MyTestFactory = TDConn.TestFactory

Set testFilter = MyTestFactory.Filter

testFilter.Filter("TS_TEST_ID") = theTestId

Set testList = MyTestFactory.NewList(testFilter.text)

Set MySpecifiedTest = testList.Item(1)

=========================下面是修改的具体行为，不再粘贴=======================

Next

Next

End If

End If