uwsファイル用のコマンドランチャもどきのuwsファイルです。

使い方は、手持ちのuwsファイルが入っているディレクトリの親ディレクトリにこのuwsファイルを置きます。

例えば
　C:\aaa\bbb\test.uws　だと
　C:\aaa\下記内容のuwsファイル という具合。

関連付けされてない場合はショートカットを作って、パス欄に

　ＵＷＳＣのフルパス "下記内容のuwsファイルのフルパス"

と記入してダブルクリックで起動できます。

ＵＷＳＣでこのuwsを読み込むと、インプットボックスが出るので
test.uwsだと
　t
　te
　te t
などの入力で起動できます。
他に候補がある場合は、popupmenuが出ます。
パラメーターがある場合は
　te/a
二つ以上ある場合
　te/a b c
という感じで。

launch_uws.chkdir(get_cur_dir) launch_uws.inputkey() class launch_uws 　　hashtbl dir=hash_sort 　　dim uwsc=get_uwsc_dir+"\uwsc.exe"+chr(32)+chr(34) 　　procedure chkdir(path) 　　　　for a=0 to getdir(path,chr(92),true)-1 　　　　　　sd=path+chr(92)+getdir_files[a] 　　　　　　dir[sd]=chgmoj(chgmoj(sd,get_cur_dir+chr(92),"["),chr(92)," / ")+"] " 　　　　　　chkdir(sd) 　　　　next 　　fend 　　procedure inputkey() 　　　　kp=input("KeyWord/Parameter") 　　　　　　if kp=empty then exitexit 　　　　　　if pos("/",kp)=0 then chkuws(chkkey(kp)) else chkuws(chkkey(token("/",kp)),chr(32)+kp) 　　fend 　　function chkkey(kw,key="") 　　　　while length(kw)>0 　　　　　　key=key+chr(42)+token(chr(32),kw,true) 　　　　wend 　　　　result=key 　　fend 　　procedure chkuws(key,param="") 　　　　hashtbl uws=hash_sort 　　　　for c=0 to length(dir)-1 　　　　　　dp=dir[c,hash_key] 　　　　　　for d=0 to getdir(dp,key+"*.uws",true)-1 　　　　　　　　upath=dp+chr(92)+getdir_files[d] 　　　　　　　　uws[upath]=dir[c,hash_val]+chgmoj(getdir_files[d],".uws","") 　　　　　　next 　　　　next 　　　　ifb length(uws)=0 　　　　　　msgbox("Not File");inputkey() 　　　　elseif length(uws)=1 　　　　　　exec(uwsc+uws[0,hash_key]+chr(34)+param);exitexit 　　　　else 　　　　　　x=popupmenu(uws,0,0) 　　　　　　　　if x=-1 then inputkey() 　　　　　　exec(uwsc+uws[x,hash_key]+chr(34)+param);exitexit 　　　　endif 　　fend endclass