Tip: How To Execute VBScript Seamlessly in IRPA

How to Transfer Arrays Between JScript and VBScript

Here, as an addition, an example how to transfer arrays as parameters between JScript and VBScript from MSScriptControl.

1. Gets string array from VBScript to JScript
   The array is created in VBScript function and as return parameter transfered to JScript. With toArray it is converted to a JScript array.
2. Gets multidimensional integer Array from VBScript to JScript
   The array is created in VBScript function and as return parameter transfered to JScript. In JScript it is necessary to use VBArray method.
3. Sets string array from JScript to VBScript
   The array is created in JScript and transfered via AddObject method to VBScript, now it is possible to work with the array in the sub routine.
4. Takes the string array from JScript, change and get it from VBScript to JSript

//-Begin----------------------------------------------------------------

//-Sub log--------------------------------------------------------------
function log(logText) {
  if(typeof WScript === "object") {
    WScript.Echo(logText);
  } else {
    console.log(logText);
  }
}

//-Function hereString--------------------------------------------------
function hereString(strHere) {
  return strHere.toString().
    replace(/^[^\/]+\/\*!?/, '').
    replace(/\*\/[^\/]+$/, '');
}

//-Sub Main-------------------------------------------------------------
function Main() {

  var MSScrCtrl = new ActiveXObject("MSScriptControl.ScriptControl");
  MSScrCtrl.AllowUI = 1;
  MSScrCtrl.Language = "VBScript";

//-Begin VBScript-------------------------------------------------------
  var VBSCode = hereString(function() {/*!

Option Explicit

Function getStrArray()
  getStrArray = Array("Apples", "Bananas", "Oranges")
End Function

Function getMultiIntArray()
  Dim arr(1, 1)
  arr(0, 0) =  2
  arr(0, 1) =  4
  arr(1, 0) =  8
  arr(1, 1) = 16
  getMultiIntArray = arr
End Function

Sub setJSArray()
  Dim element
  For Each element In strJSArr
    MsgBox(element)
  Next  
End Sub

Function getsetStrArray()
  Dim strVBArr, i
  strVBArr = Split(strJSArr, ",")
  For i = 0 To UBound(strVBArr)
    Select Case strVBArr(i)
      Case "Cherries"
        strVBArr(i) = "Beans"
      Case "Grapes"
        strVBArr(i) = "Tomatoes"
      Case "Strawberries"
        strVBArr(i) = "Potatoes"
    End Select
  Next
  getsetStrArray = strVBArr
End Function

  */});
//-End VBScript---------------------------------------------------------

  MSScrCtrl.AddCode(VBSCode);


  //-Get string array from VBScript to JScript--------------------------
  var strVBArr = MSScrCtrl.Eval('getStrArray()').toArray();
  for(var i = 0; i < strVBArr.length; i++) {
    log(strVBArr[i]);
  }

  //-Get multidimensional integer array from VBScript to JScript--------
  var intMultiVBArr = new VBArray(MSScrCtrl.Eval('getMultiIntArray()'));
  for(var i = 1; i <= intMultiVBArr.dimensions(); i++) {
    for(var j = intMultiVBArr.lbound(i); j <= intMultiVBArr.ubound(i); j++) {
      log(intMultiVBArr.getItem(i - 1,j))
    }
  }

  //-Set string array from JScript to VBScript--------------------------
  var strJSArr = ["Cherries", "Grapes", "Strawberries"];
  MSScrCtrl.AddObject("strJSArr", strJSArr);
  MSScrCtrl.Run("setJSArray");

  //-Change JScript array in VBScript-----------------------------------
  strJSArr = MSScrCtrl.Eval('getsetStrArray()').toArray();
  for(var i = 0; i < strVBArr.length; i++) {
    log(strJSArr[i]);
  }
  
  MSScrCtrl.Reset();

}

//-Main-----------------------------------------------------------------
Main();

//-End------------------------------------------------------------------