Einzelnen Beitrag anzeigen

Mirco

Registriert seit: 7. Mai 2006
71 Beiträge
 
#25

Re: Für jeden Tag eine Datei erzeugen

  Alt 16. Jun 2006, 16:17
Hallo...
ich hab noch eine Bitte.
Kann mir jemand diesen Quelltext kommentieren.
Ich würde gerne verstehen was da genau passiert.
Zum Beispiel würde ich gerne alle doppelten Zeilen aus der Textdatei entfernen.
Verwende dafür folgenden Source:
Delphi-Quellcode:
function doppeltweg(datei:string):longword;
var m1,m2:longword;
sl:TStringlist;
begin
sl:=TStringlist.Create;
sl.loadfromfile(datei);
m1:=sl.count;
sl.sorted:=true;
sl.loadfromfile(datei);
m2:=sl.count;
result:=m1-m2;
sl.savetofile(datei);
sl.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
doppeltweg('c:\test.txt');
end;
Nun weiß ich nicht welchen Dateinamen ich dem Code unten eingeben muss.
Unten steht ja
WriteToLog('c:\logs\log_', Edit1.Text, LastLog, ListBox1.Items);
und um die doppelten Zeilen wegzubekommen muss ich ja folgendes machen:
doppeltweg('c:\test.txt');




Delphi-Quellcode:
uses
  Math;

const
  myDateFormat = 'yyyy-mm-dd';
  myTimeFormat = 'HH:mm';

function LogFileName(const ABaseName: string; ADateTime: TDateTime): string;
begin
  Result := ABaseName + '_' + FormatDateTime(myDateFormat, ADateTime) + '.txt';
end;

procedure WriteToLog(const aLogBase, aLogText: string; aLastLog: TDateTime;
  aStrings: TStrings = NIL);
var
  LogName: string;
  Mode: Cardinal;
  LogFile: TFileStream;
  LogLine: string;
  LogTime: TDateTime;
begin
  LogTime := now;
  LogLine := FormatDateTime(Format('%s %s', [myDateFormat, myTimeFormat]), LogTime) +
    ' ' + aLogText;
  LogName := LogFileName(aLogBase, LogTime);
  ForceDirectories(ExtractFilePath(LogName));
  Mode := IfThen(FileExists(LogName), fmOpenWrite, fmCreate);
  LogFile := TFileStream.Create(LogName, Mode);
  try
    LogFile.Position := LogFile.Size;
    LogFile.Write(LogLine[1], Length(LogLine));
    LogFile.Write(sLineBreak, 2);
  finally
    LogFile.Free;
  end;
  if Assigned(aStrings) then
  begin
    if Trunc(LogTime) > Trunc(aLastLog) then
    begin
      aStrings.Clear;
    end;
    aStrings.Add(LogLine);
  end;
  aLastLog := LogTime;
end;

// Demo Aufruf
procedure TDemoForm.btn_testClick(Sender: TObject);
var
  LastLog : TDateTime;
begin
  WriteToLog('c:\logs\log_', Edit1.Text, LastLog, ListBox1.Items);
end;
Mirco Hallenga
  Mit Zitat antworten Zitat