Spalte in Datei schreiben mit einem Suchbegriff

    Guten Mittag Com,

    mich plagt mal wieder eine,für mich nicht lösbare, AutoIt frage. Ich möchte eine Txt Datei auslesen in dem ich in die Inputbox ein Suchbegriff eingebe. Dann soll er die Line wo das gefunden wurde in eine neue txt datei schreiben. Nur ich komme da nicht weiter, wo er die Line vom Suchbegriff erhalten soll. Die auslesende Txt Datei hat ein Format von: Http:\\wwww.example.de Username Passwort. Das jeweils in einer Line. So kann ich meine Passwörter besser finden.

    [autoit]

    #cs ----------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit]

    AutoIt Version: 3.3.6.1
    Author: SklavenTrieb

    [/autoit][autoit][/autoit][autoit]

    Script Function:
    Template AutoIt script.

    [/autoit][autoit][/autoit][autoit]

    #ce ----------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit]

    ; Script Start - Add your code below here

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("String-Search", 202, 156, 262, 164)
    $Datei = GUICtrlCreateMenu("&Datei")
    $oeffnen = GUICtrlCreateMenuItem("Öffnen", $Datei)
    $Group1 = GUICtrlCreateGroup("Stichwort", 8, 8, 185, 89)
    $Input1 = GUICtrlCreateInput("", 16, 48, 169, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Button1 = GUICtrlCreateButton("Search", 56, 104, 75, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $oeffnen
    $oeffnername = FileOpenDialog("Bitte zu öffnende Datei wählen:",@DesktopDir,"Textdokument(*.txt)",16,"Log.txt")
    Case $Button1
    $auslese = FileRead($oeffnername)
    $suchstring = GUICtrlRead($Input1)
    If StringInStr($auslese,$suchstring) Then
    FileWrite("Ausgabe.txt",$suchstring)
    Else
    MsgBox(0,"X","Es wurde nichts gefunden")
    EndIf
    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit][/autoit]

    Danke im Vorraus

    Spoiler anzeigen
    [autoit]

    Case $Button1
    Dim $auslese[1]
    _FileReadToArray($oeffnername, $auslese)
    $suchstring = GUICtrlRead($Input1)
    For $i = 1 To $auslese[0]
    If StringInStr($auslese[$i],$suchstring) Then
    FileWriteLine("Ausgabe.txt",$auslese[$i])
    EndIf
    Next

    [/autoit]