Робота зі словами, допоможіть відлагодити будь-ласка.. (Сторінка 2) - Pascal/Delphi

21 Відповідь від User 298 03.10.2013 21:03:54

User 298
Гість

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Мелісо, а логіку мені поясніть, будь-ласка, бо я не дуже у паскалі розбираюся:
Чому ви намагаєтеся водночас читати з файлу та писати з нього? Припустимо, ви хочете перезаписати кожен рядок, але ж тут виходить, що читаєте ви один, а затираєте інший... Не простіше в інший файл спрямувати запис?

З.І: і перевірте у файла галочку "тільки для читання" (точніше, її відсутність), а також щоб файл ніде не був відкритий у цей момент.

22 Відповідь від HetmanNet 03.10.2013 22:05:24

HetmanNet
Ліцензований троль форуму Replace
Поза форумом

Звідки: Кременчук, Україна
Дата реєстрації: 18.07.2012
Повідомлень: 4 690

Репутація

: 2461

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Меліса написав:

Program lab8;
var f: text;
    s, s1: string;
procedure algoritm(s:string; var s1:string);
   var t: string;
   begin
   t:=copy(s,1,pos(s,' ')-1);
   delete(s,1,pos(s,' '));
   if length (t) > 9 then s1:=s1+t + '';
   end;
  begin
  assign (f,'C:\file.txt'); reset(f); rewrite(f);
  while not eof(f) do begin
                      readln (f,s);
                      algoritm (s,s1);
                      writeln (f,s1);
                      end;
   close(f);
   END.
{При компілюванні вибиває помилку: File not found - тобто файл не знайдено, але шлях я ніби вірно задала, не знаю в чому проблема}
Bartash: код варто брати у теги [ code ] .

Бачу слово "чергувати" та словосполучення "лише писати" і "лише для запису" не були зрозумілі, тож поясню простіше. В Pascal файл може перебувати лиш в режимі "лише читання" або "лише запис". Тож перед операціями читання переводите в режим "читати" а перед записом до нього "писати".. тож відповідно одночасно в обох режимах файл не може перебувати. Тому строки:

reset(f); 
rewrite(f);

знаходяться у невірному місці, правильніше має бути:

Program lab8;
var f: text;
    s, s1: string;
procedure algoritm(s:string; var s1:string);
   var t: string;
   begin
   t:=copy(s,1,pos(s,' ')-1);
   delete(s,1,pos(s,' '));
   if length (t) > 9 then s1:=s1+t + '';
   end;
  begin
  assign (f,'C:\file.txt');  
  while not eof(f) do begin
                      reset(f); {Відкриваємо файл у режимі "лише для читання"}
                      readln (f,s); {Читаємо з нього}
                      algoritm (s,s1);
                      rewrite(f); {Відкриваємо файл у режимі "лише для запису" }
                      writeln (f,s1); {Пишемо до нього}
                      end;
   close(f);
   END.

Подякували: Torbins, Меліса3