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も潰れてしまうが
このスクリプトでブラウザのパスを設定すれば問題ない。(ワンクッション入ってしまうが)