Datei auslesen, wenn String vorhanden ist koplette Zeile in TXT speichern

ProblemUser

Hallo,
ich suche ein Programm, das aus mehreren *.txt Dateien eine Zeile die immer mit dem gleichen Inhalt anfängt
die komplette Zeile in eine externe *.txt kopiert.
Also:
Name : Mustermann (das ist jetzt nur ein Beipiel)
Dann soll die ganze Zeile in ein anderes Dokument gespeichert erden, jedoch kann es sein, das in einer Datei mehrere Dieser Zeilen stehen
Grüße PU

**Der_Doc**

Also das funktioniert auf jedenfall.
erst musst du die Datei auslesen das funktioniert mit

[autoit]

FileRead

[/autoit]

Dann gibt es einige Möglichkeiten.
Einmal mit

[autoit]

StringRegExp
;oder
StringInStr

[/autoit]

MfG
Der_Doc

i2c

"ohne GUI"

[autoit]

#include <File.au3>
#include <array.au3>
Global $aLines
Global $aFiles[2] = [@ScriptDir & "\test.txt", @ScriptDir & "\test.ini"]

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

$sSearch = "Hallo"
$output = @ScriptDir & "\output.txt"

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

For $i = 0 To UBound($aFiles) - 1
_FileReadToArray($aFiles[$i], $aLines)
_ArrayDisplay($aLines)
If IsArray($aLines) Then
For $j = 1 To $aLines[0] Step 1
If StringLeft($aLines[$j], StringLen($sSearch)) = $sSearch Then
FileWriteLine($output, $aLines[$j])
EndIf
Next
EndIf
Next

[/autoit]

ProblemUser

Zu Der_Doc:
Das weiß ich selbst wie es geht, ahb aber aktuell wenig Zeit....
Zum Vorposter, danke das wär schonmal ein Anfang, jedoch sind das rund 100 Dateien mit verchiedenen Namen!
Grüße PU

i2c

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <array.au3>
Global $aLines

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

$folder = ''
$sSearch = ''
$output = ''
$aFiles = _FileListToArray($folder, "*", 1)
If $sSearch = '' Then
MsgBox(0, "", "Suchbegriff fehlt!")
Else
If IsArray($aFiles) Then
For $i = 1 To $aFiles[0]
_FileReadToArray($folder & "\" & $aFiles[$i], $aLines)
If IsArray($aLines) Then
For $j = 1 To $aLines[0] Step 1
If StringLeft($aLines[$j], StringLen($sSearch)) = $sSearch Then
FileWriteLine($output, $aLines[$j])
EndIf
Next
EndIf
Next
Else
MsgBox(0, "Abbruch", "Keine Dateien gefunden")
EndIf
EndIf

[/autoit]