Даны три строки S1,S2, S3 . Заменить в строке S1 все вхождения S2 на S3

@Studentka007 · Регистрация: 15.04.2012

Author24 — интернет-сервис помощи студентам

С помощью процедуры решить следующую задачу. Даны три строки S1,S2, S3 . Заменить в строке S1 все вхождения S2 на S3.
____
Помогите,если сможете.
Спасибо ))

@paxan86 · 15.04.2012, 18:19

Так?

Delphi

  s1,s2,s3:string;
  dd:integer;
 
s1:='Òðàòàâàëèòèêàòàëèìàíàâàêàñàäàòàëèìàíëè';
s2:='òàëèìàí';
s3:='ÇÀÌÅÍÀ';
repeat
dd :=pos(s2,s1);
delete(s1,dd,length(s2));
insert(s3,s1,dd);
until pos(s2,s1)=0 ;

@SBodry · 15.04.2012, 18:23

//str1 - исходная строка
//str2 - что заменяем
//str3 - на что заменяем
res:= StringReplace(str1, str2, str3, [rfReplaceAll, rfIgnoreCase]);

@Studentka007 0 / 0 / 0 Регистрация: 15.04.2012 Сообщений: 9
		1
	Даны три строки S1,S2, S3 . Заменить в строке S1 все вхождения S2 на S3 15.04.2012, 16:40. Показов 2002. Ответов 2 Метки нет (Все метки) С помощью процедуры решить следующую задачу. Даны три строки S1,S2, S3 . Заменить в строке S1 все вхождения S2 на S3. ____ Помогите,если сможете. Спасибо )) 0

@SBodry 3 / 3 / 0 Регистрация: 04.04.2012 Сообщений: 16
	15.04.2012, 18:23	3
	//str1 - исходная строка //str2 - что заменяем //str3 - на что заменяем res:= StringReplace(str1, str2, str3, [rfReplaceAll, rfIgnoreCase]); 1

Даны три строки S1,S2, S3 . Заменить в строке S1 все вхождения S2 на S3

Решение