VBScript で JavaScript っぽい Array を使う

id:dharry:20091207 を見て知ったんですが、VBS の Array って push や pop すら無いのね、、、で、最近、ScriptControl を使って JScript 経由で VBS から JSON をパースする方法を知って「コレ使えば何でもできるんじゃないか？」と思ったので、VBS から JScript の Array を使うサンプルコードを書いてみました。

Set sc = CreateObject("ScriptControl")
sc.Language = "JScript"

Set xs = sc.eval("new Array()")
xs.push("a")
xs.push("b")
WScript.Echo xs.length 
'=> 2

For Each x In xs
  WScript.Echo x
Next
'=> a
'=> b

xs.reverse()
WScript.Echo xs.join(",")
'=> b,a

Set ys = sc.eval("new Array()")
ys.push("d")
ys.unshift("c")
Set xs = xs.concat(ys)
WScript.Echo xs.join(",")
'=> b,a,c,d

xs.sort()
WScript.Echo xs.slice(1,3).join(",")
'=> b,c

つか、JavaScript っぽい Array じゃなくてまんま JavaScript でした。マリー・アントワネットさんも昔、VBScript がダメなら JScript を使えばいいじゃない！とか言ってた気がしますんで皆で JScript を使いましょう