软件测试论坛 › [自动化测试工具及框架] › QTP之轻松写入html log

My_JIE 发表于 2019-1-23 16:06:18

QTP之轻松写入html log

用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就会出现如图：

Miss_love 发表于 2020-12-31 11:01:10

支持分享

查看完整版本: QTP之轻松写入html log