51Testing软件测试论坛

标题: Qtp创建日志 [打印本页]

作者: zq861010 时间: 2010-4-11 16:56
标题: Qtp创建日志
我想创建一个日志，把运行时错误信息都输出到里面，请问该怎么写脚本啊

作者: TIB 时间: 2010-4-11 17:04
Reporter.ReportEvent micFail, "错误步骤", "出现XXX错误"

作者: superliming 时间: 2010-4-12 09:14
可以写个日志函数，在脚本中调用就可以了

作者: TIB 时间: 2010-4-12 09:16
使用ReporterManager试试吧：
http://www.advancedqtp.com/conte ... ts/reportermanager/
（需要先注册才能下载）

作者: zq861010 时间: 2010-4-12 09:59
谢谢各位已经解决了写了个日志脚本呵呵

作者: zq861010 时间: 2010-4-12 10:00
Sub  CreateLog(message)
Const  Forwriting=1
  Const ForReading=2
  Const  ForAppending=8
  Dim TextName
  Dim fso
  Dim FilePath
  Dim text
  Set  fso=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
谢谢楼主分享

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