• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

使用Robot输入清单

发布: 2008-9-27 11:10 | 作者: dionysus | 来源: 51testing博客 | 查看: 12次 | 进入软件测试论坛讨论

领测软件测试网 制作一份模拟真实情况的预算文件通常需要输入大量的清单和子目,采用手工输入的话不仅浪费时间而且可重复性不强,本篇文章介绍如何使用Robot的DataPool和for循环对清单进行输入,并探索了两种方法的优缺点。

    从事建筑行业的人都知道清单的输入格式,在这里我也简单介绍一下。 

    十二位的清单格式:

    两位专业号+两位章号+两位节号+三位小节号+三位流水号,如01 01 01 001 001(为了从视觉上看到不同位的意义,我把一个标准的清单用空格分隔开了,正常的清单号是没有空格分隔的)。不同专业、章、节、小节可以组合出不同的清单,最后一位流水号起到区分同一清单的作用,即为010101001001与010101001002是同一清单,只是用户流水号不同,因为一份预算书中不允许有完全相同的清单出现。

    作为自动化输入大量清单我首先想到的就是使用Robot的DataPool。从EXCEL制作大量清单并保存为CSV文件,导入到DataPool中进行循环输入。但这里我遇到一个问题:保存为CSV格式后清单号的第一个0被抹掉了(直接在CSV文档中输入010101001001,保存后第一个0还是会被清除),这样导入到DataPool后清单号都变成十一位了,这不是标准清单!解决办法就是手工在DataPool中添加,但对于大量保存在DataPol中的清单这样的修改是不可行的。于是只能放弃。

    另一种办法就是使用循环,将清单号如上面的格式拆分,分别对专业、章、节、小节、流水号进行循环,最后再组合成为一个标准的清单输入。但这里还有一个小问题,如我对三位小节号从1循环到10,最后怎样让其输出格式为001~010。其实很简单,使用format函数。简单代码如下:


Sub Main
    Dim Result As Integer
    Dim zhuan,zhang,jie,liu as integer
    Dim qing as string
   
    'Initially Recorded: 2006-11-15  21:35:34
    'scrīpt Name:     
        
    for jie = 1 to 5
        for liu = 1 to 5
      
         qing = "01" + "01" + "01" + Cstr(format(jie,"000")) + Cstr(format(liu,"000"))
         InputKeys qing
         InputKeys "{DOWN}"
   
        next liu
    next jie

End Sub

    这是一个再简单不过的循环语句,但是效果却很不错。由此可见我们不见得非要采用“高新技术”解决所有问题,最适用最简单的方法就是最好的。

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/

TAG: robot Robot 输入 清单


关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备10010545号-5
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网