【QTP】写入txt文件的操作
2012-10-23 13:24
253 查看
在QTP中,经常会遇到需要写入外部文件的地方,比如写Log什么的,这时,可以使用下面代码进行写Txt操作。
然后是两个函数:
除了直接打印之外,我还会加上写html语句,然后新建文件的后缀名也改成.html,这样,保存的文件就是一个网页啦,可以写入超链接,颜色,插入图片等等一系列动作。
这样,一个打印就可以做到图文并茂啦~
下面的图是我的用法,用了下QTP报告自带的CSS,大概如下
'新建文件 Dim FSO Const ForReading=1,ForWriting=2,ForAppending=8 '参数赋值(1:只读,2:只写,3:追加) Set FSO = CreateObject("Scripting.FileSystemObject") '创建一个文本对象 Dim txtPath txtPath = "D:\log.txt" FSO.OpenTextFile txtPath,8,true 'true表示如果当前目录下不存在1.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,这样,保存的文件就是一个网页啦,可以写入超链接,颜色,插入图片等等一系列动作。
这样,一个打印就可以做到图文并茂啦~
下面的图是我的用法,用了下QTP报告自带的CSS,大概如下
相关文章推荐
- 在QTP中,经常会遇到需要写入外部文件的地方,比如写Log什么的,这时,可以使用下面代码进行写Txt操作。
- ASP.NET对txt文件相关操作(读取、写入、保存)
- 打开指针C++文件读写操作(一)将字母表写入TXT文本文件
- c#asp.net 读取 写入 txt 文件 asp.net操作文件
- c#asp.net 读取 写入 txt 文件 asp.net操作文件
- javascript操作写入txt文件及消息: Automation 服务器不能创建对象问题
- C++文件读写操作(将字幕写入txt文件文本)
- java 实现txt文件读取,写入操作实例代码。
- c#asp.net 读取 写入 txt 文件 asp.net操作文件
- java的io操作(将字符串写入到txt文件中)
- iostream迭代器操作"txt文本文件"无法写入的思考
- C# IO操作,写入文本到txt文件.
- ASP.NET对txt文件相关操作(读取、写入、保存)
- [置顶] 【scala io】scala io操作 txt文件读取和写入
- 记事本.txt文件的读取和写入操作
- C++文件读写操作(一)将字母表写入TXT文本文件
- java的io操作(将字符串写入到txt文件中)
- java的io操作(将字符串写入到txt文件中)
- 文件操作C语言 在txt文档中写入hello字符
- java的io操作(将字符串写入到txt文件中)