51Testing软件测试论坛

标题: QTP之轻松写入html log [打印本页]
作者: My_JIE    时间: 2019-1-23 16:06
标题: QTP之轻松写入html log
用QTP自动化的人都知道，报告时一个很重要的文件，也是检验测试是否通过的凭证，那么如何才能更好的写好log呢？今天我先开的头，可能要在后面才会更新这个模块内容；先给大家来个例子；
  1. Function wrt_html(oStr)
  2.                 Dim FSO,oLog
  3.                 Dim FileDir                        '文件路径       

  5.                 '                On Error Resume Next
  6.                 Const ForReading=1,ForWriting=2,ForAppending=8                 '参数赋值（1：只读，2：只写，3：追加）
  7.                 Set FSO = CreateObject("Scripting.FileSystemObject")
  8.                
  9.                 '打开文件
  10.                 Set oLog = FSO.OpenTextFile("D:\测试.HTML", 8, True)
  11.                 oLog.WriteLine (CStr("oStr"))   '写入文件
  12.                
  13.                 '关闭和释放
  14.                 oLog.Close
  15.                 Set oLog = Nothing
  16.                 Set FSO = Nothing
  17.         End Function
复制代码

以上代码是在D盘目录下面写HTML文件  调用办法为：call wrt_html("111") 然后html就会出现如图：

[attach]121214[/attach]
[attach]121215[/attach]
作者: Miss_love    时间: 2020-12-31 11:01
支持分享



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2