51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1972|回复: 6
打印 上一主题 下一主题

[原创] cxuQTP的参数化的问题,该这么样的取解决!

[复制链接]
  • TA的每日心情
    开心
    2016-8-25 10:16
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    跳转到指定楼层
    1#
    发表于 2008-3-13 15:45:55 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
    现在我要进行QTP的参数化,我在机器上有一个 name.txt的文件
    我要把里面的数据作为参数化的数据,
    在里面的 字,我想让它每3个作为一个数据进行参数化,
    首先 要读里面的数据,按照每3个字读一次,
    现在请问:代码要怎么写!
    谢谢各位!
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

    该用户从未签到

    7#
    发表于 2008-3-18 00:26:11 | 只看该作者
    希望能帮到你
    Public Function ReadTxt(ByVal filepath)
    Const ForReading=1, ForWriting=2, ForAppending=8
    Dim fso,fil,MyArray
    Set fso=CreateObject("Scripting.FileSystemObject")
    Set fil = fso.OpenTextFile(filepath,ForReading)
    Do While Not fil.AtEndOfLine
       MyArray=Split(fil.ReadLine,"=",-1,1)
       AutoCalcTest trim(MyArray(0)),trim(MyArray(1))
    Loop
    fil.Close
    Set fil=Nothing
    Set fso=Nothing
    End Function
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2016-2-27 08:48
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    6#
    发表于 2008-3-14 23:52:14 | 只看该作者
    这是对 文件的操作,楼主先搜索一下以前的类似帖子吧
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2016-8-25 10:16
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    5#
     楼主| 发表于 2008-3-14 16:15:06 | 只看该作者
    应该有办法的,有大侠的帮忙吗?
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
    发表于 2008-3-13 17:03:09 | 只看该作者
    转为xls
    每三个字一个column
    估计不行,呵呵
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2016-8-25 10:16
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    3#
     楼主| 发表于 2008-3-13 16:53:47 | 只看该作者
    请帮忙了啊!
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2016-8-25 10:16
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    2#
     楼主| 发表于 2008-3-13 16:52:46 | 只看该作者
    请各位帮忙了!
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-24 08:31 , Processed in 0.068947 second(s), 24 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表