Hi,
ich habe eine rießige Datei, rand-voll mit allen möglichen Informationen, von der ich nur Zeilen, in der ein bestimmter String enthalten ist, in eine neue Datei kopiere...
Bsp:
Originaldatei:
Delphi-Quellcode:
Name: Mustermann
Vorname: Max
Name: Irgendwer
Vorname: Inge
Name: Y
Vorname: X
...
Zu suchender String: (Groß- und Kleinschreibung soll beachtet werden!)
'Name:'
Ausgabedatei:
Delphi-Quellcode:
Name: Mustermann
Name: Irgendwer
Name: Y
...
Wie kann ich das anstellen?
Delphi-Quellcode:
procedure PurgeFile(MyFile: String; PurgeID: String); // MyFile = Originaldatei; PurgeID = Zu suchender String
var file1, file2: textfile;
s: String;
being
AssignFile(file1, MyFile);
AssignFile(file2, 'Purged.txt');
Reset(file1);
Rewrite(file2);
while not EoF(file1) do
begin
ReadLn(file1, s);
if s ?????? then // Prüfen ob "PurgeID" in "s" vorhanden ist
WriteLn(file2, s);
end;
CloseFile(file1);
CloseFile(file2);
end;