Конференция VBStreets

**HaSH** » 04.10.2006 (Ср) 16:00

Не совсем по ВБ, но все же...

Пишу регулярное выражение для вытаскивание некоторых однотипных выражений из строки. Проблемма в том, что кол-во елементов разное и в результате сохранается только последнее совпадание.
например
строка "1.23.324.54" нужно вытащить цифры разделеные точками. количество цифр и "разрядов" может быть разное.
выражение типа
([0-9]\.)* возвращает только последнюю цыфру, а хотелось бы все.
как победить?

**HaSH** » 04.10.2006 (Ср) 16:08

подумал немного - получается что нужно несколько раз проходить по строке, прально?

**dr.MIG** » 04.10.2006 (Ср) 16:32

А не легче в данном случае использовать ф-ю Split, чем заморачиваться с рег. выражениями?

**HaSH** » 04.10.2006 (Ср) 16:36

Нет, не легче.
строку с циферками я привел для примера. Рабочая строка намного сложне, сплитом ее не возмешь.

**Viper** » 04.10.2006 (Ср) 16:39

Так приведи рабочую строку, ибо приведенный пример действитель проще через Split обработать!

**HaSH** » 04.10.2006 (Ср) 16:45

О. ПХУКЕТ + БАНГКОК (в Бангкоке 2 ночи в отеле D'MA Pavillion или Prince Palace или Eastin)

Нужно вытащить названия отелей (D'MA Pavillion, Prince Palace, Eastin) при том что:
1. кол-во может менятся
2. Разделитель тоже может меняться (вместо "или" - ",") или еще что то

**dr.MIG** » 04.10.2006 (Ср) 16:50

Обязательно ли название отелей состоит из латинских букв, а остальное предложение из русских?

**HaSH** » 04.10.2006 (Ср) 16:54

dr.MIG писал(а):Обязательно ли название отелей состоит из латинских букв, а остальное предложение из русских?

Да
еще они могут содержать символы &,-,'
З.Ы. Еще может меняться О. ПХУКЕТ + БАНГКОК (в Бангкоке 2 ночи в отеле
З.Ы.Ы. Не хочется привязыватся к определеной фразе т.к. могут быть пропущены некоторые буквы, пропущен или, наоборот, поставлен лишний пробел и тд...

**Konst_One** » 04.10.2006 (Ср) 17:17

похоже, что одними регулярными выражениями у тебя ничего не выйдет. придется свой парсер писать, имхо

**HaSH** » 04.10.2006 (Ср) 17:27

Konst_One писал(а):похоже, что одними регулярными выражениями у тебя ничего не выйдет. придется свой парсер писать, имхо

Выйдет. Я уже написал регулярное выражение. Проблема в том что - см первый пост

**dr.MIG** » 04.10.2006 (Ср) 17:48

Хотелось бы видеть код...
Короче, вот пример (копи пастом, но вроде работает)

Код: Выделить всё: Dim myRegExp As New RegExp ' создаём экземпляр RegExp'a myRegExp.MultiLine = False ' текст однострочный myRegExp.Global = True ' будем проходить всю строку myRegExp.IgnoreCase = True ' игнорируем регистр символов myRegExp.Pattern = "<BODY (.*)</BODY>" ' маска Dim aMatch As Match ' один из совпавших образцов Dim colMatches As MatchCollection ' коллекция этих образцов Dim testString As String ' тестируемая строка testString = "<HTML><BODY bgcolor=#FFAABB>" & _ "<P>Это пример</P></BODY></HTML>" ' текст для теста Set colMatches = myRegExp.Execute(testString) ' запускаем! For Each aMatch In colMatches ' проходим по всей коллекции List1.AddItem aMatch.FirstIndex List1.AddItem aMatch.Length List1.AddItem aMatch.SubMatches(0) List1.AddItem aMatch.Value Next aMatch

Может поможет.

**HaSH** » 04.10.2006 (Ср) 18:04

в итоге сделал так:

Код: Выделить всё: While regexp.Test(strTestString) = True Set colMath = regexp.Execute(strTestString) Set math = colMath.Item(0) ReDim Preserve arrHotel(UBound(arrHotel) + 1) arrHotel(UBound(arrHotel)) = Trim(math.SubMatches(0)) strTestString = Replace(strTestString, math. SubMatches(0), "", 1, 1, vbTextCompare) Wend

**GSerg** » 04.10.2006 (Ср) 21:11

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

Видимо, в используемой реализации кванторы наоборот по умолчанию ленивые, и тогда надо почитать документацию на предмет того, как сделать квантор жадным...

Конференция VBStreets

Регулярные выражения

Регулярные выражения

Кто сейчас на конференции