软件测试论坛 › [QuickTest Professional] › QTP如何定义全局变量

Jor 发表于 2007-12-7 13:43:07

environment("pram") 不就行了。。。？？

aileen2008 发表于 2007-12-7 15:48:27

路过

[ 本帖最后由 aileen2008 于 2007-12-7 15:51 编辑 ]

chicochen 发表于 2008-10-10 11:33:52

Google搜索"QTP 共享"，文章里有4中方式

不过这个变量是一个action及其被调用的action之间进行共享的。
如果在test set级别，想做共享变量，可以 用文件保存，代码如下：Function func_GetGlobalVar(varName )
         
        func_GetGlobalVar = "None"

        'hostname = string$ (100,chr$(10))
        'Result = func_ToolGetComputerName(hostname,100 )
        filePath = "c:\" + varName

        Dim fso, myfile, tmp
        If IsExitAFile(filePath) Then
                Set fso=CreateObject("scripting.FileSystemObject")
                Set myfile=fso.openTextFile(filePath,1,false)
                tmp=myfile.readline
                myfile.close
        else
                tmp = "None"
        end if

        func_GetGlobalVar = tmp
      
End Function

Function func_SetGlobalVar(varName,varValue )
         
        func_SetGlobalVar = 0
   
        'hostname = string$ (100,chr$(10))
        'Result = func_ToolGetComputerName(hostname,100 )
        filePath = "c:\" + varName

        If IsExitAFile(filePath) Then
                DeleteAFile(filePath)
        Else
                'CreateAFile(filePath)
        End If

        Dim fso, myfile
        Set fso=CreateObject("scripting.FileSystemObject")
        Set myfile=fso.openTextFile(filePath,8,true)
        myfile.writeline varValue
       
        func_SetGlobalVar = 1
      
End Function

zhuyuancan 发表于 2008-10-11 17:22:41

此帖自发布至今一周年了啊！！！

yiyun525 发表于 2016-1-29 15:43:04

当我看到的时候，已经好几年了。是不是太out了。。。。

查看完整版本: QTP如何定义全局变量