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

前にUWSCでOTBEditで外部プログラムを起動を書いたが、今回はそのVBscript版。

設定方法はUWSC版とほぼ一緒で、下記のvbsファイルと同じディレクトリに"app.ini"を作成する。
（名前を変えたい場合、11行目の"app.ini"を変更）
そのiniファイルに

メモ帳/notepad
てすと/C:\test\test.exe

選択するときに表示させる名前とパスを"名前/パス"という具合に"/"で区切る。
表示させる名前には"\"や"/"など、フォルダ名にできない文字はペケ。

exeに変換するとうまく動作しないので、vbsのまま使用。
OTBEditのオプションの設定でのパスは

wscript.exe "下記vbsのパス"

wscript.shellのrunにしたのは、vbsなども関連付けで起動できるから。
UWSCでいうSLCTBOXの替わりに、フォルダツリーのダイアログを強引に利用。
このvbsファイルと同じディレクトリに、"キャンセル"という名前のフォルダを置いておくと削除してしまうので注意。
option explicit dim sfo,wss,dic dim cd,cdir,app,app_sp,app_name,app_f,d set sfo=createobject("scripting.filesystemobject") set wss=createobject("wscript.shell") cd=sfo.getparentfoldername(wscript.scriptfullname) cdir=sfo.buildpath(cd,"キャンセル") if sfo.folderexists(cdir) then sfo.deletefolder(cdir) sfo.createfolder(cdir) on error resume next app=split(sfo.opentextfile(sfo.buildpath(cd,"app.ini")).readall,vbnewline) if err.number=0 then set dic=createobject("scripting.dictionary") for d=0 to ubound(app) app_sp=split(app(d),"/") app_name=app_sp(0) dic.add lcase(app_name),app_sp(1) app_f=sfo.buildpath(cdir,app_name) if sfo.folderexists(app_f)=false then sfo.createfolder(app_f) next wss.run(chr(34)&dic.item(slctbox)&chr(34)&chr(32)&chr(34)&wscript.arguments.item(0)&chr(34)) end if set sfo=nothing set wss=nothing set dic=nothing function slctbox() dim bff set bff=createobject("shell.application").browseforfolder(0,"起動するプログラムを選択",&h40,cdir) sfo.deletefolder(cdir) if not bff is nothing then slctbox=lcase(bff) else wscript.quit if bff="キャンセル" then wscript.quit set bff=nothing end function
このような機能が付いている他のエディタに乗り換えればいいだけの話なのだが
有名、無名、色々なフリーのエディタを試した結果、動作、機能共に秀逸だったのがOTBEdit。
自分にとって不足しいている機能をスクリプトで補ってまでも使い続けたいのである。

追記
関連付けされていないuwsファイルに渡したい時は

uwsc.exe "***.uws"

と設定ファイルでのパスをそれぞれフルパスで記入。
uwsのパスだけダブルクォートで括ったら動作した。