AutoHotkey Community

URLDownloadToFile, http://pda.leo.org/?search=%clipboard%, LEOutput.txt
Found := False
Line =
Loop, Read, LEOutput.txt
  {
    IfInString, A_LoopReadLine, Unmittelbare Treffer
      {
       Line = %Line%%A_Tab%%A_LoopReadLine%
       Found := True
      }
    Else IfInString, A_LoopReadLine, Verben und Verbzusammensetzungen
      {
       Line = %Line%%A_Tab%%A_LoopReadLine%
       Found := True
      }
    Else IfInString, A_LoopReadLine, lieferte keine Treffer
      {
        MsgBox, Leo lieferte keine Ergebnisse
        Found := False
        break
      }
  }
FileDelete, LEOutput.txt

If Found
  {
    StringReplace, Line, Line, %A_Tab%,, All
    StringReplace, Line, Line,  ,, All
    StringReplace, Line, Line, Forumsdiskussion,, All
    StringReplace, Line, Line, ENGLISCH,, All
    StringReplace, Line, Line, DEUTSCH,, All
    StringReplace, Line, Line, .gif"></a></td, , All
    StringReplace, Line, Line, </tr>,`n, All
    StringReplace, Line, Line, </td>, %A_Tab%, All
    Loop
      {
        StringReplace, Line, Line, %A_space%%A_space%,%A_space%, All
        StringReplace, Line, Line, %A_space%`n,`n, All
        StringReplace, Line, Line, `n%A_space%,`n, All
        StringReplace, Line, Line, %A_Tab%`n,`n, All
        StringReplace, Line, Line, `n%A_Tab%,`n, All
        StringReplace, Line, Line, `n`n,`n, All
        StringGetPos, FirstPos, Line, <
        If ErrorLevel
            break
        StringGetPos, SecondPos, Line, >
        StringLen, Length, Line
        StringLeft, LineFront, Line, %FirstPos%
        StringRight, LineBack, Line, % Length - SecondPos - 1   ;%
        Line = %LineFront% %LineBack%
      }

    Text =
    Loop, Parse, Line , `n
       If A_LoopField is space
           Text = %Text%
       Else IfInString, A_LoopField , %A_Tab%
           Text = %Text%`n%A_LoopField%
       Else IfInString, A_LoopField , Link zu
           Text = %Text%
       Else
           Text = %Text%`n`n  %A_LoopField%`n

    MsgBox, Die Übersetzung gemäß LEO: %Text%
  }
Else
    MsgBox, Habe nichts in der Datei Leo gefunden,`nevtl. muss mein Admin die Suche in der Datei verfeinern.