VPF::Работа со сточками. - Форум программистов

Wildklas

Дата 5.11.2010, 02:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 19.10.2010

Репутация: нет
Всего: нет

Здравствуйте. Вопрос заключается в следующем:
Дано строки S и S0. Удалить из строки S все подстроки, совпадающие
с S0. Если совпадающих подстрок нет, то вывести строку S без изменений.
Подскажите пожалуйста как это решить, а то я совсем запутался..

Данкинг

Дата 5.11.2010, 02:34 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Что понимается под "подстрокой"? Одна буква - тоже подстрока?

--------------------

There's nothing left but silent epitaphs.

aleksh

Дата 5.11.2010, 02:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 1
Всего: 13

можно через pos, но лучше через центр помощи

Qu1nt

Дата 5.11.2010, 08:54 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50

Код


S := StringReplace(S, S0, '', [rfReplaceAll]);

Это сообщение отредактировал(а) Qu1nt - 5.11.2010, 09:04

Wildklas

Дата 5.11.2010, 08:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 19.10.2010

Репутация: нет
Всего: нет

Цитата

Что понимается под "подстрокой"? Одна буква - тоже подстрока?

Насколько я знаю 1 буква, тоже подстрока, а тут иметься введу много букв =)
aleksh Через пос у меня не очень получаеться =( как это сделать через центр помощи?? Подскажите пожалуйста.

Добавлено через 3 минуты и 6 секунд
О, Qu1nt, спасибо за подсказку, попробую разобраться smile

Это сообщение отредактировал(а) Wildklas - 5.11.2010, 08:55

Данкинг

Дата 5.11.2010, 10:25 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата

Цитата(Qu1nt @ 5.11.2010, 08:54

)

S := StringReplace(S, S0, '', [rfReplaceAll]);

Т.е. требовалось целиком S0 удалить? А я-то уж прикидывал, как покрасивее написать вырезание подстрок. smile

--------------------

There's nothing left but silent epitaphs.

Wildklas

Дата 5.11.2010, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 19.10.2010

Репутация: нет
Всего: нет

Всё, спасибо, разобрался.

Код


program Project1;

{$APPTYPE CONSOLE}


uses
  SysUtils;

var s,s0: string;
r: char;
n,i,n1: integer;
begin
  write('Input string: ');
  readln(s);
  write('Input substring: ');
  readln(s0);
   n1:=pos(s0,s);
    if n1=0 then write('No coincident string ');
while n1>0 do
begin
delete(s,n1,length(s0));
n1:=pos(s0,s);
end;
 Write('New string: ',s);
  readln;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »