Перевод строки в регулярное выражение

Пользователь

Сообщений: 47 Регистрация: 22.01.2019

13.06.2019 14:41:01

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

В файле в столбце А представлены номера, из которых я хочу получить регулярные выражения. В столбце B - результат работы макроса или udf.
Первый символ "№" учитывать не нужно.

Прикрепленные файлы

Пример.xlsx (10.19 КБ)

Sanja

Модератор

Сообщений: 16500 Регистрация: 10.01.2013

13.06.2019 14:50:58

Цитата
Awallon написал: В столбце B - результат работы макроса или udf.

В файле нет ни макроса ни UDF. В *.xlsx они не приживаются в принципе

Согласие есть продукт при полном непротивлении сторон

artyrH Пользователь Сообщений: 2054 Регистрация: 01.07.2018	#3 13.06.2019 14:56:44 Awallon, так нужно? Прикрепленные файлы regexp.xlsm (31.69 КБ)

msi2102 Пользователь Сообщений: 3766 Регистрация: 31.03.2014	#4 13.06.2019 15:26:56 Я понял в обратную сторону надо, текст в регулярное выражение

Awallon

Пользователь

Сообщений: 47 Регистрация: 22.01.2019

13.06.2019 15:36:42

Sanja, Добрый день. Обращаю внимание: "Теперь хочется обратную возможность: перевести строку в регулярное выражение." - т.е. не в файле уже есть макрос или функция. Я не решил эту задачу, прошу помощи.

artyrH, Нет, такая функция у меня есть. Необходимо данные в строках в столбце А превратить в данные в строках в столбце В

msi2102, Если это вопрос, то да. Строку в регулярное выражение.

Sanja

Модератор

Сообщений: 16500 Регистрация: 10.01.2013

13.06.2019 16:48:17

Цитата
Awallon написал: Я не решил эту задачу, прошу помощи

Аааа, перепутал я.
А Ваши попытки можно увидеть? Вы пытались ее сами решить? А то вот вообще не представлю с какого боку подойти к решению. Не в качестве издевки - правда интересно

Согласие есть продукт при полном непротивлении сторон

buchlotnik

Пользователь

Сообщений: 3863 Регистрация: 31.10.2014

Excel 365 Бета-канал

13.06.2019 16:58:45

Цитата
Sanja написал: с какого боку подойти

~~первое, что в голову пришло:~~ плохо пришло - см. ниже

Изменено: buchlotnik - 13.06.2019 22:57:11

Соблюдение правил форума не освобождает от модераторского произвола

buchlotnik

Пользователь

Сообщений: 3863 Регистрация: 31.10.2014

Excel 365 Бета-канал

13.06.2019 19:37:25

Помучил немного:

Скрытый текст

Код

Function regexp2$(s$)
    Str_ = Right(s, Len(s) - 1)
    With CreateObject("VBScript.RegExp")
        Do
            st = Left(Str_, 1)
            p = "[A-zА-я]"
            .Pattern = p
            If .Test(st) Then
                .Pattern = p & "+"
                l = Len(.Execute(Str_)(0))
                rez = rez & p
                If l <> 1 Then rez = rez & "{" & l & "}"
                Str_ = Right(Str_, Len(Str_) - l)
            End If
            p = "\d"
            .Pattern = p
            If .Test(st) Then
                .Pattern = p & "+"
                l = Len(.Execute(Str_)(0))
                rez = rez & p
                If l <> 1 Then rez = rez & "{" & l & "}"
                Str_ = Right(Str_, Len(Str_) - l)
            End If
            p = "\s"
            .Pattern = p
            If .Test(st) Then
                .Pattern = p & "+"
                l = Len(.Execute(Str_)(0))
                rez = rez & p
                If l <> 1 Then rez = rez & "{" & l & "}"
                Str_ = Right(Str_, Len(Str_) - l)
            End If
            p = "[\\\^\$\*\+\?\.\(\)]"
            .Pattern = p
            If .Test(st) Then
                rez = rez & "\" & Left(Str_, 1)
                Str_ = Right(Str_, Len(Str_) - 1)
            End If
            p = "[^A-zА-я\d\s\\\^\$\*\+\?\.\(\)]"
            .Pattern = p
            If .Test(st) Then
                rez = rez & Left(Str_, 1)
                Str_ = Right(Str_, Len(Str_) - 1)
            End If
        Loop While Len(Str_) > 0
    End With
    regexp2 = rez
End Function

Прикрепленные файлы

Пример (4).xlsm (20.47 КБ)

Изменено: buchlotnik - 13.06.2019 22:27:57

Соблюдение правил форума не освобождает от модераторского произвола

Андрей VG

Пользователь

Сообщений: 11926 Регистрация: 22.12.2012

Excel 2016, 365

13.06.2019 19:58:45

Доброе время суток.

Цитата
Awallon написал: научился

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

msi2102

Пользователь

Сообщений: 3766 Регистрация: 31.03.2014

#10

14.06.2019 07:27:59

