Вопрос по регулярным выражениям с использованием VBA / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по регулярным выражениям с использованием VBA

19 сообщений из 19, страница 1 из 1

Вопрос по регулярным выражениям с использованием VBA

#39805432

Yuri KR

Гость

Добрый день! Есть вопрос по регулярным выражениям с использованием VBA
Кто подскажет?

Есть строка: "ВВГНГ(А) 3x2,5x10 * CFD "

Необходимо из строки, выделить сечения - 3x2,5x10

Правило 1 - "([\d,\,]+[\x|\х][\d,\,]+)"
Находит - 3x2,5

Правило 2 - "([\x|\х]([\d,\,]+)
Находит - 2,5x10

Пытался объединить два правила, но не работает. ([\d,\,]+)[\x|\х]([\d,\,]+)[\x|\х]([\d,\,]+)

Ниже подпрограмма VBA:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.

Sub Search_Reg()
        Dim Str1 As String
        Dim Str2 As String
        Dim L As Integer
        
           Set objRegExp = CreateObject("VBScript.RegExp")
               'objRegExp.Pattern = "([\d,\,]+[\x|\х][\d,\,]+)"  ' ищет 3x2,5
               
                objRegExp.Pattern = "([\d,\,]+)[\x|\х]([\d,\,]+)[\x|\х]([\d,\,]+)"  ' ищет 2,5x10
               
        Str1 = "ВВГНГ(А) 3x2,5 *"
             
        Str2 = "ВВГНГ(А) 3x2,5x10 * CFD "
                
        Res = objRegExp.Test(Str2)
        
        Set objMatches = objRegExp.Execute(Str2)
        L = objMatches.Count
                  For i = 0 To objMatches.Count - 1
                      Set objMatch = objMatches.Item(i)
                      ' MsgBox objMatch.Value
                  Next i
                                                    
        MsgBox "В строке""" & Str & """" & Chr(13) & "Найдено " & "[" & objMatches.Count & "]" & _
                Chr(13) & "Вхождений по шаблону """ & objRegExp.Pattern & "''" & Chr(13) & "Найдено сечение: " & objMatch & ""                           
        
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ

...

Рейтинг:

0 / 0

23.04.2019, 15:25

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805437

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Yuri KRне работает.А что именно не работает?

...

Рейтинг:

0 / 0

23.04.2019, 15:35

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805445

Yuri KR

Гость

Да, нужно уточнить...

Если выполнить код для строки Str1, то 3x2,5 - не обнаруживается
Для Str1 - ищет правило 1
Для Str2 - ищет правило 2

Общее правило не видит первую часть....

Str1 = "ВВГНГ(А) 3x2,5 *"

Str2 = "ВВГНГ(А) 3x2,5x10 * CFD "

т.е Res = objRegExp.Test(Str1)
Set objMatches = objRegExp.Execute(Str1) ' работает корректно в правилом1

Res = objRegExp.Test(Str2) ' ' работает корректно в правилом2
Set objMatches = objRegExp.Execute(Str2)

...

Рейтинг:

0 / 0

23.04.2019, 15:51

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805451

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Если я правильно понял задачу, то вот такой паттерн

Код: vbnet

"[\d,]+[xх][\d,]+([xх][\d,]+)?"

...

Рейтинг:

0 / 0

23.04.2019, 16:15

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805463

Yuri KR

Гость

да, спасибо, работает! Ищется в разных вариантах...

единственно хочу уточнить... я писал x|х только потому, что в строке может встречаться "х" латинская буква или "х" кириллица

В вашем варианте "xx" - что означает ?

и как тогда учесть, что "х" бывает русской или латинской буквой ?

...

Рейтинг:

0 / 0

23.04.2019, 16:34

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805464

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Yuri KRЕсть строка: "ВВГНГ(А) 3x2,5x10 * CFD "

Необходимо из строки, выделить сечения - 3x2,5x10
А просто

Код: vbnet

Split(StrX)(1)

чем не устраивает?

...

Рейтинг:

0 / 0

23.04.2019, 16:39

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805474

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Yuri KRВ вашем варианте "xx" - что означает ?Это вас надо спросить, что означают все эти [\d,\,] и [\x|\х]. Читайте синтаксис регулярок, я написал, как должно быть.

...

Рейтинг:

0 / 0

23.04.2019, 16:49

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805477

Yuri KR

Гость

А какой результат у вас возвращает ? - Split(StrX)(1)
У меня ошибка ....

...

Рейтинг:

0 / 0

23.04.2019, 16:49

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805486

Yuri KR

Гость

Shocker.Pro, спасибо огромное! все работает правильно....

...

Рейтинг:

0 / 0

23.04.2019, 17:07

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805613

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Yuri KRА какой результат у вас возвращает ? - Split(StrX)(1)
У меня ошибка ....Следи за руками:

