aus 480 MB txt Datei, bestimmte Zeilen löschen lassen...

[LuckyStrike4life]

Morgen,
mal was ganz anderes.
Eine txt die 480 MB klein ist, enthält tausende Datensätze. Es handelt sich um GPS Daten, in der Form von X, Y und Z.

Mal ein kleiner Auszug:

Delphi-Quellcode:

         .00          .00      -300.00   0
  6000193.27   4526048.99        53.87  51
  6000193.75   4526047.31        53.87  51
  6000194.24   4526045.63        53.76  69
  6000194.72   4526043.96        53.82  60
  6000195.20   4526042.30        53.92  43
  6000195.69   4526040.61        53.84  39
  6000196.17   4526038.93        53.79  39
  6000196.66   4526037.26        53.79  43
  6000197.14   4526035.58        53.78  47
  6000197.63   4526033.90        53.81  39
         .00          .00      -300.00   0
         .00          .00      -300.00   0
         .00          .00      -300.00   0

Wenn jetzt an der 31sten Stelle bis zur 35sten "-300" steht, dann muss die Reie gelöscht werden.

Meine Überlegungen sehen so aus:

Delphi-Quellcode:

var tin, tout:Textfile;
    lese:String;
begin 
  AssignFile(tin, 'c:\kai.txt');     // Name der Datei ist kai, lasse sie damit Laden
  AssignFile(tout, 'c:\kaineu.txt'); // gebe hier Name und Pfad an, wo das Resultat dann hin soll
  Reset(tin);
  Rewrite(tout);
  while not Eof(tin) do
  begin
     ReadLn(tin, lese);
[...] // ab hier fehlts mir
  end;
  CloseFile(tout);
  CloseFile(tin);
end;

Also doch sehr schlecht...
Wie kann man das Problem lösen?