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
48
49
50
51
| | //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.exe" ,2,' + group + ',g1,' + word , 0 );
//Jamming
S_ExecCommand('D:\\Jamming\\Jamming.exe '-w"$C"' '-m"語尾補正"' '-f'', 0);
end;
end;
|