我正在尝试编写一个函数,它可以从具有 2 个参数的函数返回多个值。
eg:
function sample_function(arg1,arg2)
''#Some code.................
passenger = list1(0)
name1 = list1(1)
age1 = list1(2)
seatNumber = list1(3)
''#This is an Incomplete function...
end function sample_function
这里这个名为sample_function的函数有2个名为arg1、arg2的参数。当我在驱动程序脚本中调用此函数(例如 value = Sample_function(2,Name_person))时,此函数应返回乘客、姓名 1、年龄 1、座位号值。
我怎样才能做到这一点?
编辑(磅):QTP 使用 VBScript 来指定测试例程,因此我将其重新标记为 VBScript,VB,因为解决方案可能位于 VBScript 内。
一个简单的解决方案是返回一个数组:
function foo()
foo=array("Hello","World")
end function
x=foo()
MsgBox x(0)
MsgBox x(1)
如果您碰巧多次使用同一批值,那么将其设为用户定义的类可能是值得的:
class User
public name
public seat
end class
function bar()
dim r
set r = new User
r.name="J.R.User"
r.seat="10"
set bar=r
end function
set x=bar()
MsgBox x.name
MsgBox x.seat
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)