VPF::Работа с текстовыми файлами в Турбо Паскале 7.0

Neo007

Дата 21.3.2006, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 21.3.2006

Репутация: нет
Всего: нет

такое дело...
имеються два текст файла, нужно записать данные в один из них и потом эти данные перенести во второй файл и если строки идущие друг за другом в этом файле одинаковы то вставить слово 'copy';
например:
файл1: - то файл2:
слон--------------------слон
лом---------------------лом
лом---------------------copy
муха---------------------лом
--------------------------муха

перенести данные не состовляет проблен но вот как вставить copy я не знаю...
подскажите .

Это сообщение отредактировал(а) Neo007 - 21.3.2006, 21:53

darkart

Дата 21.3.2006, 23:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: нет
Всего: 31

Если правильно понял, то вот...

Код


program TxtCopy;
procedure CopyTxtFile(strFileNameIn,strFileNameOut:string);
const
  txt='copy';{вставляемая строка}
var
  strPred,strNow:string;{strPred-предыдущая строка, strNow-настоящая}
  fin,fout:text;
begin
  Assign(fin,strFileNameIn);
  Assign(fout,strFileNameOut);
  reset(fin);{для чтения}
  rewrite(fout);{для перезаписи}
  if not eof(fin) then{если не конец файла}
  begin
    readln(fin,strNow);{читаем первую строку}
    writeln(fout,strNow);{печатаем первую строку}
    while not eof(fin) do{пока не конец файла}
    begin
      strPred:=strNow;{запоминаем предыдущее слово}
      readln(fin,strNow);{читаем настоящее}
      if strPred=strNow then writeln(fout,txt);{если они равны то печатаем вставляемую строку}
      writeln(fout,strNow);{печатаем считанную строку}
    end;
  end;
  Close(fout);{закрытие файла}
  Close(fin);{закрытие файла}
end;
var
  strFileNameIn,strFileNameOut:string;
begin
  writeln('First file name:');
  readln(strFileNameIn);{ввод имени файла источника}
  writeln('Second file name:');
  readln(strFileNameOut);{ввод имени файла приемника}
  CopyTxtFile(strFileNameIn,strFileNameOut);
  writeln('ok');
  writeln('Please press any key...');
  readln;
end.

Neo007

Дата 21.3.2006, 23:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 21.3.2006

Репутация: нет
Всего: нет

Спасибо именно так. Во теперь буду знать как это делать...оказываеться надо через процедуру делать а я лепил всё в одно ... smile

в конце концов запутывался .
Так сейчас мы её модернизируем немного smile

и будет неплохая програмка .
Ещё раз спасибо.

Это сообщение отредактировал(а) Neo007 - 21.3.2006, 23:54

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »