Версия для печати темы

Автор: Eichhorn 12.01.2011 21:37

Есть задача:
Дано целое чисто К (0<K<10) и текстовый файл, содержащий более К строк. Заменить в файле строку с номером К на строку S
Вот мой текст программы.

const
k=2;
var
f:text;
s:string;
st:integer;
put,a:string;
begin
  s:='mouse';
  st:=0;
  put:='C:\pas\jkl';
  assign(f,put);
  reset(f);
  while not eof(f) do
  begin
    read(f,a);
    st:=st+1;
    if st=k then
    a:=s;
    write(a);
  end;
  close(f);
  readln;
end.

Программа сначала запускается, а потом тут же вылетает с ошибкой...

Автор: volvo 12.01.2011 21:48

Программа вылетает потому что st переполняется. А это в свою очередь происходит потому, что процедурой Read надо пользоваться очень осторожно. Особенно когда в файле есть переводы строк (символы #13 и #10). Read будет бесконечно читать файл и возвращать пустую строку до тех пор, пока ты ReadLn-ом не прочтешь эти самые 2 символа... Очень аккуратно используй Read, если он тебе действительно необходим. Кстати, здесь, в этой задаче нужен именно ReadLn. Тогда программа не вылетает. Но и не выполняет задачу, потому что заданную строку на другую она не меняет.

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

Автор: Eichhorn 12.01.2011 22:45

Попробовала исправить, но при запуске всё равно выдаёт ошибку:


Эскизы прикрепленных изображений

Автор: Eichhorn 12.01.2011 23:08

Вообще вот что у меня получилось написать (только чувствую, что неправильно, но проверить у меня возможности нет, тк куда бы я не сохраняла, программа выдаёт ошибку):

const
k=2;
var
f,f1:text;
s:string;
st:integer;
put,a:string;
begin
  s:='mouse';
  st:=0;
  put:='C:\pas\jkl';
  assign(f,put);
  {I-}
  reset(f);
  assign(f1,'C:\pas\kl');
  reset(f1);
  rewrite(f1);
  while not eof(f) do
  begin
    readln(f,a);
    write(f1,a);
    st:=st+1;
    if st=k then
    a:=s;
    write(a);
  end;
  close(f);
  close(f1);
  erase(f);
  rename(f1,'C:\pas\jkl');
  while not eof(f1) do
  writeln(a);
  readln;
end.

Автор: volvo 12.01.2011 23:29

И опять компилятор прав совершенно. Что такое ExitCode = 2? Это обычный виндовый ERROR_FILE_NOT_FOUND. Файла нет - вылетает ошибка и вместе с ней вся программа. Я смотрю, ты пытаешься обработать ошибку открытия? Только для этого надо отключить контроль ошибок ввода/вывода, ты этого не делаешь. Потому что {I-} и {$I-} - это разные вещи. У тебя - просто комментарий, а во втором случае - когда добавлен знак доллара - это уже директива компилятора.

И потом. Ну. допустим, отключила ты контроль. Дальше что? Reset вернул ошибку в IOResult, но программа работает дальше. Ты ж не обрабатываешь IOResult нигде, толку с того отключения? Просто взяла и заткнула программе рот, теперь она даже не будет сообщать об ошибках. Но если файл не открылся, а ты из него будешь читать - что произойдет?

Автор: Eichhorn 12.01.2011 23:35

Только я не понимаю почему он не открывается... Я и переписывать файл пробовала, и пересохранять программу пробовала(кстати, после того как она мне ошибку выдаст, я не могу пересохранить этот файл. Приходится заводить новый и всё туда перекопировать)