Zitat von
capo:
So dauert das eine Ewigkeit:
Das kann ich mir vorstellen...
Hast Du 160MB Platz?
Dann so:
Delphi-Quellcode:
var
fd1,fd2 : Textfile;
S,Last : string;
begin
assignfile(fd1,'logfile.txt');
assignfile(fd2,'logfile.neu');
reset(fd1);
rewrite(fd2);
Last := '';
while not(eof(fd1)) do
begin
readln(fd1,S);
if (trim(S)<>'') and (S <> LAST) then
writeln(fd2,S);
Last := S;
end;
Closefile(fd2);
Closefile(fd1);
deletefile(fd1);
rename(fd2,'logfile.txt');
end;
Untested...QuickandDirty.. NoErrorcheck
Schreibmal wieviel schneller es war!
Frank
