Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Регулярные выражения и Access VBA (!) / 8 сообщений из 8, страница 1 из 1
18.02.2021, 15:11
    #40046734
TeylorV
TeylorV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Регулярные выражения и Access VBA (!)
Доброго времени суток.
Помогите правильно написать регулярное выражение и объяснить, как встроить в дальнейшем эту функцию к полю в отчете. Уже 4 дня копаюсь, но так ни до чего и не дошел.

Примеры:
Муфта 4ПКВтнг-HF1- 10-25-Пр-Cu (АС 2 кл.)
(К 20-05-20) Муфта 4ПКВтнг-HF1- 10-25-Пр-Cu (АС 2 кл.)

В поле через регулярное выражение хочется выдернуть центральную часть текста (красная), отсекая все лишнее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2021, 16:00
    #40046761
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Регулярные выражения и Access VBA (!)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Function test2(s As String)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .IgnoreCase = True
        .Multiline = True
        .Pattern = "[\(\[].*?[\)\]]"
        
        test2 = Trim(.Replace(s, ""))
    End With
End Function


Код: vbnet
1.
2.
3.
4.
?test2("Муфта 4ПКВтнг-HF1- 10-25-Пр-Cu (АС 2 кл.)")
Муфта 4ПКВтнг-HF1- 10-25-Пр-Cu 
?test2("(К 20-05-20) Муфта 4ПКВтнг-HF1- 10-25-Пр-Cu (АС 2 кл.)")
Муфта 4ПКВтнг-HF1- 10-25-Пр-Cu
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2021, 16:37
    #40046776
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Регулярные выражения и Access VBA (!)
Я не спец в маркировке муфт,но кое-что понимаю в ACCESS
Муфта 4ПКВтнг-HF1- 10-25-Пр-Cu(АС-2 кл) как мне кажется есть какая-то маркировка,которая содержит информацию о нескольких характеристиках(материал,размеры и т.д).А одно из основных правил "базостроения" гласит что в поле должна содержаться неделимая(атомарная) единица информации. Строку гораздо проще собрать, нежели что-либо выделить из нее (по различным для каждого случая критериям).
Не проще ли обратить свой взор в сторону маркировки изделий
(как-то так:тип>материал>размеры)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2021, 16:42
    #40046779
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Регулярные выражения и Access VBA (!)
.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2021, 16:43
    #40046780
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Регулярные выражения и Access VBA (!)
.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2021, 16:53
    #40046785
DarkMan
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Регулярные выражения и Access VBA (!)
sdku
.

Вы сам с собой общаетесь ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2021, 16:54
    #40046786
Кривцов Анатолий
Кривцов Анатолий
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Регулярные выражения и Access VBA (!)
TeylorV, для вашего примера регулярные вырвжения не нужны. Находите 1-ю ")", затем 2-ю "(", и вынимаете текст между ними.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2021, 19:10
    #40046844
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Регулярные выражения и Access VBA (!)
DarkMan,
Неее,мыша заглючила....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Регулярные выражения и Access VBA (!) / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 520ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1609766]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 137ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 289ms
total:  520ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]