Удалить подстроку - множественные вхождения подстроки
Автор Сообщение
all__ Не на форуме
Админ
*******

Сообщений: 855
Зарегистрирован: 01.2010
Сообщение: #1
Удалить подстроку - множественные вхождения подстроки
Функция удаляет множественные вхождения подстроки в исходной строке.
Код:
function DeleteSubStr(str, subStr: string): string;
begin
  while pos(subStr, str)>0 do
    str:=copy(str,1,pos(subStr,str)-1) +
  copy(str,pos(subStr,str)+length(str),length(str));
  Result:=str;
end;

Пример применения:
Код:
str:=DeleteSubStr('Стр<удалить>ока выбр<удалить>анная для пр<удалить>имера','<удалить>');

В результате получим:
str = 'Строка выбранная для примера'





Лучшая благодарность - "Мне нравится", +1 или Like! Вверху страницы.
(Последний раз сообщение было отредактировано 21.03.2010 в 15:10, отредактировал пользователь all__.)
21.03.2010 9:17
Вебсайт Найти все сообщения Цитировать это сообщение
clk824 Не на форуме
Админ
*******

Сообщений: 674
Зарегистрирован: 01.2010
Сообщение: #2
а можно вот так
#5





Хочешь сказать спасибо? Лучше нажми "Мне нравится", +1 или Like!
(Последний раз сообщение было отредактировано 21.03.2010 в 17:08, отредактировал пользователь clk824.)
21.03.2010 11:13
Вебсайт Найти все сообщения Цитировать это сообщение
all__ Не на форуме
Админ
*******

Сообщений: 855
Зарегистрирован: 01.2010
Сообщение: #3
RE: Удалить подстроку - множественные вхождения подстроки
У меня сейчас Delphi7 и там не работает str_replace, в помощи и в модулях такого тоже нет. Может как-то по другому называется эта функция?





Лучшая благодарность - "Мне нравится", +1 или Like! Вверху страницы.
(Последний раз сообщение было отредактировано 21.03.2010 в 14:38, отредактировал пользователь all__.)
21.03.2010 14:37
Вебсайт Найти все сообщения Цитировать это сообщение
all__ Не на форуме
Админ
*******

Сообщений: 855
Зарегистрирован: 01.2010
Сообщение: #4
RE: Удалить подстроку - множественные вхождения подстроки
Добавил функцию для замены подстрок в строке, может использоваться как альтернатива удаления подстрок.
Замена подстроки в строке с многократным вхождением





Лучшая благодарность - "Мне нравится", +1 или Like! Вверху страницы.
21.03.2010 15:07
Вебсайт Найти все сообщения Цитировать это сообщение
clk824 Не на форуме
Админ
*******

Сообщений: 674
Зарегистрирован: 01.2010
Сообщение: #5
RE: Удалить подстроку - множественные вхождения подстроки
Прошу прощения, я просто не обратил внимания на раздел форума и поторопился с ответом Smile .





Хочешь сказать спасибо? Лучше нажми "Мне нравится", +1 или Like!
21.03.2010 17:05
Вебсайт Найти все сообщения Цитировать это сообщение
Создать ответ 


Похожие темы
Тема: Автор Ответов: Просмотров: Посл. сообщение
  Замена подстроки в строке - многократное вхождение all__ 0 2 566 21.03.2010 15:04
Посл. сообщение: all__