VPF::RegExpr - Форум программистов

Rondo

Дата 3.1.2007, 21:17 (ссылка)

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

Загрузка ...

Бывалый

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

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

Появилась проблема с рег. выражениями smile

Вроде сделать просто, только не могу найти..

У меня есть такое выражение:
Reg.Expression:= '<t[hd]>[0-9.]+</t[dh]>';

Оно мне выводит типа такого текста smile

<td>12,4</td>
<th>4</th>
....

После чего приходится в тексте делать s:= StringReplace(s, '<tag>', '', [rfReplaceAll]); и т.д..

Вобщем вопрос: хотелось бы чтоб рег. выражение сразу выдавало мне эти числа, чтоб мне потом не пришлось юзать StringReplace.. smile

Подскажите какие символы нужно добавить в выражение.
smile

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

Начинающий кодер

W4FhLF

Дата 3.1.2007, 21:44 (ссылка)

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

Загрузка ...

found myself

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

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

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  exp: TRegExpr;
begin
  exp := TRegExpr.Create;
  exp.Expression := '(\<t[hd]\>)|(\<\/t[hd]\>)';
  ShowMessage(Exp.Replace('<th>12,4</td>', ''));
  exp.Free;
end;

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

"Бог умер" © Ницше
"Ницше умер" © Бог

Rondo

Дата 3.1.2007, 21:58 (ссылка)

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

Загрузка ...

Бывалый

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

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

Гмм.. че то не то, не получается. И числа там у меня разные, необязательно 12.4, и лежит это все у меня в мемо в отдельной строке..

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

Начинающий кодер

W4FhLF

Дата 3.1.2007, 22:13 (ссылка)

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

Загрузка ...

found myself

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

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

Что не получается-то?

Цитата

procedure TForm1.FormCreate(Sender: TObject);
var
  exp: TRegExpr;
begin
  exp := TRegExpr.Create;
  exp.ModifierI := True; // регистронезависимый режим
  exp.ModifierM := True; // воспринимать многострочный текст
  exp.Expression := '(\<t[hd]\>)|(\<\/t[hd]\>)';
  Memo1.Text := Exp.Replace(Memo1.Text, '');
end;

В Memo у меня такой текст:

Цитата

<tD>12,4 </td><td>12,4 </td>
<TH>4</TH>
<th>234343242342344.332332 </th><td>блаблабла</td>
<th>4.4325434534</tH>

После обработки получаю:

Цитата

12,4 12,4
4
234343242342344.332332 блаблабла
4.4325434534

Тебе разве не это надо было?

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

Rondo

Дата 3.1.2007, 22:21 (ссылка)

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

Загрузка ...

Бывалый

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

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

Угу, сорри я че то ступил smile

Забыл сделать присваивание smile

Memo1.Text := Exp.Replace(Memo1.Text, '');

Respect

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

Начинающий кодер

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