Найти в строке все вхождения 666 и удалить 4 символа до и 3 после включая само 666

@Alex99999 · Регистрация: 03.12.2012

Подскажите пожалуйста! Есть строка: 01236667890555555555555555555523156661875555555555555555555
нужно найти все вхождения 666 и удалить 4 символа до и 3 после включая само 666. Заранее спасибо.

@Puporev · 13.09.2014, 08:13

Delphi

1 2	while pos('666',s)>0 do delete(s,pos('666',s)-4,10);

@BiHiTRiLL · 13.09.2014, 08:20

Delphi

var
  s: String;
  position: Integer;
begin
  s:='01236667890555555555555555555523156661875555555555555555555';
repeat
 position := pos('666', s);
    Delete(s, position-4, 10);
until position = 0;
 
ShowMessage(s);
 
end;

@Alex99999 1 / 1 / 1 Регистрация: 03.12.2012 Сообщений: 281
		1
	Найти в строке все вхождения 666 и удалить 4 символа до и 3 после включая само 666 13.09.2014, 07:31. Показов 1694. Ответов 2 Метки нет (Все метки) Подскажите пожалуйста! Есть строка: 01236667890555555555555555555523156661875555555555555555555 нужно найти все вхождения 666 и удалить 4 символа до и 3 после включая само 666. Заранее спасибо. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти в строке все вхождения 666 и удалить 4 символа до и 3 после включая само 666

Решение