51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 5945|回复: 4
打印 上一主题 下一主题

[原创] QTP中灵活使用环境变量

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-10-30 10:01:03 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
QTP使用环境变量的方法有两种,一种是自己设置环境变量,这种方法有很多朋友介绍过,不过我在使用的时候,更喜欢把它写在脚本中,这样不管脚本是移植到哪台机器上,环境变量都不用重新设置了,是不是方便很多,例如某个项目的主控脚本具体代码如下:

Dim Excel,Workbook,WorkSheet,run_value,script_name
Dim filepath,bnpFileName

Environment.Value("file_pash") = "C:\Documents and Settings\robel.yi\Desktop\BNP_SCRIPTS"

filepath=environment("file_pash")
bnpFileName=filepath & "\Data_file\Main_DATA.xlsx"

Set Excel= CreateObject("Excel.Application")
Set Workbook= Excel.Workbooks.Open(bnpFileName)
Set WorkSheet= workbook.Worksheets("Sheet1")

For i = 2 To 6
        run_value=CStr(WorkSheet.Cells(i, 3))
        If run_value = "Y" Then
                RunAction CStr(WorkSheet.Cells(i, 2))
        End If
Next

Excel.Quit
Set Workbook = nothing
Set WorkSheet = nothing

    这样,每次如果你把脚本移植到了另外一个地方,把新的路径赋值给环境变量file_pash就行了,其实也可以把它写在主控脚本的EXCEL驱动表里面,每次有变量在EXCEL里面修改就行了,对于把脚本给其他黑盒工程师来执行的时候,更加容易使用,其实有时候我们在写脚本的时候,一些小小的改动就能使自动化变得更智能方便,大家还有什么关于环境变量的使用的好的心得也不妨一起分享分享。

[ 本帖最后由 Robel.Yi 于 2008-10-30 10:40 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2008-10-30 11:03:10 | 只看该作者
是个好方法,不过用xml也可,每次导入一下
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2008-12-9 15:56:20 | 只看该作者
蛮好的想法,我一直在自定义环境变量中调用XML文件的,的确在移植时比较麻烦。

还有个小小的建议不知是否确当:
将Main_DATA.xlsx放在TestCase同级的目录中,并通过使用内嵌的环境变量TestDir来指定,这样也会在移植时更方便
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2009-9-12 18:00:13 | 只看该作者
你这相对于用XML外部文件定义环境变量到底是退步了还是进步了??
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2009-9-12 23:22:17 | 只看该作者
照LZ这么说,换机器还得保证每台机器必须得有"C:\Documents and Settings\robel.yi\Desktop\BNP_SCRIPTS"了?

没有的话就得改你代码?要是其他人不知道的话还得看你代码?要是连接QC远程执行咋办?要是一堆项目,千万行的代码咋整?
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-8 07:48 , Processed in 0.074565 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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