51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

12
返回列表 发新帖
楼主: yulen36
打印 上一主题 下一主题

[原创] QTP如何定义全局变量

[复制链接]

该用户从未签到

21#
发表于 2007-12-7 13:43:07 | 只看该作者
environment("pram") 不就行了。。。??
回复 支持 反对

使用道具 举报

该用户从未签到

22#
发表于 2007-12-7 15:48:27 | 只看该作者
路过

[ 本帖最后由 aileen2008 于 2007-12-7 15:51 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

23#
发表于 2008-10-10 11:33:52 | 只看该作者
Google搜索"QTP 共享",文章里有4中方式

不过这个变量是一个action及其被调用的action之间进行共享的。
如果在test set级别,想做共享变量,可以 用文件保存,代码如下:
  1. Function func_GetGlobalVar  (varName )
  2.          
  3.         func_GetGlobalVar = "None"
  4.   
  5.         '  hostname = string$ (100,chr$(10))
  6.         '  Result = func_ToolGetComputerName(hostname,100 )
  7.         filePath = "c:\" + varName

  8.         Dim fso, myfile, tmp
  9.         If IsExitAFile(filePath) Then
  10.                 Set fso=CreateObject("scripting.FileSystemObject")
  11.                 Set myfile=fso.openTextFile(filePath,1,false)
  12.                 tmp=myfile.readline
  13.                 myfile.close
  14.         else
  15.                 tmp = "None"
  16.         end if

  17.         func_GetGlobalVar = tmp
  18.       
  19. End Function

  20. Function func_SetGlobalVar  (varName,  varValue )
  21.          
  22.         func_SetGlobalVar = 0
  23.    
  24.         'hostname = string$ (100,chr$(10))
  25.         'Result = func_ToolGetComputerName(hostname,100 )
  26.         filePath = "c:\" + varName

  27.         If IsExitAFile(filePath) Then
  28.                 DeleteAFile(filePath)
  29.         Else
  30.                 'CreateAFile(filePath)
  31.         End If

  32.         Dim fso, myfile
  33.         Set fso=CreateObject("scripting.FileSystemObject")
  34.         Set myfile=fso.openTextFile(filePath,8,true)
  35.         myfile.writeline varValue
  36.        
  37.         func_SetGlobalVar = 1
  38.       
  39. End Function
复制代码
回复 支持 反对

使用道具 举报

该用户从未签到

24#
发表于 2008-10-11 17:22:41 | 只看该作者
此帖自发布至今一周年了啊!!!
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2016-1-7 15:07
  • 签到天数: 98 天

    连续签到: 2 天

    [LV.6]测试旅长

    25#
    发表于 2016-1-29 15:43:04 | 只看该作者
    当我看到的时候,已经好几年了。是不是太out了。。。。
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-23 11:35 , Processed in 0.067706 second(s), 20 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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