将测试进行到底!
向txt文件中写入记录
上一篇 /
下一篇 2007-04-26 16:39:02
/ 个人分类：QuickTest Pro
用opentextfile方法可以很轻松的向txt文件中写入信息，比如说在跑qtp脚本的时候网站服务器端返回给客户端的一些数据写入txt文件。
dim creatfile, myo,p
‘从选择sheet数据表中获取piao_out字段中的值并传给p
p= datatable.GetSheet("选择").GetParameter("piao_out").value
Set creatfile=createobject("scrīpting.filesystemobject")
'判断文件是否存在
If creatfile.FileExists("D:\wang\et\piao.txt") Then
Set myo=creatfile.opentextfile("D:\wang\et\piao.txt",8,False)
'向 piao.txt 文件末尾换行写入信息
myo.WriteLine "wangyong"
myo.WriteLine(p)
else
Set myo=creatfile.opentextfile("D:\wang\et\piao.txt",8,True)
myo.WriteLine(p)
End If
注：
opentextfile("D:\wang\et\piao.txt",8,True)
|
常数 |
值 |
描述 |
|
ForReading |
1 |
以只读方式打开文件。不能写这个文件 |
|
ForWriting |
2 |
以写方式打开文件 |
|
ForAppending |
8 |
打开文件并从文件末尾开始写
|
True为创建新文件piao.txt，False为不创建文件(在piao.txt文件已经存在的情况下)
收藏
举报
TAG:
