Listing Markierten text iM Web suchen

; ---------------------------------------------------------------------; Suchmenü anzeigen und markierten Text auf ausgewählter Webseite suchen ; geöffnet wird das Menü über die Menü-Taste oder F1 auf der Tastatur. ; ---------------------------------------------------------------------AppsKey::

F1::

{

A_Clipboard := "" ; Zwischenablage leeren

Send "^c" ; markierten Text ins Clipboard schieben

If ClipWait(0.5) ; warten, bis Text da

SuchMenü.Show() elseMsgBox "In der Zwischenablage gibt es keinen Text`nHaben Sie Text markiert?" }

; Menüeinträge in einer Map/einem Dictionary ablegen, zwei Zeichenketten bilden einen Eintrag suchmaschinen := Map("&1 Duden","https://www.duden.de/suchen/dudenonline/",

"&2 Deepl DE>EN","https://www.deepl.com/translator#de/en/", "&3 Deepl EN>DE","https://www.deepl.com/translator#en/de/", "&4 Wikipedia","https://de.wikipedia.org/wiki/",

"&5 Google","https://www.google.com/search?q=",

"&6 Youtube","https://www.youtube.com/results?search_query=", "&7 Google Maps","https://www.google.de/maps?q=" )

; Menü erzeugen, bei Auswahl Funktion "SuchMenüHandler" aufrufen SuchMenü := Menu()

For k,v in suchmaschinen

SuchMenü.Add(k,SuchMenüHandler)

; diese Funktion wird aufgerufen, wenn ein Menüpunkt ausgewählt wurde SuchMenüHandler(Punkt, Position, Menü) {

suchtext := StrReplace(A_Clipboard,"`r`n"," ") ; Zeilenumbrüche durch Leerzei

chen ersetzen

suchtext := Trim(suchtext) ; Leerzeichen links und rechts abschneiden (falls zu großzügig markiert)

Run(suchmaschinen[Punkt] . suchtext) ; und mit der ausgewählten Suchmaschine suchen

}