Zitat von
capo:
Hallo
so mach ich das nun aber es sind immer noch doppelte Einträge vorhanden.
gruss capo
Die werden dann nicht 100%ig gleich sein...
ggf. mal
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
fd1,fd2 : Textfile;
S,Last : string;
begin
assignfile(fd1,'C:\logfile.txt');
assignfile(fd2,'C:\logfile.neu');
reset(fd1);
rewrite(fd2);
Last := '';
while not(eof(fd1)) do
begin
readln(fd1,S);
if (trim(S)<>'') and (uppercase(S) <> LAST) then
begin
writeln(fd2,S);
Last := uppercase(S);
end;
end;
Closefile(fd2);
Closefile(fd1);
delete(fd1);
rename(fd1,'C:\logfile.txt');
end;
Frank