Web测试

QTP对TXT的一些简单操作

上一篇 / 下一篇  2013-02-20 08:51:53 / 个人分类：测试总结

查看( 607 ) / 评论( 0 ) / 评分( 0 / 0 )
Set fso=CreateObject("scripting.filesystemobject")
Set txt=fso.OpenTextFile("D:\test.txt")'打开文本文档
txt.SkipLine '跳过一行
Do While txt.AtEndOfLine<>True '判断是否为最后一行
    str=txt.ReadLine '读取一行
    s=Split(str,",") '将用逗号分隔的数据放在数组中
    MsgBox s(0)&s(1) '输出
Loop
txt.Close
Set fso=nothing

收藏 举报

TAG: QTP qtp txt TXT 参数化

 

评分：0

我来说两句

jing17

jing17

有梦想 有激情 ~@！ 放飞无限青春 像鹰一样翱翔 ~#@

日历

« 2024-03-22  
日 一 二 三 四 五 六
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 14960
  • 日志数: 19
  • 建立时间: 2012-05-19
  • 更新时间: 2013-08-18

RSS订阅

Open Toolbar