运行QTP测试脚本后，将编译结果写入制定文件（三）

http://blog.sina.com.cn/s/blog_5007d1b10100ly5c.html

最近浏览中突然发现，”运行QTP测试脚本后，将编译结果写入指定文件“ 系列中没有附上 Print的脚本，再次补充上。大家可以按一下顺序阅读，希望对大家能有帮助。

'*************************************************************'

'声明一个类

'*************************************************************'

Class RunLog

             Dim ver_pass

              Dim ver_fail

              'Test_Path=left(environment.Value("TestDir"),Instr(1, environment.Value("TestDir"), "测试脚本", 0)-1)

 

'*************************************************************'

'函数/过程名称：ini_class

'函数/过程的目的：初始化日志系统

'假设：无

'影响：创建日志文件，初始化日志中的变量

'输入：无

'返回值：无

'创建者：lee

'创建时间：2010/09/11

'修改者：

'修改原因：

'修改时间:

'*************************************************************'

       Public Sub ini_class ()

         ver_pass=0

         ver_fail=0

                            Const ForReading = 1, ForWriting = 2, ForAppending = 8

                            Dim fileSystemObj, fileSpec

                            Dim currentTime

                            currentDate = Date

                            currentTime = Time

                            testName = environment.Value("TestName")

                            Set fileSystemObj = CreateObject("Scripting.FileSystemObject")

                            fileSpec =Test_Path&"测试记录\"&testName& ".txt"

                            If Not (fileSystemObj.FileExists(filespec)) Then 

                            'ForWriting是否需要,OpenWriting

                            'Set logFile = fileSystemObj.CreateTextFile(fileSpec, ForWriting, True)

                            Set logFile = fileSystemObj.OpenTextFile(fileSpec, ForWriting, True)

                            'Set logFile = fileSystemObj.CreateTextFile(fileSpec,True)

                            logFile.Close 

                            Set logFile = Nothing

                            End If

       End Sub

 

'*************************************************************'

'函数/过程名称：Verficaiton

'函数/过程的目的：对比实际值和期望值，并输出信息

'假设：无

'影响：写入日志系统

'输入：期望值，实际值，成功信息，失败信息

'返回值：无

'创建者：lee

'创建时间：2010/09/11

'修改者：

'修改原因：

'修改时间:

'elog.Verficaiton  ("True",CStr(sFlag),"达到短信息最大数,错误信息输出正确。","达到短信息最大数,错误信息输出正确。")

 

'*************************************************************'

       Public Sub Verficaiton(sExpect ,sAct,sSuccess,sFail)

 

                                   Const ForReading = 1, ForWriting = 2, ForAppending = 8

                                   Dim fileSystemObj, fileSpec

                                   Dim currentTime

                                   currentDate = Date

                                   currentTime = Time

                                   testName = environment.Value("TestName")

                                   Set fileSystemObj = CreateObject("Scripting.FileSystemObject")

                                   fileSpec =Test_Path&"测试记录\"&testName& ".txt"

                                   Set logFile = fileSystemObj.OpenTextFile(fileSpec, ForWriting, False, True)

                                   If  sExpect=sAct Then

                                       logFile.WriteLine ("Successful:" & sSuccess)

                                       logFile.WriteLine ("******" )

                                       logFile.writeFile ("******")

                                       LogFile.writeFile ("####被测对象：注册页面#####")

                                       logFile.writeFile ("######测试者：某某某 ######")

                                       logFile.writeFile ("##### 测试日期： " + cstr(currentDate) + cstr(currentTime) +  "  ####")

                                       logFile.writeFile ("######################")

                                              ver_pass=ver_pass+1

                                       else

                                      logFile.WriteLine ("######被测对象：注册页面######")

                                      logFile.WriteLine ("#####测试者：某某某########")

                                      logFile.WriteLine ("Fail:"&environment.Value("TestName")&">>"&currentDate& currentTime )

                                     logFile.WriteLine (">>>>The error message>>>> : " & sFail)

                                     logFile.WriteLine (">>>>The expect result is>>>> : " & sExpect)

                                    logFile.WriteLine (">>>>The actual result is :>>> " & sAct)

                                    logFile.WriteLine ("******************************" )

                                    ver_fail=ver_fail+1

                                   End If

 

                                   logFile.Close

                                   Set logFile = Nothing

                                   Set fileSystemObj = Nothing

       End Sub

'*************************************************************'

'函数/过程名称：class_terminate

'函数/过程的目的：打印执行情况

'假设：无

'影响：得到成功和失败的测试点

'输入：无

'返回值：无

'创建者：lee

'创建时间：2010/09/11

'修改者：

'修改原因：

'修改时间:

'*************************************************************'

 

       Sub class_terminate ()

                            Const ForReading = 1, ForWriting = 2, ForAppending = 8

                            Dim fileSystemObj, fileSpec

                            Dim currentTime

                            currentDate = Date

                            currentTime = Time

                            testName =environment.Value("TestName")

                            Set fileSystemObj = CreateObject("Scripting.FileSystemObject")            

                            fileSpec =Test_Path&"测试记录\"&testName& ".txt" 

                            Set logFile = fileSystemObj.OpenTextFile(fileSpec, ForAppending, False, True)

                            logFile.WriteLine ("#######################################################################") 

                            logFile.WriteLine (currentDate & currentTime & " Test: " & environment.Value("TestName") ) 

                            logFile.WriteLine ("The successful check point is>> " & ver_pass)

                            logFile.WriteLine ("The fail check point is >>" & ver_fail)

                            logFile.WriteLine ("#######################################################################") 

                            logFile.Close

                            Set logFile = Nothing

                            Set fileSystemObj = Nothing

       End Sub

End Class

set elog=new RunLog