VPF::Помогите составить регулярку - Форум программистов

geograph

Дата 16.9.2009, 22:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Господа, помогите составить регулярное выражение. Нужно в тексте найти строку, длинной 8-9 символов, содержащую маленькие латинские буквы и цифры. Но, строка обязательно должна содержать и буквы, и цифры, т.е. если строка будет полностью из букв, то она не подходит.
Написал такую регулярку, надо подправить, чтобы подходила по условиям обозначенным выше:
[a-z0-9]{8,9}

Mabramyan

Дата 17.9.2009, 06:52 (ссылка)

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

Загрузка ...

Новичок

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

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

[([a-z0-9]*[a-z]+[a-z0-9]*[0-9]+[a-z0-9]*)([a-z0-9]*[0-9]+[a-z0-9]*[a-z]+[a-z0-9]*)]{8,9}

geograph

Дата 17.9.2009, 08:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Хм.. смысл конструкции понятен, но почему-то не работает :(

Romikgy

Дата 17.9.2009, 23:50 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

в регулярных выражениях нет условного отрицания....
могу посоветовать сделать в 2 шага
1.

Цитата(geograph @ 16.9.2009, 21:43

)

[a-z0-9]{8,9}

2.
выбросить из найденого все что найдет
\d{8,9}|[a-z]{8,9}

ну или перебрать все варинаты для 8 знаков а потом для 9

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

AntonN

Дата 18.9.2009, 23:11 (ссылка)

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

Загрузка ...

Опытный

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

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

пум-пурум..
http://forum.sources.ru/index.php?showtopi...t&p=2369704
вроде бы работает

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

Romikgy

Дата 18.9.2009, 23:20 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

и ловит все...
даже 123456789 такое...

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Romikgy

Дата 18.9.2009, 23:59 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

так у мя правильно работает (вроде)

Код


procedure GetSlovoList(Str: String; LB: tstrings);
var RE,r2: TRegExpr;
    Ulist: TStrings;
    i: Integer;
begin
RE:=TRegExpr.Create;
r2:=TRegExpr.Create;
 try
  r2.ModifierG:=r.ModifierG;   
    re.Expression:='[a-z0-9]{8,9}';
    if re.Exec(Str) then
    repeat
      case Length(re.Match[0]) of
      8: begin
            r2.Expression:='[a-z]{8}|[0-9]{8}';
           if not r2.Exec(re.Match[0]) then
            lb.Add(  nil ,re.Match[0] );
         end;
      9: begin
            r2.Expression:='[a-z]{9}|[0-9]{9}';
           if not r2.Exec(re.Match[0]) then
            lb.Add(  nil ,re.Match[0] );
         end;
      end;
    until not re.ExecNext;
 finally
  RE.Free;
  r2.Free; 
 end;
end;

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

AntonN

Дата 19.9.2009, 00:02 (ссылка)

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

Загрузка ...

Опытный

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

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

Romikgy,

Цитата

даже 123456789 такое...

оно и у меня ловит, тока ему нужны слова и с цифрами и с буквами smile

вот тока я сам забыл сделать, чтобы и цифры обязательно были smile

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

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