VBScriptとJScriptを一緒に使う

一緒に使うといっても、それぞれタグで分ける必要があるけれど
拡張子がwsfという形式を使うと、VBScriptとJScriptの間で
変数を参照したり渡したり出来るようで驚いた。
遊んでて気付いたけれど、あれ、ひょっとしてこれ常識なの？まあいいや。
VBScriptにはJScriptにあるsortに相当するものが無いようで
Jscriptのsortを使いたい場合wsfとやらを使って
JScriptに値を渡してソートされた値を得ることが出来た。
逆にJScriptからVBscriptにも渡せるので、JScriptにはないVBScriptのtrimが使える。
だけど、上から順々に読み込みながら？実行するらしく
渡す時点でまだ出ていない関数には渡せないようだった。
ちなみにこのwsfはMakeExeでexeにも出来る。
MakeExeでexeにすると

<script language="vbscript" src="test.vbs"></script>

など外部のファイルを使ってる場合、exe後は外部ファイルは必要なくなった。
HTAでも同様な事が出来るけれど、MakeExeは残念ながらHTAには非対応だった。

jobのタグに名前（<job id="test1">のように）を付けて使い分けられるようで
分けて使いたい場合はコマンドラインでid名を指定する必要があるようだ。
指定がない場合は一番上のjobだけを実行するらしい。

"script control"やらを使うとwsfなどにしなくてもお互い呼べるようで
UWSCのサンプルにもあったけどなぜか私のPC（win98）ではダメだった。
これ書いてから知ったのだけど、どうやらwin98だとツールが必要のようで。
早く検索して調べりゃ良かった･･････まあいいや。
試しに書いたwsf。
<package> <job> <script language="vbscript"> set wss = createobject("wscript.shell") cd = wss.currentdirectory txt = "a,b,e,d,c" set wss = nothing function vbs_trim(str) vbs_trim = trim(str) end function </script> <script language="jscript"> //VBScriptの変数txtの"a,b,e,d,c"を改行区切りに換えてソート var mm = js_sort(txt, ",", "\n"); //VBScriptで得たカレントディレクトリを参照 mm = mm + "\n" + (cd + "（カレントディレクトリです）"); //VBScriptのvbs_trimに渡して両端のスペースを削除 mm = mm + "\n" + vbs_trim(" test "); WScript.echo(mm); function js_sort(str, x, z) { return str.split(x).sort().join(z); } </script> <script language="vbscript"> msgbox js_sort("c,b,a", ",", vbcr)'c b aをソートさせて表示 </script> </job> </package>
コメントの位置がおかしくエラーになっていたのを修正。
あとちょっと書き直した。
それと、jobが一つの場合、<package></package>はイラナイみたい。