▼ げんたさん
> >サクラエディタでの作成文書で、選択した単語を辞書引きソフトのJammingに渡して、辞書の定義を調べることが可能になると便利なのですが、そういうことはできますでしょうか?どなたかご教示願えませんでしょうか。
> Jammingのマニュアルによれば,
> Jamming.exe -w"検索文字列" -f
> の形で実行すれば検索できるとのことですので,外部コマンド実行を含むマクロを作れば...
> と書いて思い出しましたが,ExpandParameterマクロで文字列を取得してそれを外部コマンド実行に渡す必要があるので標準のマクロでは出来なかったような気が...(変数が必要になるので)
> PPAを使ったマクロなら出来ると思います.
げんたさん
ありがとうございます。
もかさんからもアドバイスをいただき感謝しています。以前、げんたさんがお書きくださったプログラムをやっと見つけました。非常に使いやすいプログラムであったことを記憶しています。かなり前にコンピュータを変えたために見つけ出すに手間取ってしまいました。これをJamming用に変更することは可能でしょうか?
// DDWinで現在位置の単語を検索
//
// 秀丸マクロの移植版
// Oct. 21, 2002 genta
// ↑の PPA.DLL 移植版
// マクロファイルの拡張子は必ず .PPA にすること。PPA.DLL 必須。
var // 変数を確保する場所
word,group:String; // 文字変数を用意
begin
word := S_GetSelectedString(0);
group := '外国語';
if word <> '' then
begin
if Copy(word,length(word)-2,3) = 'ies' then
word := Copy(word,1,length(word)-3) + 'y'
else if Copy(word,length(word)-3,4) = 'ness' then
word := Copy(word,1,length(word)-4) + '*'
else if Copy(word,length(word)-2,3) = 'ing' then
word := Copy(word,1,length(word)-3) + '*'
else if Copy(word,length(word)-2,3) = 'est' then
word := Copy(word,1,length(word)-3) + '*'
else if Copy(word,length(word)-1,2) = 'es' then
word := Copy(word,1,length(word)-2) + '*'
else if Copy(word,length(word)-3,4) = 'pped' then
word := Copy(word,1,length(word)-4) + 'p*'
else if Copy(word,length(word)-3,4) = 'mmed' then
word := Copy(word,1,length(word)-4) + 'm*'
else if Copy(word,length(word)-3,4) = 'tted' then
word := Copy(word,1,length(word)-4) + 't*'
else if Copy(word,length(word)-3,4) = 'gged' then
word := Copy(word,1,length(word)-4) + 'g*'
else if Copy(word,length(word)-2,3) = 'ied' then
word := Copy(word,1,length(word)-3) + 'y*'
else if Copy(word,length(word)-1,2) = 'ed' then
word := Copy(word,1,length(word)-2) + '*'
else if Copy(word,length(word)-1,2) = 'er' then
word := Copy(word,1,length(word)-2) + '*'
else if Copy(word,length(word)-0,1) = 's' then
word := Copy(word,1,length(word)-1) + '*'
;
// MessageBox(word,'',0); // for Debug
// MessageBox( '"C:\Program Files\DDwin\ddwin.bat" ,2,' + group + ',g1,' + word ,'',0); // for Debug
S_ExecCommand ( '"C:\Program Files\DDwin\ddwin.exe" ,2,' + group + ',g1,' + word , 0 );
end;
end;