Андрей VG, посмотри здесь https://www.planetaexcel.ru/techniques/7/4844/
buchlotnik, объединил две Ваших функции regexp и regexp2, теперь если забить формулу "=regexp(A2;1)" то будет первый вариант, если "=regexp(A2)" то второй. Добавлю Вашу функцию к своей надстройке, хорошее дополнение.

Прикрепленные файлы

Пример (4).xlsm (20.77 КБ)

БМВ

Модератор

Сообщений: 23279 Регистрация: 28.12.2016

Excel 2013, 2016

#11

14.06.2019 07:37:39

Фраза дня ,

Цитата
msi2102 написал: Андрей VG , посмотри здесь https://www.planetaexcel.ru/techniques/7/4844/

msi2102, Расшифрую

Цитата
Андрей VG написал: Лет десять ковыряю регулярки, но не могу сказать, что научился.

Цитата
Awallon написал: Работать с регулярными выражениями научился.

означает что ТС узнал о такой возможности и научился применять простейшие, а звучит как - освоил в совершенстве за пару часов, на что Андрей и немного язвит, ибо или ТС талантище или гайд был супер.

По вопросам из тем форума, личку не читаю.

msi2102 Пользователь Сообщений: 3766 Регистрация: 31.03.2014	#12 14.06.2019 07:47:56 БМВ, А зачем Вы мне это расшифровываете, Андрей VG, спросил по каким учебникам он учился, я ему ответил по каким он учился Изменено: msi2102 - 14.06.2019 07:48:19

artyrH Пользователь Сообщений: 2054 Регистрация: 01.07.2018	#13 14.06.2019 07:55:34 msi2102, ну вы даете

msi2102

Пользователь

Сообщений: 3766 Регистрация: 31.03.2014

#14

14.06.2019 07:58:03

Цитата
msi2102 написал: Андрей VG , посмотри здесь https://www.planetaexcel.ru/techniques/7/4844/

Извините, забыл поставить в конце

Так понятней

Awallon Пользователь Сообщений: 47 Регистрация: 22.01.2019	#15 14.06.2019 08:29:57 buchlotnik, Отлично! Именно то, что я хотел. С одной поправкой: можете разбить латиницу и кириллицу отдельно? Чтобы не "[А-яA-z]" было, а "[А-я]" и "[A-z]" отдельно друг от друга.

buchlotnik

Пользователь

Сообщений: 3863 Регистрация: 31.10.2014

Excel 365 Бета-канал

#16

14.06.2019 08:37:51

Цитата
Awallon написал: можете разбить

могу, я бы ещё Ё учитывал (необязательный аргумент):

Скрытый текст

Код

Function regexp2$(s$, Optional yo%)
    Str_ = Right(s, Len(s) - 1)
    With CreateObject("VBScript.RegExp")
        Do
            st = Left(Str_, 1)
            p = "[A-z]"
            .Pattern = p
            If .Test(st) Then
                .Pattern = p & "+"
                l = Len(.Execute(Str_)(0))
                rez = rez & p
                If l <> 1 Then rez = rez & "{" & l & "}"
                Str_ = Right(Str_, Len(Str_) - l)
            End If
            If yo Then p = "[А-яЁё]" Else p = "[А-я]"
            .Pattern = p
            If .Test(st) Then
                .Pattern = p & "+"
                l = Len(.Execute(Str_)(0))
                rez = rez & p
                If l <> 1 Then rez = rez & "{" & l & "}"
                Str_ = Right(Str_, Len(Str_) - l)
            End If
            p = "\d"
            .Pattern = p
            If .Test(st) Then
                .Pattern = p & "+"
                l = Len(.Execute(Str_)(0))
                rez = rez & p
                If l <> 1 Then rez = rez & "{" & l & "}"
                Str_ = Right(Str_, Len(Str_) - l)
            End If
            p = "\s"
            .Pattern = p
            If .Test(st) Then
                .Pattern = p & "+"
                l = Len(.Execute(Str_)(0))
                rez = rez & p
                If l <> 1 Then rez = rez & "{" & l & "}"
                Str_ = Right(Str_, Len(Str_) - l)
            End If
            p = "[\\\^\$\*\+\?\.\(\)]"
            .Pattern = p
            If .Test(st) Then
                rez = rez & "\" & Left(Str_, 1)
                Str_ = Right(Str_, Len(Str_) - 1)
            End If
            p = "[^A-zА-я\d\s\\\^\$\*\+\?\.\(\)]"
            .Pattern = p
            If .Test(st) Then
                rez = rez & Left(Str_, 1)
                Str_ = Right(Str_, Len(Str_) - 1)
            End If
        Loop While Len(Str_) > 0
    End With
    regexp2 = rez
End Function

Прикрепленные файлы

Пример (4) (3).xlsm (20.85 КБ)

Соблюдение правил форума не освобождает от модераторского произвола

Awallon Пользователь Сообщений: 47 Регистрация: 22.01.2019	#17 14.06.2019 09:07:02 buchlotnik, Вообще отлично! Буду разбираться. Ваша помощь сократила мне работу на несколько дней!)