QTP实现对文本文档的读写

'几个重要的方法:OpenTextFile,AtEndofLine,Split

Dim Fileobj,FilePath,FileName,Arrayline

FilePath=\"E:\cntesting.txt\"       '操作文本的所在路径也可以为表达式

'创建一个文本文件并写入数据
Set bjth = CreateObject (\"Scripting.FileSystemObject\")
Set AdFile = objth.OpenTextFile(FilePath,2,true)      '此方法打开指定的文件并返回TextStream对象 ，第一个参数为要打开文件字符串表达式,第二个参数有三个值1,2,8可选,第三个参数True为创建新文件
AdFile.WriteLine \"###############################\"
AdFile.WriteLine \"此脚本为读写文本文件的脚本例子\"
AdFile.Close

Set AdFile =  objth.OpenTextFile(FilePath,1,false)    '此中的参数1为只读方式打开

 While not AdFile.AtEndofLine    '如果文件指针正好位于OpenTextFile返回的TextStream文件中的行尾符之前,则返回True,否则返回False,只读
  Arrayline = Split(AdFile.ReadLine,\",\")'此方法将一个字符串分割为子字符串,然后将结果作为字符串数组返回
  msgbox Arrayline(i)
 Wend