OTBEditで外部プログラムを起動

以前、ファイルを外部ツールに渡すは拡張子を判別して起動させていたが
今回のは選択したツールで編集中のファイルを開くuwsファイル。
vbsでは難しいのでUWSCにした。
このuwsファイルと同じディレクトリに"app.txt"を作成（名前と拡張子は変更可）
そこに外部ツールのフルパスを改行区切りで記入。
例）

notepad
C:\aaa\bbb\ccc.exe
C:\ddd\eee\fff.exe

登録できるのはslctboxの都合上、30（31？）個まで。
popupmenuに替えれば沢山登録できるけど、あえてslctboxを使用。
前回と同様、OTBEditのオプションのネットエスケープかIEのパス欄に

uwsc.exe "xxx.uws"

のようにuwscのパスと半角空けてこの↓uwsファイルのパスを記入（Pro版だったらexeにするといいかも）

hashtbl app
sfo = createoleobj("scripting.filesystemobject")
open = fopen("app.txt")//設定ファイルの名前
    for i = 1 to fget(open, - 1)
        fpath = fget(open, i)
        app[fpath] = sfo.getbasename(fpath)
    next
fclose(open)
x = slctbox(slct_btn, 0, 0, 0,"ツールを選択", app)
    if x < 0 then exit
exec(app[logn(2, x), hash_key] + chr(32) + chr(34) + param_str[0] + chr(34))

前回のも使用するとネットエスケープもIEも潰れてしまうが
このスクリプトでブラウザのパスを設定すれば問題ない。（ワンクッション入ってしまうが）