Web测试

QTP对TXT的一些简单操作

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

Set fso=CreateObject("scripting.filesystemobject")
Set txt=fso.OpenTextFile("D:\test.txt")'打开文本文档
txt.SkipLine'跳过一行
DoWhile 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

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

日历

« 2021-11-29  
 123456
78910111213
14151617181920
21222324252627
282930    

数据统计

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

RSS订阅

Open Toolbar