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?