QTP如何定义全局变量

yulen36

QTP如何定义全局变量,当然本来可以使用环境变量,但问题是我试了一下环境变量好像不支持记录集类型recordset,不知道QTP里可不可以像VB那样在什么地方定义一个全局变量,让一个TEST里的所有的ACTION都能使用它?

yiyun525

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

zhuyuancan

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

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

复制代码

aileen2008

路过

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

Jor

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

gy21st

三楼写得很清楚了，开了药不吃当然会感觉不舒服

eramyang

原帖由 sogoc 于 2007-10-13 14:42 发表
3楼的那叫调用吧？？？
使用ExecuteFile "X:\ABC\DDD.VBS"
事先要写一个DDD。VBS的脚本。。。就是写个VB啦，但是每个ACTION都要调用。。。感觉这个也不能说是全局吧？

对的，我也觉得这个还是不能称之为全局变量，而且如果这样的变量很多时，每次运行Action都要加载一次，不是会耗去很多的时间嘛，感觉不舒服。
这个需要学习一下，我发现问题真的是一个一个的增加。唉~~~~

leeallen

相互学习一下

pxwcypx

唉，优化脚本真难啊，我都搞死了，谁有个实际的例子可以给我看看啊，有的语句想加都不知道如何去实现，痛苦ING

jasminechinadl

学习中,谢谢!

walker1020

请参考 http://bbs.51testing.com/viewthread.php?tid=74111

sogoc

3楼的那叫调用吧？？？
使用ExecuteFile "X:\ABC\DDD.VBS"
事先要写一个DDD。VBS的脚本。。。就是写个VB啦，但是每个ACTION都要调用。。。感觉这个也不能说是全局吧？

sogoc

什么意思的全局？一个代码么？定义在最外层就可以了呀。。。还是在不同的ACTION呢？

jackymail

原帖由 yabest 于 2007-10-12 16:45 发表


为了这顿饭，我拼了，打飞的过去！！！
（哎，哎，你跑啥呀，别跑啊，不就一顿五星饭店满汉。。。这jackymail是自己脸皮厚硬跟来的，要不我把他赶走。。。你别跑啊，哎。。。）

人家压根没说请我吃饭。你自己去吧。

如果有时间不如写个什么如何构建框架的文档，让我学学。。

yabest

原帖由 yulen36 于 2007-10-12 10:41 发表
谢谢Yabest老师
Yabest老师真是高人,小女子在此谢过了!
解决了困扰了我两天两夜的问题,如果你在重庆,我就请你吃饭了,

为了这顿饭，我拼了，打飞的过去！！！
（哎，哎，你跑啥呀，别跑啊，不就一顿五星饭店满汉。。。这jackymail是自己脸皮厚硬跟来的，要不我把他赶走。。。你别跑啊，哎。。。）

[ 本帖最后由 yabest 于 2007-10-12 16:49 编辑 ]

yuandjing

哈哈，有口福了

yulen36

谢谢Yabest老师
Yabest老师真是高人,小女子在此谢过了!
解决了困扰了我两天两夜的问题,如果你在重庆,我就请你吃饭了,

jackymail

原帖由 yulen36 于 2007-10-12 10:04 发表
啊,不行呀,我还正在试验中呢,不行的话,怎么办呢,痛苦呀,难道没办法吗?

行的，ya老师出马没有不行的。。

coletan

把变量值存在datatable也可以，不过好像不是最方便的。