Forum Discussion

googleid_104927's avatar
googleid_104927
Contributor
11 years ago

Return an object array in vbscript

Hi, I am trying to return an object array, but somehow only the first element gets initilaised. The code is below: sub driver    dim iwant(1)    iwant(0)=0    iwant(1)=1  ...
  • HKosova's avatar
    HKosova
    11 years ago


    Hi TestComplete User,



    Your code works fine for me. I replaced someapp.someObject -> Sys.Desktop, someapp.anotherObject -> Sys.OSInfo, and, also, removed the superfluous "set retn(i) =" outside the loop.





    Maybe some array elements aren't initialized because their corresponding objects don't exist? Are there any errors in the test log? What's your complete code including the object names?



    By the way, here's the simpler way to populate an object array using a Dictionary object:



     Sub driver

       igot = initialisers

     End Sub

     

     Function initialisers

       Dim dic

       Set dic = CreateObject("Scripting.Dictionary")

     

       Set dic(0) = Sys

       Set dic(1) = Sys.Desktop

       Set dic(2) = Sys.Process("explorer")

     

       initialisers = dic.Items

     End Function


    Or, you could use VBScript's Array function:



     Sub driver

       igot = initialisers

     End Sub

     

     Function initialisers

       Dim arr

       arr = Array(_

         Sys, _

         Sys.Desktop, _

         Sys.Process("explorer")

       )

     

       initialisers = arr

     End Function


googleid_104927's avatar
googleid_104927
Contributor
11 years ago
Thanks for trying that out.

Can you see if this is an issue with Smartbear?



Unit1.svb

sub test

'USEUNIT unit2

somevariable = unit2.initialisers()

end sub



Unit2.svb

function initilalisers()

dim a(2)



'fill the a() array with some objects.



initialisers = a



end function  ---> set a break point here



now try evaluating the initilasers variable, you should see the window with objects list.

But if you dig deeper you'll find an error that goes something like 'invalid ubound()'



although there won't be any error if you run further and the values still get passed to the caller.



Could be a bug. But my issue is resolved.

Thanks for ur support again.