Считывание текстового файла сложной структуры, Работа с файлами Опции

[Atreides]

Уважаемые, столкнулся с такой непростой задачкой, как работа с текстовым файлом сложной структуры. Нужно считать с него коды станций, номера платежей, суммы и коды статей. И дату. Желательно в табличку запихнуть для удобства работы. Единственный вариант, который приходит в голову, это построчное считывание и анализ. Подскажите какими методами такое можно провернуть?

Сообщение отредактировано: Atreides - 29.01.2010 3:07

[volvo]

Безо всяких регэкспов:

procedure TForm1.ParseClick(Sender: TObject);
var
  Lst, Parsed: TStringList;
  i: integer;
  s: string;
begin
  Lst := TStringList.Create;
  try
    Lst.LoadFromFile('razsb.txt');
    for i := 0 to Pred(Lst.Count) do
    begin
      if Pos('ПО СТАНЦИИ', Lst.Strings[i]) > 0 then
      begin
        Parsed := TStringList.Create;
        ExtractStrings(
          ['|', ' '], [],
          PChar(
            StringReplace(
              StringReplace(Lst.Strings[i], 'ПО СТАНЦИИ', '', []),
              '  ', ' ', [rfReplaceAll])
          ),
          Parsed
        );
        Memo1.Lines.Add(Format('Код: %s, Сумма: %s',
                             [Parsed.Strings[0], Parsed.Strings[1]]));
        Parsed.Free;
      end;
    end;
  finally
    Lst.Free;
  end;

end;

На твоем файле из первого поста выдает в Memo1 вот такой результат: