|
[2397] Re2:辞書引きソフトDDをマクロでの件 | |
|
▽ 2002/10/21 (月) 19:43:22 げんた |
Kiさんが示してくれたマクロをVBScriptに移植してみました．
但しこれは次版(1.3.5.4)以降でのみ動作します．(GetSelectedStringが新規追加されるマクロ)
▼ここから下をddwin.vbsという名前で保存
' DDWinで現在位置の単語を検索
'
' 秀丸マクロの移植版
' Oct. 21, 2002 genta
Option Explicit
DIM word
word = Editor.GetSelectedString( 0 )
If word <> "" then
ddwin_search "外国語", word
end if
sub ddwin_search( group, word )
If right(word,3) = "ies" then
word=left(word,len(word)-3) & "y"
ElseIf right(word,4) = "ness" then
word=left(word,len(word)-4) & "*"
ElseIf right(word,3) = "ing" then
word=left(word,len(word)-3) & "*"
ElseIf right(word,3) = "est" then
word=left(word,len(word)-3) & "*"
ElseIf right(word,2) = "es" then
word=left(word,len(word)-2) & "*"
ElseIf right(word,4) = "pped" then
word=left(word,len(word)-4) & "p*"
ElseIf right(word,4) = "mmed" then
word=left(word,len(word)-4) & "m*"
ElseIf right(word,4) = "tted" then
word=left(word,len(word)-4) & "t*"
ElseIf right(word,4) = "gged" then
word=left(word,len(word)-4) & "g*"
ElseIf right(word,3) = "ied" then
word=left(word,len(word)-3) & "y*"
ElseIf right(word,2) = "ed" then
word=left(word,len(word)-2) & "*"
ElseIf right(word,2) = "er" then
word=left(word,len(word)-2) & "*"
ElseIf right(word,1) = "s" then
word=left(word,len(word)-1) & "*"
end if
Editor.ExecCommand( "C:\\Program Files\\DDwin\\ddwin.exe ,2," & group & ",g1," & word )
end sub
|
|