QTP如何定义全局变量

Jor

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

aileen2008

路过

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

chicochen

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. 
   
9.         Dim fso, myfile, tmp
   
10.         If IsExitAFile(filePath) Then
    
11.                 Set fso=CreateObject("scripting.FileSystemObject")
    
12.                 Set myfile=fso.openTextFile(filePath,1,false)
    
13.                 tmp=myfile.readline
    
14.                 myfile.close
    
15.         else
    
16.                 tmp = "None"
    
17.         end if
    
18. 
    
19.         func_GetGlobalVar = tmp
    
20.       
    
21. End Function
    
22. 
    
23. Function func_SetGlobalVar  (varName,  varValue )
    
24.          
    
25.         func_SetGlobalVar = 0
    
26.    
    
27.         'hostname = string$ (100,chr$(10))
    
28.         'Result = func_ToolGetComputerName(hostname,100 )
    
29.         filePath = "c:\" + varName
    
30. 
    
31.         If IsExitAFile(filePath) Then
    
32.                 DeleteAFile(filePath)
    
33.         Else
    
34.                 'CreateAFile(filePath)
    
35.         End If
    
36. 
    
37.         Dim fso, myfile
    
38.         Set fso=CreateObject("scripting.FileSystemObject")
    
39.         Set myfile=fso.openTextFile(filePath,8,true)
    
40.         myfile.writeline varValue
    
41.        
    
42.         func_SetGlobalVar = 1
    
43.       
    
44. End Function

复制代码

zhuyuancan

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

yiyun525

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