Macro/投稿/4

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F4


Top > Macro > 投稿 > 4

辞書引きソフトDDをマクロ

  • ページ: Macro/投稿
  • 作者: すい?
  • カテゴリー: ppa
  • 投稿日: 2002-11-01 (金) 20:50:11

メッセージ

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
// 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;


URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2006-07-29 (土) 23:29:05 (4283d)