将递归jQuery For each循环转换为JavaScript for VBA Script Control

// 递归的jQuery $.each()循环
function recursiveEach(arr, callback) {
  $.each(arr, function(index, item) {
    if (Array.isArray(item)) {
      recursiveEach(item, callback);
    } else {
      callback(item);
    }
  });
}

// 转换为JavaScript for循环
function convertToForLoop(arr, callback) {
  for (var i = 0; i < arr.length; i++) {
    var item = arr[i];
    if (Array.isArray(item)) {
      convertToForLoop(item, callback);
    } else {
      callback(item);
    }
  }
}

Sub RunJavaScript()
  Dim js As New MSScriptControl.ScriptControl
  js.Language = "JavaScript"
  
  Dim arr(2) As Variant
  arr(0) = 1
  arr(1) = 2
  arr(2) = Array(3, 4)
  
  js.AddCode "function callback(item) { console.log(item); }"
  js.AddCode "function convertToForLoop(arr, callback) { for (var i = 0; i < arr.length; i++) { var item = arr[i]; if (Array.isArray(item)) { convertToForLoop(item, callback); } else { callback(item); } } }"
  
  js.Run "convertToForLoop(" & js.Array(arr) & ", callback)"
End Sub