In Textdatei nach Datum und Uhrzeit sortieren

[marabu]

Hallo pbk,

willkommen im Forum. Vielleicht kannst du davon was verwenden:

Delphi-Quellcode:

program txtsort;

{$APPTYPE CONSOLE}

uses
  Classes,
  SysUtils,
  Windows;

var
  sl: TStringList;
  i: integer;
  fs: TFormatSettings;

function CustomCompare(list: TStringList; index1, index2: integer): integer;
var
  dt1, dt2: TDateTime;
  s: string;
begin
  s := list[index1];
  dt1 := StrToDate(Copy(s, 1, 10), fs) + StrToTime(Copy(s, Length(s) - 4, 5), fs);
  s := list[index2];
  dt2 := StrToDate(Copy(s, 1, 10), fs) + StrToTime(Copy(s, Length(s) - 4, 5), fs);
  if dt1 < dt2 then Result := -1 else
  if dt1 > dt2 then Result := 1 else
  Result := 0;
end;

begin
  sl := TStringList.Create;
  sl.LoadFromFile(ChangeFileExt(ParamStr(0), '.txt'));
  GetLocaleFormatSettings(GetUserDefaultLCID, fs);
  fs.ShortDateFormat := 'dd.mm.yyyy';
  fs.ShortTimeFormat := 'hh:nn';
  fs.DateSeparator := '.';
  fs.TimeSeparator := ':';
  sl.CustomSort(CustomCompare);
  for i := 0 to sl.Count - 1 do
    WriteLn(sl[i]);
  ReadLn;
  sl.Free;
end.

Grüße vom marabu