51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

查看: 1459|回复: 3

QTP之轻松写入html log

[复制链接]

该用户从未签到

发表于 2019-1-23 16:06:18 | 显示全部楼层 |阅读模式
用QTP自动化的人都知道,报告时一个很重要的文件,也是检验测试是否通过的凭证,那么如何才能更好的写好log呢?今天我先开的头,可能要在后面才会更新这个模块内容;先给大家来个例子;
  1. Function wrt_html(oStr)
  2.                 Dim FSO,oLog
  3.                 Dim FileDir                        '文件路径       

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

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



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-3-29 14:54 , Processed in 0.067814 second(s), 24 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表