Сортировка по дате ((((

[bakanaev]

Приветствую. Есть txt файл с содержимым

halloween_85 ( 243 ) SELLER 12.11.12 21:04
adam ( 2731 ) SELLER 18.07.12 19:07
sara ( 10 ) SELLER 10.10.12 07:12
nicol ( 563 ) SELLER 14.11.12 04:06
jams ( 6095 ) SELLER 11.10.11 22:04

Требуется отсортировать строки по дате (от большей к меньшей). Как можно такое реализовать? Может есть готовые варианты?

[саша40]

Сообщение от bakanaev

Приветствую. Есть txt файл с содержимым

halloween_85 ( 243 ) SELLER 12.11.12 21:04
adam ( 2731 ) SELLER 18.07.12 19:07
sara ( 10 ) SELLER 10.10.12 07:12
nicol ( 563 ) SELLER 14.11.12 04:06
jams ( 6095 ) SELLER 11.10.11 22:04

Требуется отсортировать строки по дате (от большей к меньшей). Как можно такое реализовать? Может есть готовые варианты?

Это как сказать. Ведь сначала надо этот файл прочитать, потом выделить из общей строки дату и отсортировывать. Ваще это возможно.

[Serge_Bliznykov]

по сути Саша прав.
Берите TStringList, грузите весь свой текстовый файл в этот объект методом LOadFromFile,
сортируйте строки (любым удобным методом, например, обменами).
Сохраняйте полученный список методом SaveToFile

профит.

[bakanaev]

Сообщение от Serge_Bliznykov

сортируйте строки (любым удобным методом, например, обменами).

А что за обмены?

[Serge_Bliznykov]

[url=http://ru.wikipedia.org/wiki/%D0%9C%D0%B5%D1%82%D0%BE%D0%B4%D1%8 B_%D1%81%D0%BE%D1%80%D1%82%D0%B8%D1 %80%D0%BE%D0%B2%D0%BA%D0%B8#.D0.A1. D0.BF.D0.B8.D1.81.D0.BE.D0.BA_.D0.B 0.D0.BB.D0.B3.D0.BE.D1.80.D0.B8.D1. 82.D0.BC.D0.BE.D0.B2_.D1.81.D0.BE.D 1.80.D1.82.D0.B8.D1.80.D0.BE.D0.B2. D0.BA.D0.B8]Алгоритм сортировки (Список алгоритмов сортировки)

я имел в виду простейшим метод сортировки Сортировка пузырьком:

Сортировка пузырьком
[править]
Материал из Википедии — свободной энциклопедии
Перейти к: навигация, поиск

Сортировка простыми обменами, сортиро́вка пузырько́м (англ. bubble sort) — простой алгоритм сортировки. Для понимания и реализации этот алгоритм — простейший, но эффективен он лишь для небольших массивов. Сложность алгоритма: O(n²).

Алгоритм считается учебным и практически не применяется вне учебной литературы, вместо него на практике применяются более эффективные алгоритмы сортировки. В то же время метод сортировки обменами лежит в основе некоторых более совершенных алгоритмов, таких как шейкерная сортировка, пирамидальная сортировка и быстрая сортировка.

А там уже смотрите сами, какой метод сортировки Вам больше подходит..

применительно к данному вопросу и TStringList, Вам нужно написать функцию, которая возвращает ДАТУ (или, хотя бы строчку вида YYYYMMDD) из строки (методом парсинга строки, выделения даты)
дальше пишете примерно так:

program SortTStringList;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

function GetDateFromStr(s : string): string;  // внимание: это просто заглушка для примера работы!
begin
  Result := copy(s,5,4);
end;
var TS : TStringList;
 i,j : integer;
begin
  TS := TStringList.Create;
  TS.Append('ddd 2012 ddd ');
  TS.Append('zzz 2010 ddd ');
  TS.Append('azz 2011 aadsdsad d ');

  {sort list}
  for i:=0 to TS.Count-2 do
    for j:=i+1 to TS.Count-1 do
      if GetDateFromStr(TS.Strings[i])< GetDateFromStr(TS.Strings[j]) then
         TS.Exchange(i,j);

  for I := 0 to TS.Count - 1 do
     WriteLn(TS.Strings[i]);
  Readln;
  FreeAndNil(TS);
end.

собственно сортировку в коде я выделил

всё. список отсортирован!

[bakanaev]

А, вон вы про что)) Ну я в университете проходил этот метод)) Давно конечно было. Спасибо что напомнили)!

[Прик]

А вот еще простенький вариант (сортировку отдаем TStrings):

procedure TForm1.Button3Click(Sender: TObject);
var
  SL1, SL2, SLD : TStringList;
  I, K, L : Integer;
begin
  SL1 := TStringList.Create;  //исходные строки
  SL2 := TStringList.Create;  //отсортированные строки
  SLD := TStringList.Create;  //даты для сортировки
  try
//    SL1.LoadFromFile(<имя исходного файла>);  //загрузка исходного файла
    SL1.Assign(Memo1.Lines);  //в этом примере загрузка из мемо
    SLD.Sorted := True;

    L := Length('SELLER ');
    //извлечение даты из строк
    for I := 0 to SL1.Count-1 do begin
      K := Pos('SELLER', SL1[I]);
      if K = 0 then continue;
      SLD.AddObject(Copy(SL1[I], K+L+6, 2)+Copy(SL1[I], K+L+3, 2)+Copy(SL1[I], K+L, 2),
                    TObject(I))
    end;

    for I := 0 to SL1.Count-1 do begin
      SL2.Add(SL1[Integer(SLD.Objects[I])]);
    end;
    Memo2.Lines.Assign(SL2);  //в примере отсортированные строки смотрим в мемо
//    SL2.SaveToFile(<имя файла>);
  finally
    SLD.Free;
    SL1.Free;
    SL2.Free;
  end;
end;

Работоспособный

[Serge_Bliznykov]

Прик, ну да, +1!

единственное, я бы Sorted := true не делал, а вызвал метод .Sort после добавления всех необходимых данных.
Мне кажется (возможно, ошибочно!) что так будет быстрее, чем заставлять при добавлении каждого объекта сортировать список..

[0987]

в последнем варианте будет ошибка, если в SLD даты для сортировки окажутся одинаковыми, к примеру совпадут в разных строках. Устранить ошибку поможет перенос строки: SLD.Sorted := True; в место после цикла создания объектов:
SLD.AddObject.......
end;