Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Pascal (http://www.tehnari.ru/f41/t96785/)

Написать библиотеку так чтобы внутри была функция замены слова другим в txt

Что Вы понимаете под "библиотекой"? Процедуру? Модуль? Где заменять слово - в строке? В файле? В общем, для начала изложите задание внятно и подробно. Отмазки "а мне так дали!" НЕ ПРИНИМАЮТСЯ.

задание слово в слово, как препод дал так и написали. лично я под библиотекой понимаю-процедура-подпрограмма что одно и тоже. слово надо заменить в файле TXT.

модуль, заменять в файле

Цитата:

Сообщение от natali_lavr (Сообщение 1037991)

модуль, заменять в файле

Ну, как-то так. Модуль сохранить, как файл с именем My_Unit.pas.

Модуль:

Код:

Unit My_Unit;



Interface



Procedure Replace_Word(Nm,S1,S2:String);



Implementation



Procedure Replace_Word(Nm,S1,S2:String);

Var

 f1,f2:Text;

 S:String;

 C:Char;

 i:Byte;

Begin

 C:=' ';

 S:='';

 Assign(f1,Nm);

 Reset(f1);

 Assign(f2,'xxx');

 Rewrite(f2);

 Repeat

  While (C<>S1[1]) and not EoF(f1) do

   begin

    Read(f1,C);

    if C<>S1[1] then Write(f2,C);

   end;

  If not EoF(f1) then

   begin

    S:=S+S1[1];

    for i:=2 to Length(S1) do

     begin

      read(f1,C);

      S:=S+C;

     end;

    if S=S1 then

     for i:=1 to Length(S2) do Write(f2,S2[i])

    else

     for i:=1 to Length(S1) do Write(f2,S1[i]);

   end;

  S:='';

 Until EoF(f1);

 Close(f1);

 Close(f2);

 Rewrite(f1);

 Reset(f2);

 Repeat

  Read(f2,C);

  Write(f1,C);

 Until EoF(f2);

 Close(f1);

 Close(f2);

 Erase(f2);

end;



end.

Программа:

Код:

Uses My_Unit;



Var

 Name,Sbef,Saft:String;



Begin

 Write('Enter file name: ');

 Readln(Name);

 Write('Word to find: ');

 Readln(Sbef);

 Write('Replace with: ');

 Readln(Saft);

 Replace_Word(Name,Sbef,Saft);

End.

СПАСИБО БОЛЬШОЕ)))) ОЧЕНЬ БЛАГОДАРНА!!!!)))