convert JScript Array to Array Variant

[Murat Ak]

How can i convert JScript Array to Variant Array like
VBScript Array

because i send JScript array to my application as a
parametre but my application understand that parametre is
a object, because JScript Array is object, but i want
JScript Array as Variant

[Branimir Petrovic]

"Murat Ak" <m...@cpmsoft.com.tr> wrote in message news:2cdd01c15e24$92db1730$35ef2ecf@TKMSFTNGXA11...

> How can i convert JScript Array to Variant Array like
> VBScript Array
>

Doable (but utterly ugly) way:

<?XML version="1.0" standalone="yes" ?>
<package>

<job id="JSArrayToVBS">
<?job error="true" debug="true" ?>

<script language="JScript"> <![CDATA[
var jAry = new Array("zero", "one", "two", "three", "four", "five");
var bundleOfJoy = pack(jAry)

function pack(Ary) {
var oD = new ActiveXObject("Scripting.Dictionary");
for (var i=0; i<Ary.length; i++) oD.add(i, Ary[i]);
return oD.items();
}
]]> </script>

<script language="VBScript"> <![CDATA[
Dim vbAry
vbAry = unPack(bundleOfJoy)

MsgBox vbAry(0) & " to " & vbAry(UBound(vbAry))

Function unPack(oC)
Dim Ary, vItem
Ary = Array()
For Each vItem in oC
ReDim Preserve Ary(UBound(Ary)+1)
Ary(UBound(Ary)) = vItem
Next
unPack = Ary
End Function
]]> </script>
</job>

</package>

Or you can download and install custom JSafeArray ActiveX component from:
http://www.netspace.net.au/~torrboy/code/

Branimir