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

[Alex_FF]

могу привести довольно простое решение этой проблеммы, но скажите мне, в каком диапазоне находится id?

и возможно ли перезаписывать имеющиеся файлы, или нужно их сохранять?

[Serge_Bliznykov]

ох.. самый простой вариант - дважды пройтись по файлу, первый раз удаляя существующие текстовые файлы, имена которых совпадают с ID

program Razor2;

uses DOS;
const
  Source = 'input.txt';

function FileExists(FileName : string; FileAttr : word ) : boolean;
var
  FileParameters : SearchRec;
begin
  FindFirst(FileName,FileAttr,FileParameters);
  if (DosError = 0)
    then
      FileExists := True
    else
      FileExists := False;
end;


var
  S, Target: String;
  Index: Integer;
  FI, FT: Text;
begin
  Assign(FI,Source);
  Reset(FI);
  {первый цикл чтения - удаляем все существующие файлы <id>.txt}
  while not EOF(FI) do
  begin
    ReadLn(FI, S);
    Index := Pos('|', S);
    if Index > 0 then begin
      Target := Copy(S,1, Index-1) + '.txt';
      if FileExists( Target, AnyFile) then begin
         Assign(FT, Target);
         Erase(FT)
      end;
    end;
  end;
  Close(FI); {закрыли исходный файл}

  {повторно открыли исходный файл}
  Reset(FI);
  while not EOF(FI) do
  begin
    ReadLn(FI, S);
    Index := Pos('|', S);
    if Index <= 0 then WriteLn('Ошибка во входном файле - не найден разделитель |')
    else begin
      Target := Copy(S,1, Index-1) + '.txt';
      Assign(FT, Target);

      if FileExists(Target, AnyFile) then
        Append(FT)
       else
        Rewrite(FT);


      Delete(S, 1, Index - 1);
      WriteLn(FT, S);
      Close(FT);
    end
  end;
end.

[Alex_FF]

1) ну никакого uses Dos конечно быть не может, т. к. в Delphi такого нет, а на паскале максимальная длина строки типа String равна 255, а учитывая, что текст "большой" и таблицы "большие", то может получиться потеря данных.
2) если у нас нет прав на удаление существующего файла, или если он имеет одновременно атрибуты System и ReadOnly? удалить ваша программа его не сможет, и, как следствие, ничего хорошего (кроме Error5: File access denied) от её выполнения мы не получим...
3) можно добавить обработку ошибок для описанного в п.2, но если нам попался файл, который мы не можем удалить, то что делать тогда? давать новое имя? но тогда нужно его запомнить, чтобы когда попадётся следующая запись с таким же id, мы записали ее в нужный файл. А сможем ли мы запомнить имена, к примеру, 10000000000000000000000000000000000 00000000000000000000000000000000000 00000000000000000000000000000000000 0000000000000000 файлов?
и четвертое - это мой вопрос - можно ли перезаписывать имеющиеся файлы?

[Panika]

наверное 4 вопрос адресован мне??? Можно их перезаписывать новыми данными! т.е. старая должна удаляться, а новая загружаться...Alex_FF помогите мне пожалуйста!!! Я уже совсем отчаялась...

P.S. программа Serge_Bliznykov не работает(((

[Alex_FF]

P.S. программа Serge_Bliznykov не работает(((

её нужно на Pascal компилировать, а не на Delphi...

так, чтобы в начале каждой строки вместо того id, который Вы удалили вмещалась информация из 2, 3, и 4 идущих за id данных, таким образом будет создаваться уникальный id. Но при этом после этого id долны идти все данные, начиная со 2, иначе они потеряюся...

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

[Panika]

ооо...ну куда уж мне...

[Panika]

я уже бьюсь головой о клавиатуру но чет мысли все и не лезут...
Alex_FF проверьте личные сообщения.
И очень Вас прощу, помогите мне!

[Serge_Bliznykov]

ну раз речь идёт о Delphi,
то абсолютно несложно переписать код:

program razor3;
{$APPTYPE CONSOLE}
uses SysUtils;

const
  Source = 'input.txt';

var
  S, Target: String;
  Index: Integer;
  FI, FT: TextFile;
begin
  if Not FileExists(Source) then begin
    WriteLn('Error! File "'+Source+'" not found');
    Halt(1)
  end;
  AssignFile(FI,Source);
  Reset(FI);
  {первый цикл чтения - удаляем все существующие файлы <id>.txt}
  while not EOF(FI) do
  begin
    ReadLn(FI, S);
    Index := Pos('|', S);
    if Index > 0 then begin
      Target := Copy(S,1, Index-1) + '.txt';
      if FileExists( Target) then begin
         AssignFile(FT, Target);
         Erase(FT)
      end;
    end;
  end;
  Close(FI); {закрыли исходный файл}

  {повторно открыли исходный файл}
  Reset(FI);
  while not EOF(FI) do
  begin
    ReadLn(FI, S);
    Index := Pos('|', S);
    if Index <= 0 then
      WriteLn('Error in Input File! Not Found delimiter: |')
    else begin
      Target := Copy(S,1, Index-1) + '.txt';
      AssignFile(FT, Target);

      if FileExists(Target) then
        Append(FT)
       else
        Rewrite(FT);

      Delete(S, 1, Index - 1);
      WriteLn(FT, S);
      Close(FT);
    end
  end;
end.

p.s. без всяких проверок на аттрибуты файла и возможность его удалять/создавать/записывать..

[Panika]

Serge_Bliznykov спасибо огромное!!! очень Вам благодарна!!! Спасибо!!!

[Alex_FF]

так вы же говорили, что после id еще какие-то данные идут, и программа их удаляет???