Macro/投稿/4
をテンプレートにして作成
Land.to
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* 辞書引きソフトDDをマクロで [#q7ef50ed]
-ページ: [[Macro/投稿]]
-作者: [[すい]]
-カテゴリー: ppa
-投稿日: 2002-11-01 (金) 20:50:11
** メッセージ [#cb18d0c5]
#code(pascal){{
// 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) = 'ie...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-3,4) = 'ne...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-2,3) = 'in...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-2,3) = 'es...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-1,2) = 'es...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-3,4) = 'pp...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-3,4) = 'mm...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-3,4) = 'tt...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-3,4) = 'gg...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-2,3) = 'ie...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-1,2) = 'ed...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-1,2) = 'er...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-0,1) = 's'...
word := Copy(word,1,length(word)-...
;
// MessageBox(word,'',0); // for De...
// MessageBox( '"C:\Program Files\DDwin\dd...
S_ExecCommand ( '"C:\Program Files\DDwin\...
end;
end;
}}
----
#comment
終了行:
* 辞書引きソフトDDをマクロで [#q7ef50ed]
-ページ: [[Macro/投稿]]
-作者: [[すい]]
-カテゴリー: ppa
-投稿日: 2002-11-01 (金) 20:50:11
** メッセージ [#cb18d0c5]
#code(pascal){{
// 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) = 'ie...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-3,4) = 'ne...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-2,3) = 'in...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-2,3) = 'es...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-1,2) = 'es...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-3,4) = 'pp...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-3,4) = 'mm...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-3,4) = 'tt...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-3,4) = 'gg...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-2,3) = 'ie...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-1,2) = 'ed...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-1,2) = 'er...
word := Copy(word,1,length(word)-...
else if Copy(word,length(word)-0,1) = 's'...
word := Copy(word,1,length(word)-...
;
// MessageBox(word,'',0); // for De...
// MessageBox( '"C:\Program Files\DDwin\dd...
S_ExecCommand ( '"C:\Program Files\DDwin\...
end;
end;
}}
----
#comment
ページ名: