Замена одного слова в string строке.

[Samopal]

Народ HELP
Вот задача:

В тексте (массиве строк) сделать замену одного слова на другое.

program text;
uses crt;
var
	t: array[1..n] of string;
	s: string;
	i: integer;
begin
writeln('Vvedite text:');
for i:=1 to n do
	begin
		readln(t[i]);
	end;
writeln('Vvedite slovo:');
readln(s);
	for i:=1 to n do
		if s in t[i] then  {ТУТ ОШИБКУ ВЫДАЁТ... чёто ему не нравится....}
			begin {Процесс замены слов в строке}
			
                                          {ЧТО ТУТ НАПИСАТЬ ???? Я хз как заменить слово в строке}
			
			end
		else
			i:=i+1;
writeln('novy text:');
for i:=1 to n do
writeln(t[i]);
readln;
end.

помогите, очень нужно....

[Stilet]

if s in t[i] then

Ну надо так:

if s = t[i] then

или так:

if Pos(s,t[i])<>0 then

[Samopal]

Ну надо так:
Код:

if s = t[i] then

Если так то получится что вся строка должна быть равна одному слову...

или так:
Код:

if Pos(s,t[i])<>0 then

А так вроде бы то что надо но только проблемка другого плана.... Эта ботва работает с учётом регистра....



А вот как сделать замену лова 's' в строке 't[i]' ?? Причём тока одного слова?

[Stilet]

Причём тока одного слова?

Находишь через pos его начало, потом находиш его конец, удаляешь через Delete и вставляешь новое слово.

[Samopal]

Всё супер всё работает написал как ты сказал.. класс.. спасибо...
тока такая проблемка.. Он чуствителен к регистру и заменяет ко всему и и части слов...

вот например....

Ввожу текст:

priver vvv asdnjcnas jksdnvas
sndjkcnsdc privet jksndjkas
privetprivetprivet
Privet PRIVET priVet Privet
sjdcdhvasdjkvasd

Заменяемое слово: privet
Новое слово: poka

Получаю текст:

poka vvv asdnjcnas jksdnvas
sndjkcnsdc poka jksndjkas
pokapokapoka {тут он заменяет не только отдельные слова но и часть совпадающую...}
Privet PRIVET priVet Privet {тут он не заменяет это же слово тока с другим регистром}
sjdcdhvasdjkvasd

Текст программы:

program text;
uses crt;
const
	n=5;
var
	t: array[1..n] of string;
	s,ns: string;
	d,i,y: integer;
begin
clrscr;
writeln('Vvedite text:');
for i:=1 to n do
	begin
		readln(t[i]);
	end;
writeln('Vvedite zamenaymoe slovo:');
readln(s);
writeln('Vvedite novoe slovo:');
readln(ns);
d:=length(s);
	for i:=1 to n do
		if pos(s,t[i])<>0 then
			begin
			y:=pos(s,t[i]);
			delete(t[i],y,d);
			insert(ns,t[i],y);
			i:=i-1;
			end;
writeln('Novy text:');
for i:=1 to n do
writeln(t[i]);
readln;
end.

[Samopal]

Блин.... гавно...
надо полностью переделывать как то так чтобы процедура поиска слова была регистро не чуствительной... и чтобы части слова не заменялись... Как это сделать ?? а?

[Stilet]

чтобы процедура поиска слова была регистро не чуствительной

Превращай строку в большие символы с помошью UpCase посимвольно, потом уж поиск.

[DARD]

я писал прогу так, что он поределяет и меняет слова, а не части слов. А именно: я задал условие, что если перед либо после меняемого буквосочетания стоит пробел, то он считает его за слово и меняет. Кажется :
a:string;
b:=length(a);
if (b-1-a=' ')or(b+1=' ') then //и дальше он делает замену

[DARD]

вообщем вот то, что я сделал. Только здесь для pascal ABC и меняет он слова одинаковой длины:
-----------------------------------
uses crt;
var
b1,p1,t1,t2:integer;
a1,a2,symbol:string;
txt:string;
//----------------------------------
BEGIN
writeln('введите текст');
readln(txt);
writeln('введите заменяемое слово');
readln(a1);
writeln('введите заменяющее слово');
readln(a2);
//----------------------------------------
b1:=length(a1);
p1:=pos(a1,txt);
if length(a1)<>length(a2) then writeln('длины слов не равны')
else
begin
for t1:=1 to length(txt) do
begin
if (txt[p1-1]=' ') and (txt[p1+length(a1)]=' ') then
begin
delete(txt,p1,b1);
insert(a2,txt,p1);
p1:=pos(a1,txt);
end;
end;
end;
//------------------------------------
writeln('новый текст =',txt);
readln;
END.