"нарезчик" в консольном приложении

[Panika]

Дан текстовый файл. В нем все данные из одной таблицы записаны в строчку и разделены " | ". Каждая таблица имеет свой id. Необходимо по этим id раскидать таблицы по разным текстовым файлам. Объем данных очень большой. И система должна быть полностью автоматизированной.
Теоритически я понимаю как это сделать, а вот в практике немного сложновато...столкнулась с этим впервые...
Помогите, плиз!!!

[Alex_FF]

id каким образом определяется?
не плохо было бы, если бы вы привели пример входных данных

[Panika]

id числовое.
1|22.10.2009|39|1|39|9013|13|37|0|1 2|118|149679|149679|0|0||21.10.2009 |23.10.2009|10:07|13|0|0|0|00:00|0| 0|0|0|0|0|0|0|0|149679|0|0|0|0|860 это id№1
2|9801|0|840|26.94|1|0.00|0|0|0||| это №2
и т.д.

[Alex_FF]

во входном файле id где записывается?
"очень большой объем данных" это какой? и какие ограничения на время работы программы?

[Panika]

первая цифра это id. дальше идут поля таблицы в строчном виде.
Очень большой это от 100 КБ. и таких данных будет очень много.
Время...по поводу времени ничего не сказано...главное чтобы преобразовывалось, т.к. эти данные будут использоваться в дальнейшем

[raxp]

т.е. в исходном файле в каждой строке есть набор данных с id всегда впереди и нужно раскидать строки с одним id каждую в свой файл? если id всегда идет первым до "|" в каждой строке, то перебирайте все строки, проверяя id через pos() до символа "|". Можно в цикле через readln, а можно и в stringlist загрузить.

[Alex_FF]

ну я так понимаю, что структура входного файла вот такая:
1 |данные
2 |данные
...
N |данные

тогда можно считывать по строкам, пока не достигнем конца файла, и зыписывать в файл, соответствующй номеру id строку с удаленным id

[Panika]

о stringlist даже понятия не имею)))
попробую через readln, спасибо!

[Panika]

да, такая структура.
ну теоритически я это понимаю...а вот с практической точки зрения не очень...раньше в консольном приложении не работала)))

[Alex_FF]

вот пример на Delphi:

program Project2;

{$APPTYPE CONSOLE}
{$S+}

uses
  SysUtils;

const
  Source = 'input.txt';

var
  S, Target: String;
  I, Index: Integer;
  FI, FT: Text;
begin
  Reset(FI, Source);
  while not EOF(FI) do
  begin
    ReadLn(FI, S);
    Index := Pos('|', S);
    Target := '';
    for I := 1 to Index - 1 do  // получам id - будем его использовать как имя файла
      Target := Target + S[I];
    Assign(FT, Target);
    {$I-}
    Rewrite(FT);
    {$I+}
    if IOResult = 0 then
    begin
      Delete(S, 1, Index - 1);
      WriteLn(FT, S);
      Close(FT);
    end;
  end;
end.