VPF::Проблема с регулярным выражением

mhalion

Дата 16.9.2007, 15:25 (ссылка)

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

Загрузка ...

Шустрый

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

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

Все вродебы просто, но мне необходимо получить все что удовлетворяет моей регулярке. И не использовать ExecNext, а потом смотреть в Match[0].
Возможно ли получить и 'Сходненская' (Match[0]) и 'Москва' (Match[1]) после первого вызова Exec?

Код


var
    sMask,sAddress: string;
begin
    sMask :='(Сходненская)|(Москва)';
    sAddress :='г. Москва, ул. Сходненская, 22';

    with TRegExpr.Create do try
        Expression :=sMask;
        if Exec(sAddress) then
        begin
         repeat
                edtStatus.Text :=IntToStr(SubExprMatchCount);
                until not ExecNext;
        end;
    finally Free;
    end;
end;

W4FhLF

Дата 16.9.2007, 15:53 (ссылка)

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

Загрузка ...

found myself

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

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

Тебе надо узнать есть ли такие слова в строке и посчитать сколько раз они там встречаются? Я что-то не совсем понял суть самой задачи, объясни поподробнее.

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

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

mhalion

Дата 16.9.2007, 15:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

Вот такая регулярка sMask :='.*г.\x20*(.*)[,;\x20].*ул.\x20(.*)[,;\x20].*22.*';
И вот такая строка sAddress :='г. Москва, ул. Сходненская, 22';

Match[1] ='Москва,'
Match[2] ='Сходненская,'

Вопрос: Почему появляются запятые в конце? И как от них избавиться?

Добавлено через 7 минут и 41 секунду
Вроде бы проблему решил:
'.*г\x20*.\x20*([А-Яа-я]*).*ул.\x20*([А-Яа-я]*).*22.*'
Но всеравно до конца вот чего не понимаю. Что в процессе обработки строки по регулярке выбирается, как Match?

mhalion

Дата 16.9.2007, 16:14 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как поставить пробел не используя \x20. Как будет выглядеть в таком слчае - \x20*?

W4FhLF

Дата 16.9.2007, 16:35 (ссылка)

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

Загрузка ...

found myself

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

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

Цитата(mhalion @ 16.9.2007, 15:56

)

Но всеравно до конца вот чего не понимаю. Что в процессе обработки строки по регулярке выбирается, как Match?

REGEXPRU.HLP читал?

Цитата(mhalion @ 16.9.2007, 16:14

)

Как поставить пробел не используя \x20. Как будет выглядеть в таком слчае - \x20*?

' *?'

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

mhalion

Дата 16.9.2007, 16:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

Читал бы не спрашива;) Скинь на мыло мне док

W4FhLF

Дата 16.9.2007, 16:44 (ссылка)

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

Загрузка ...

found myself

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

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

аттач

Присоединённый файл ( Кол-во скачиваний: 6 )

REGEXPRU.rar 53,27 Kb

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

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