Hier ist noch ein Beispiel, wie man ein Wort samt dem beinhaltenden Satz per StringRegExp ausliest. Der Post ist schon ein bisschen angestaubt (Aus nem anderen Forum, da man Links ja ungerne sieht), und nur schnell rüberkopiert, deswegen gibts mit sehr hoher Wahrscheinlichkeit die Möglichkeit, vieles kürzer zu schreiben. Hab nicht wirklich drübergeschaut, da ich lang genug mit suchen beschäftigt war, und jetzt weg muss
Spoiler anzeigen
Hier ein Beispiel für GUICtrlRead:
Spoiler anzeigen
#include <GuiEdit.au3>
$hGUI = GUICreate("")
$hEdit = GUICtrlCreateEdit( _
"Er hörte leise Schritte hinter sich. Das bedeutete " & @CRLF & _
"nichts Gutes. Wer würde ihm schon folgen, spät in der " & @CRLF & _
"Nacht und dazu noch in dieser engen Gasse mitten im übel " & @CRLF & _
"beleumundeten Hafenviertel? Gerade jetzt, wo er das " & @CRLF & _
"Ding seines Lebens gedreht hatte und mit der Beute " & @CRLF & _
"verschwinden wollte! Hatte einer seiner zahllosen Kollegen " & @CRLF & _
"dieselbe Idee gehabt, ihn beobachtet und abgewartet, " & @CRLF & _
"um ihn nun um die Früchte seiner Arbeit zu erleichtern? " & @CRLF & _
"Oder gehörten die Schritte hinter ihm zu einem der " & @CRLF & _
"unzähligen Gesetzeshüter dieser Stadt, und die stählerne " & @CRLF & _
"Acht um seine Handgelenke würde gleich zuschnappen? " & @CRLF & _
"Er konnte die Aufforderung stehen zu bleiben schon " & @CRLF & _
"hören. Gehetzt sah er sich um. Plötzlich erblickte " & @CRLF & _
"er den schmalen Durchgang. Blitzartig drehte er sich " & @CRLF & _
"nach rechts und verschwand zwischen den beiden Gebäuden. " & @CRLF & _
"Beinahe wäre er dabei über den umgestürzten Mülleimer " & @CRLF & _
"gefallen, der mitten im Weg lag. Er versuchte, sich " & @CRLF & _
"in der Dunkelheit seinen Weg zu ertasten und erstarrte: " & @CRLF & _
"Anscheinend gab es keinen anderen Ausweg aus diesem " & @CRLF & _
"kleinen Hof als den Durchgang, durch den er gekommen" & @CRLF & _
"war.", 20, 20, 360, 320)
$hInput = GUICtrlCreateInput("Suche nach...", 20, 360, 260, 20)
$hButton = GUICtrlCreateButton("Suchen", 300, 360, 70, 20)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hButton
$iPos = StringInStr(GUICtrlRead($hEdit), GUICtrlRead($hInput))
If $iPos Then
$aTmp = StringRegExp(GUICtrlRead($hEdit), "(?i)(?<=^|[\!\.\?])[^\?\.\!]*" & GUICtrlRead($hInput) & "[^\?\.\!]*[\?\.\!]", 3)
If IsArray($aTmp) Then
MsgBox(0, "", _
"Gefunden, an der Position " & $iPos & @CRLF & @CRLF & _
"Innerhalb des folgenden Satzes: " & @CRLF & $aTmp[0])
Else
MsgBox(0, "", "Gefunden, an der Position " & $iPos)
EndIf
Else
MsgBox(0, "", "Leider nicht gefunden")
EndIf
EndSwitch
WEnd
Und hier eines für _IEBodyReadHTML/_IEBodyReadText.
Spoiler anzeigen
#include <IE.au3>
$hGUI = GUICreate("", 240, 90)
$hInput = GUICtrlCreateInput("Suchen nach...", 20, 20, 200, 20)
$hButton = GUICtrlCreateButton("Auf zufälliger Wiki Seite suchen", 20, 50, 200, 20)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hButton
$oIE = _IECreate("http://de.wikipedia.org/wiki/Spezial:Zuf%C3%A4llige_Seite")
$iPosHTML = StringInStr(_IEBodyReadHTML($oIE), GUICtrlRead($hInput))
$iPosTEXT = StringInStr(_IEBodyReadText($oIE), GUICtrlRead($hInput))
MsgBox(0, "", "Im Text: " & $iPosTEXT & @CRLF & "Im Quelltext: " & $iPosHTML)
$aTmp = StringRegExp(_IEBodyReadText($oIE), "(?i)(?<=^|[\!\.\?])[^\?\.\!]*" & GUICtrlRead($hInput) & "[^\?\.\!]*[\?\.\!]", 3)
If IsArray($aTmp) Then MsgBox(0, "", "Im Text in folgendem Satz gefunden: " & @CRLF & $aTmp[0])
$aTmp = StringRegExp(_IEBodyReadHTML($oIE), "(?is)<P>.*?" & GUICtrlRead($hInput) & ".*?</P>", 3)
If IsArray($aTmp) Then MsgBox(0, "", "Im Quelltext in folgendem Abschnitt gefunden: " & @CRLF & $aTmp[0])
_IEQuit($oIE)
EndSwitch
WEnd