QTP之轻松写入html log
浏览数：28 /
时间：2015年06月09日
用QTP自动化的人都知道，报告时一个很重要的文件，也是检验测试是否通过的凭证，那么如何才能更好的写好log呢？今天我先开的头，可能要在后面才会更新这个模块内容；先给大家来个例子；
Function wrt_html(oStr)
Dim FSO,oLog
Dim FileDir ‘文件路径
‘ On Error Resume Next
Const ForReading=1,ForWriting=2,ForAppending=8 ‘参数赋值（1：只读，2：只写，3：追加）
Set FSO = CreateObject("Scripting.FileSystemObject")
‘打开文件
Set oLog = FSO.OpenTextFile("D:\测试.HTML", 8, True)
oLog.WriteLine (CStr("oStr")) ‘写入文件
‘关闭和释放
oLog.Close
Set oLog = Nothing
Set FSO = Nothing
End Function
以上代码是在D盘目录下面写HTML文件 调用办法为：call wrt_html("111") 然后html就会出现如图：
这个只是开始后面会教大家写如下的报告：涂上颜色、截图、超链接等等，敬请期待……
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
