QTP脚本编写技巧 - 从函数中返回多个值的方法
来源:互联网 发布:远程 centos 编辑:程序博客网 时间:2024/06/05 03:33
relevantcodes.com的《Passing Multiple Values from Functions》这篇文章介绍了如何从函数(Function)中返回多个值:
http://relevantcodes.com/passing-multiple-values-from-functions/
第一种方法是利用全局变量,因此根本不用返回,只要直接给全局变量赋值即可。
例:
Dim intNumber_1: intNumber_1 = 40
Dim intNumber_2: intNumber_2 = 80
Public Sub PassValues
intNumber_1 = intNumber_1/4
intNumber_2 = intNumber_2/4
End Sub
PassValues
MsgBox "intNumber_1 = " & intNumber_1 &_
vbLf & "intNumber_2 = " & intNumber_2
第二种方法是用返回一个Dictionary集合的方式来返回多个值。
例:
Public Function PassValues(ByVal Num_1, ByVal Num_2)
Set oDict = CreateObject( "Scripting.Dictionary" )
With oDict
.Add "Num_1", Num_1/4
.Add "Num_2", Num_2/2
End With
Set PassValues = oDict
End Function
Set colNumbers = PassValues(40,80)
MsgBox "intNumber_1 = " & colNumbers.Item("Num_1") &_
vbLf & "intNumber_2 = " & colNumbers.Item("Num_2")
第三种方法是用返回一个数组的方式来返回多个值。
例:
Public Function PassValues(ByVal Num_1, ByVal Num_2)
Dim arrArray: ReDim arrArray(2)
arrArray(0) = Num_1/4
arrArray(1) = Num_2/2
PassValues = arrArray
End Function
arrNew = PassValues(40,80)
MsgBox "intNumber_1 = " & arrNew(0) &_
vbLf & "intNumber_2 = " & arrNew(1)
第四种方法是将需要返回的值连接到一个字符串来返回,这种方法要求接收数据的调用者需要用Split来切割出一个个数据。
例:
Public Function PassValues(ByVal Num_1, ByVal Num_2)
Num_1 = Num_1/4
Num_2 = Num_2/2
PassValues = Num_1 & "," & Num_2
End Function
sNum = PassValues(40,80)
MsgBox "intNumber_1 = " & Split(sNum, ",")(0) &_
vbLf & "intNumber_2 = " & Split(sNum, ",")(1)
第五种方法是通过ByRef关键字指定参数为引用,这种方法与用全局变量的方法类似,也是直接修改值,不同返回。
例:
Dim intNumber_1: intNumber_1 = 40
Dim intNumber_2: intNumber_2 = 80
Public Sub PassValues(ByRef Num_1, ByRef Num_2)
Num_1 = Num_1/4
Num_2 = Num_2/2
End Sub
PassValues intNumber_1, intNumber_2
MsgBox "intNumber_1 = " & intNumber_1 &_
vbLf & "intNumber_2 = " & intNumber_2
- QTP脚本编写技巧 - 从函数中返回多个值的方法
- 从函数中返回多个值的方法
- QTP脚本编写常用技巧
- 【QTP】编写脚本中的一些小技巧
- QTP中针对不同类型语言编写的计算器的测试脚本
- 手工编写QTP测试脚本
- 手工编写QTP测试脚本
- Shell脚本的编写技巧
- Linux 中高效编写 Shell 脚本的 10 个技巧
- Linux 中高效编写 Bash 脚本的 10 个技巧
- Linux 中高效编写 Bash 脚本的 10 个技巧
- Linux中高效编写Bash脚本的10个技巧
- QTP中连接数据库的vbs脚本
- LR中运行QTP脚本的注意事项
- QTP录制脚本小技巧
- 【QTP】【头脑风暴】如何在脚本运行时,Log中能记录当前进入的函数
- 函数返回多个值的方法;
- ASP.NET中函数返回多个值的方法
- 数字城市地理信息公共平台软件测评大纲
- C语言位域操作方法
- ABAP:下载服务器文件到本机
- crossdomain.xml 和 clientaccesspolicy.xml
- 程序员真实写真:35岁前成功的12条黄金法则
- QTP脚本编写技巧 - 从函数中返回多个值的方法
- March 22th Monday 2010
- 留给19371213看的
- 查看oracle 系统临时表空间、undo表空间、SGA和PGA大小
- PageRequestManagerServerErrorException in FireFox
- 打击地球人专用图
- 倒车
- 60条令你大吃一惊的小常识
- 抽象类