1次元のJScript配列を、1次元のSafeArrayに変換するサンプル(JScript only)

test1d2.wsf

<?xml version="1.0" encoding="Shift_JIS" ?>
<package>
  <job>
    <script language="JScript"><![CDATA[
      // 1次元のJScript配列を、1次元のSafeArrayに変換する関数
      // http://www.imasy.or.jp/~hir/hir/tech/js_tips.html#safearray
      function JSArray2SafeArray(ar) {
        var dic = new ActiveXObject("Scripting.Dictionary");
        for (var i = 0; i < ar.length; i++){
          dic.add(i, ar[i]);
        }
        return dic.items();
      }

      // 1次元のJScript配列
      var arr = [1,3,6];

      // SafeArrayに変換
      var safeArray = JSArray2SafeArray(arr);
      printVBArray(new VBArray(safeArray));

      // デバッグ用：VBArrayを表示
      function printVBArray(vbArray) {
        for(var i=0; i<=vbArray.ubound(1); i++) {
          WScript.Echo("vbArray[" + i + "] = " + vbArray.getItem(i));
        }
      }
    ]]></script>
  </job>
</package>