VPF::Поиск и замена/удаление в тексте

Vladimir_K

Дата 19.10.2010, 18:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

Имею, к примеру, текст:

Я приближался к месту моего назначения. Вокруг меня, прижимаясь к самой дороге, зеленел лес,
изредка уступая место полянам, поросшим желтой осокою. Солнце садилось уже который час, все никак не могло сесть
и висело низко над горизонтом. Машина катилась по узкой дороге, засыпанной хрустящим гравием.
Крупные камни я пускал под колесо, и каждый раз в багажнике лязгали и громыхали пустые канистры.

Нужно соединить разорвавшиеся предложения.
Пробую искать в конце строки тег , и проверять, какой символ стоит перед ним.
Если это строчная буква (рус/англ), или запятая, или цифра, то надо удалить (точнее, заменить на пробел) из текущей строки и из следующей. И соединить.
Пока что меня застопорило на этапе определения символа, стоящего перед :

Код


var i:integer;

begin

i:=Pos('а</b>',RxRichEdit1.Text);   //Строчная буква "а" перед </b>
while i>0 do                        //Если есть такая конструкция а</b>, нужно удалить </b>
begin
RxRichEdit1.Text:=Copy(RxRichEdit1.Text,1,i)+Copy(RxRichEdit1.Text,i+1+Length('</b>'),100000000000); //100000000000 - это если текста много...
i:=Pos('а</b>',RxRichEdit1.Text);
end;

end;

Можно, конечно, написать такие куски кода для каждой строчной буквы для рус и англ алфавитов, и для запятой, но это очень нерационально.
Применить такую вот конструкцию не получается:

Код


var
K:set of Char=['0'..'9', 'а'..'я', 'a'..'z', ','];

i:=Pos(K+'</b>',RxRichEdit1.Text);         //Бред полнейший, но как-то так :(

Это, если бы переменная K была типа string, то получилось бы, а так...
Подскажите, пожалуйста, если кто знает, как решить эту задачку.

Это сообщение отредактировал(а) Vladimir_K - 19.10.2010, 18:42

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

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Rrader

Дата 20.10.2010, 09:45 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
begin
  S := StringReplace(RxRichEdit1.Text, '<b>', '', [rfReplaceAll]);
  S := StringReplace(S, ',</b>'#13#10, ', ', [rfReplaceAll]);
  S := StringReplace(S, '</b>'#13#10, ' ', [rfReplaceAll]);
  RxRichEdit1.Text := TrimRight(S);
end;

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

Let's do this quickly!
Rest in peace, Vit!

superVad

Дата 20.10.2010, 14:36 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

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

Наверное тут помогут регулярные выражения.

Vladimir_K

Дата 20.10.2010, 18:07 (ссылка)

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

Загрузка ...

Шустрый

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

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

StringReplace - классная функция, не знал.
Спасибо огромное! smile

Это сообщение отредактировал(а) Vladimir_K - 20.10.2010, 19:44

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

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Keeper89

Дата 20.10.2010, 22:03 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Rrader, вообще, StringReplace лучше не использовать, там много реаллокаций памяти и конкатенаций. Я предпочитаю TStringBuilder, в нем грамотнее реализованы операции замены и т.п.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Rrader

Дата 21.10.2010, 09:08 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Keeper89, TStringBuilder появился только с D2009, а вообще ты мог бы и пример накатать smile

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

Let's do this quickly!
Rest in peace, Vit!

Keeper89

Дата 21.10.2010, 09:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Насчет версии - не известно, какая она у ТС, поэтому и предложил.

Вечером доберусь до компьютера, накатаю smile

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Vladimir_K

Дата 21.10.2010, 21:18 (ссылка)

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

Загрузка ...

Шустрый

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

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

У меня Delphi7 Enterprise.
Описание StringReplace нашел сразу: http://www.delphibasics.ru/StringReplace.php, а вот TStringBuilder не нашел.
StringReplace мне полностью подошла. А что, такая большая разница между ними?

Это сообщение отредактировал(а) Vladimir_K - 21.10.2010, 21:18

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

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Keeper89

Дата 21.10.2010, 21:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Vladimir_K, разница есть, но раз Delphi седьмой - смысла нет.
Просто приведу пример раз обмолвился:

Код


procedure TForm1.btn1Click(Sender: TObject);
begin
  with TStringBuilder.Create(RxRichEdit1.Text) do
    try
      Replace('<b>', EmptyStr);
      Replace('</b>'#13#10, ' ');
      RxRichEdit1.Text := Trim(ToString);
    finally
      Free;
    end;
end;

Это сообщение отредактировал(а) Keeper89 - 21.10.2010, 21:54

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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