
convert JScript Array to Array Variant
Quote:
> 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();
Quote:
}
]]> </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