Macro/投稿/3 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• Macro/投稿/3 へ行く。

* 辞書引きソフトDDをマクロで [#tbdc0f5d]
-ページ: [[Macro/投稿]]
-作者: [[げんた]]
-カテゴリー: vbs
-投稿日: 2002-10-21 (月) 19:43:22

** メッセージ [#k20d4fc9]
#code(vbscript){{
' 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 , "0"
        ''Editor.ExecCommand( "C:\\Program Files\\DDwin\\ddwin.exe ,2," & group & ",g1," & word )
end sub
}}

----

#comment