...

Рейтинг:

0 / 0

24.04.2019, 08:15

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805760

Yuri KR

Гость

Akina, добрый день! Ваш вариант также работает корректно

Str2 = "ВВГнг(А) 3х1,5x10 (AB) " :? Split(Str2)(1)
3х1,5x10

Но вот есть записи, которые идут без пробела и там есть уже нюанс...

Str2 = "ВВГнг(А) 3х1,5x10(NP) *" :? Split(Str2)(1)
3х1,5x10(NP)

...

Рейтинг:

0 / 0

24.04.2019, 14:21

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805835

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Yuri KRи там есть уже нюансЭто называется "задача определена неполностью".

...

Рейтинг:

0 / 0

24.04.2019, 16:09

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39805850

Yuri KR

Гость

Akina, в принципе, да ...
Но этим можно пренебречь в данном случае из-за кол-ва таких записей и вообще обозначить условия к записям и тем, кто их присылает...
Спасибо!

...

Рейтинг:

0 / 0

24.04.2019, 16:24

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39812859

Руслан Дамирович

Участник

Откуда: Резиновая нерезиновая

Сообщения: 922

Рейтинг: 0 / 0

Yuri KR,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.

Option Explicit

Sub Test_Reg()
  Dim Str As String
  Str = "ВВГНГ(А) 3x2,5 *"
  Search_Reg (Str)
  Str = "ВВГНГ(А) 3x2,5x10 * CFD"
  Search_Reg (Str)
End Sub

Sub Search_Reg(Str As String)
  Dim objRegExp As Variant
  Dim objMatches As Variant
  Dim objMatch As Variant
  Dim cnt As Integer, i As Integer
  Set objRegExp = CreateObject("VBScript.RegExp")
  objRegExp.Pattern = "((?:\d+(?:,\d+)?x?)+)"
  Set objMatches = objRegExp.Execute(Str)
  cnt = objMatches.Count
  For i = 0 To cnt - 1
    Set objMatch = objMatches.Item(i)
    Report_Reg Str, cnt, objRegExp.Pattern, objMatch
  Next i
End Sub

Sub Report_Reg(Str As String, Count As Integer, Pattern As String, Match As Variant)
  MsgBox "В строке""" & Str & """" & Chr(13) & _
         "Найдено " & "[" & Count & "]" & Chr(13) & _
         "Вхождений по шаблону """ & Pattern & "''" & Chr(13) & _
         "Найдено сечение: " & Match & ""
End Sub

...

Рейтинг:

0 / 0

14.05.2019, 11:01

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39813360

Yuri KR

Гость

Руслан Дамирович, добрый день!

Спасибо за подсказку в оптимизации кода и приведению к стандартному виду!

...

Рейтинг:

0 / 0

15.05.2019, 09:54

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39813411

Yuri KR

Гость

Руслан Дамирович, к сожалению, регулярное выражение видит только "x" - латинское
А ''х'' - кириллица не выделяется.

Может все таки ставить x|х или [xх] - ?

...

Рейтинг:

0 / 0

15.05.2019, 10:59

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39813488

Руслан Дамирович

Участник

Откуда: Резиновая нерезиновая

Сообщения: 922

Рейтинг: 0 / 0

Yuri KRРуслан Дамирович, к сожалению, регулярное выражение видит только "x" - латинское
А ''х'' - кириллица не выделяется.

Может все таки ставить x|х или [xх] - ?
[xх] и обязательно заменять х на x в найденном

Для отладки регулярных выражений рекомендую обзавестись regexbuddy или пользоваться любым онлайн ресурсом
например, ваш пример

...

Рейтинг:

0 / 0

15.05.2019, 12:59

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39813661

Yuri KR

Гость

Руслан Дамирович, спасибо, все красиво !

Использую для он-лайн работы ресурс: https://regexr.com/

...

Рейтинг:

0 / 0

15.05.2019, 16:15

| Ответить | Цитировать | Написать

Вопрос по регулярным выражениям с использованием VBA

#39814100

Yuri KR

Гость

Руслан Дамирович,

.....[xх] и обязательно заменять х на x в найденном

Интересно, а можно ли в найденном заменять функционалом регулярных выражений ?

Например, "х" кириллицу на "x" латиницу ....

Или замена уже классическим методом выполняется?

...

Рейтинг:

0 / 0

16.05.2019, 15:12

| Ответить | Цитировать | Написать

19 сообщений из 19, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по регулярным выражениям с использованием VBA

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=39813488&tid=2172062]:	0ms
get settings:	11ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	30ms
get topic data:	11ms
get forum data:	2ms
get page messages:	55ms
get tp. blocked users:	1ms
others:	282ms

total:	413ms