51Testing软件测试论坛

标题: 如何Log测试结果。 [打印本页]

作者: wyqwyq 时间: 2007-10-31 09:31
标题: 如何Log测试结果。
怎样在EXpert View中添加代码，把测试结果log到记事本中，或通过其他方式保存测试结果。请教测试的同仁们，谢谢。

作者: 木卫十二 时间: 2007-10-31 09:34
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 时间: 2007-10-31 09:47
标题: 回复 2# 的帖子
谢谢。
你提供的函数只log执行测试时间的信息么，可以把执行的错误结果也log进去么？

作者: sky_zhouw 时间: 2007-10-31 09:50
应该把函数放在那个地方好呢？

作者: wyqwyq 时间: 2007-10-31 10:05
标题: 回复 4# 的帖子
放EXpert View里

作者: 木卫十二 时间: 2007-10-31 10:16

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

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

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

作者: 木卫十二 时间: 2007-10-31 10:19
另，我写这个函数只是为了代替原先用的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 时间: 2007-10-31 10:29
标题: 回复 7# 的帖子
on error resume next功能是不是能跳过错误，还能捕捉错误么？？
还有啊，你那错误写入函数是怎么用的啊？？
刚学，很菜。tks

作者: 木卫十二 时间: 2007-10-31 10:36
呵呵，这个可以看一下真正高手们的讨论：
http://bbs.51testing.com/viewthr ... p;extra=&page=1

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)