zq861010 发表于 2010-4-11 16:56:29

Qtp创建日志

我想创建一个日志，把运行时错误信息都输出到里面，请问该怎么写脚本啊

TIB 发表于 2010-4-11 17:04:47

Reporter.ReportEventmicFail,"错误步骤","出现XXX错误"

superliming 发表于 2010-4-12 09:14:01

可以写个日志函数，在脚本中调用就可以了

TIB 发表于 2010-4-12 09:16:37

使用ReporterManager试试吧：
http://www.advancedqtp.com/content/knowledge-base/projects/reportermanager/
（需要先注册才能下载）

zq861010 发表于 2010-4-12 09:59:26

谢谢各位 已经解决了 写了个日志脚本 呵呵

zq861010 发表于 2010-4-12 10:00:54

SubCreateLog(message)
ConstForwriting=1
Const ForReading=2
ConstForAppending=8
Dim TextName
Dim fso
Dim FilePath
Dim text
Setfso=CreateObject("Scripting.FileSystemObject")
TextName="lims"&date
FilePath="E:\qtp脚本\物流系统\新建供应商\log\"&TextName&".txt"
If Not( fso.FileExists(FilePath) )Then
Set text= fso.CreateTextFile(FilePath,ForWriting,True)
else
Set text=fso.OpenTextFile(FilePath,ForAppending,false,true)
End If

text.WriteLine(date & " " & time & "： " & message)
text.Close
End Sub

愤怒的黄瓜 发表于 2010-4-12 10:48:57

谢谢楼主分享
页: [1]
查看完整版本: Qtp创建日志