Macro/投稿/32
をテンプレートにして作成
Land.to
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* 辞書引きソフトのJammingを呼び出し [#l574008a]
-ページ: [[Macro/投稿]]
-作者: [[げんた]]
-カテゴリー: ppa
-投稿日: 2005-02-06 (日) 14:10:41
** メッセージ [#ae5c3da7]
#code(pascal){{
//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) + '*'
;
//DDwin
//S_ExecCommand ( '"C:\Program Files\DDwin\ddwin....
//Jamming
S_ExecCommand('D:\\Jamming\\Jamming.exe '-w"$C"' ...
end;
end;
}}
----
#comment
終了行:
* 辞書引きソフトのJammingを呼び出し [#l574008a]
-ページ: [[Macro/投稿]]
-作者: [[げんた]]
-カテゴリー: ppa
-投稿日: 2005-02-06 (日) 14:10:41
** メッセージ [#ae5c3da7]
#code(pascal){{
//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) + '*'
;
//DDwin
//S_ExecCommand ( '"C:\Program Files\DDwin\ddwin....
//Jamming
S_ExecCommand('D:\\Jamming\\Jamming.exe '-w"$C"' ...
end;
end;
}}
----
#comment
ページ名: