vbscript - QTP:如何从一个函数返回多个值

Question

我正在尝试编写一个可以从具有2个参数的函数中返回多个值的函数。

例如:

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))时，此函数应返回乘客，name1，age1，seatNumber值。

我怎样才能做到这一点？

编辑(LB): QTP使用VBScript指定测试例程，因此我将其重新标记为VBScript，VB，因为解决方案可能在VBScript中。

Answer 1

一个简单的解决方案是返回一个数组:

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