Moin-Moin.
Ich habe folgenden Script:
Spoiler anzeigen
$x = FileOpenDialog("Select a file.", @DesktopDir, "Text Files (*.txt)", 3)
$String = "Deutschland"
$Var = _FileFindString($x, $String)
For $xx = 0 To 2
MsgBox(0, "", $Var[$xx])
Next
Func _FileFindString($sPath, $sString)
Local $_Found
Local $_LineNumber
Local $_TimesFound = 0
Local $_Return[3]
$_FileOpen = FileOpen($sPath, 0)
$_FileRead = FileRead($_FileOpen)
$_Split = StringSplit($_FileRead, Chr(10))
For $_i = 1 To $_Split[0]
$_FileReadLine = FileReadLine($_FileOpen, $_i)
If StringInStr($_FileReadLine, $sString) Then
$_Found &= $_FileReadLine & @CRLF
$_LineNumber &= $_i & @CRLF
$_TimesFound += 1
EndIf
Next
If $_Found <> "" Then
$_Return[0] = $_LineNumber
$_Return[1] = $_TimesFound
$_Return[2] = $_Found
FileClose($_FileOpen)
Return $_Return
Else
FileClose($_FileOpen)
Return 0
EndIf
EndFunc
Wie bekomme ich den $_Return[2] (letzte angezeigte MsgBox) in eine Textdatei gespeichert.
Das Problem wird wohl auch werden, das die Textdatei selber, in der gesucht und die Daten rausgeschrieben werden sollen, schon 3,8 MB groß ist. Aber da werde ich ggf. viele kleine Dateien draus machen.
Danke für die lieben AW's und eine ruhige Nacht.
LG, Lina.