QTP实现对文本文档的读写

上一篇 / 下一篇  2008-12-19 14:51:31 / 个人分类：QTP

查看( 576 ) / 评论( 0 ) / 评分( 0 / 0 )
'几个重要的方:OpenTextFile,AtEndofLine,Split

Dim Fileobj,FilePath,FileName,Arrayline

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

'创建一个文本文件并写入数据1塂!}`tg? 
Set ōbjth = CreateObject ("scrīpting.FileSystemObject");9籔??@ 
Set AdFile = objth.OpenTextFile(FilePath,2,true)      '此方法打开指定的文件并返回TextStream对象 ，第一个参数为要打开文件字符串表达式,第二个参数有三个值1,2,8可选,第三个参数True为创建新文件巬暌/DV; 
AdFile.WriteLine "###############################"?o絎5? 
AdFile.WriteLine "此脚本为读写文本文件的脚本例子"輐g?滝? 
AdFile.Close

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

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


收藏 举报

TAG: QTP

 

评分：0

我来说两句

日历

« 2024-04-29  
日 一 二 三 四 五 六
 123456
78910111213
14151617181920
21222324252627
282930    

数据统计

  • 访问量: 10393
  • 日志数: 17
  • 文件数: 1
  • 建立时间: 2008-12-11
  • 更新时间: 2009-06-19

RSS订阅

Open Toolbar