如何Log测试结果。

wyqwyq

怎样在EXpert View中添加代码，把测试结果log到记事本中，或通过其他方式保存测试结果。请教测试的同仁们，谢谢。

木卫十二

Public Function WriteLog(ByVal logMessage)
       
        Dim fso, logFile
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set logFile = fso.OpenTextFile("..\..\Log\log.log", 8, True) 'Open a file and write to the end of the file and open as Unicode
       
        logFile.WriteLine(date() & " " & hour(now) & ":" & minute(now) & ":" & second(now) & "        " & logMessage)
        logFile.WriteBlankLines 1
       
        logFile.Close
End Function
我用的函数，供你参考

wyqwyq

谢谢。
你提供的函数只log执行测试时间的信息么 ，可以把执行的错误结果也log进去么 ？

sky_zhouw

应该把函数放在那个地方好呢？

wyqwyq

放EXpert View里

木卫十二

原帖由 wyqwyq 于 2007-10-31 09:47 发表
谢谢。
你提供的函数只log执行测试时间的信息么 ，可以把执行的错误结果也log进去么 ？

错误结果也写进log就麻烦了一点吧~~
我都是用on error resume next，然后捕捉错误，把错误写进log
自己感觉不是很方便，处理错误是个有点麻烦的问题~~

PS:这种函数我都是放在函数库里共同引用的

木卫十二

另，我写这个函数只是为了代替原先用的Reporter的~
我的错误写入函数
Public Function ErrorHandle()
        If Err.Number <> 0 Then
                WriteLog "Error Num: " & Err.Number & "; Error Src: " & Err.Source & "; Error Desc: " & Err.Description '& "]; Error Src: [" & Err.Source & "]"
                Err.Clear
        End If
End Function

wyqwyq

on error resume next功能是不是 能跳过错误，还能捕捉错误么 ？？
还有啊，你那错误写入函数是怎么用的 啊 ？？
刚学，很菜。tks

木卫十二

呵呵，这个可以看一下真正高手们的讨论：
http://bbs.51testing.com/viewthr ... p;extra=&page=1