TA的每日心情 | 无聊 2018-9-27 10:05 |
---|
签到天数: 36 天 连续签到: 1 天 [LV.5]测试团长
|
本帖最后由 黑羽祭 于 2014-9-15 15:39 编辑
文本日志的话是要写入文本是吧
在QTP中,经常会遇到需要写入外部文件的地方,比如写Log什么的,这时,可以使用下面代码进行写Txt操作。- '新建文件
- Dim FSO
- Const ForReading=1,ForWriting=2,ForAppending=8 '参数赋值(1:只读,2:只写,8:追加)
- Set FSO = CreateObject("Scripting.FileSystemObject") '创建一个文本对象
- Dim txtPath
- txtPath = "D:\log.txt"
- FSO.OpenTextFile txtPath,8,true 'true表示如果当前目录下不存在log.txt文件则创建一个。
- '写文件
- Call QTP_Writetxt(txtPath,"我是追加")
- Call QTP_Writetxt2(txtPath,"我是改写")
复制代码 然后是两个函数:- '===========================================
- '写文件函数(追加)
- '===========================================
- Public Function QTP_Writetxt(oPath,words)
- Dim FSO
- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set logFile = FSO.OpenTextFile(oPath, 8, true)
- logFile.WriteLine (CStr(words))
- logFile.Close
- Set logFile = Nothing
- Set FSO = Nothing
- End Function
- '===========================================
- '写文件函数(改写)
- '===========================================
- Public Function QTP_Writetxt2(oPath,words)
- Dim FSO
- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set logFile = FSO.OpenTextFile(oPath, 2, true)
- logFile.WriteLine (CStr(words))
- logFile.Close
- Set logFile = Nothing
- Set FSO = Nothing
- End Function
复制代码 除了直接打印之外,我还会加上写html语句,然后新建文件的后缀名也改成.html,这样,保存的文件就是一个网页啦,可以写入超链接,颜色,插入图片等等一系列动作。
这样,一个打印就可以做到图文并茂啦~ |
|