ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Регулярные выражения и Access VBA (!)
8 сообщений из 8, страница 1 из 1
Регулярные выражения и Access VBA (!)
    #40046734
TeylorV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TeylorV
Гость
Доброго времени суток.
Помогите правильно написать регулярное выражение и объяснить, как встроить в дальнейшем эту функцию к полю в отчете. Уже 4 дня копаюсь, но так ни до чего и не дошел.

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

В поле через регулярное выражение хочется выдернуть центральную часть текста (красная), отсекая все лишнее.
...
Рейтинг: 0 / 0
18.02.2021, 15:11
| Ответить | Цитировать | Написать  
Регулярные выражения и Access VBA (!)
    #40046761
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
Код: 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:00
| Ответить | Цитировать | Написать  
Регулярные выражения и Access VBA (!)
    #40046776
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Я не спец в маркировке муфт,но кое-что понимаю в ACCESS
Муфта 4ПКВтнг-HF1- 10-25-Пр-Cu(АС-2 кл) как мне кажется есть какая-то маркировка,которая содержит информацию о нескольких характеристиках(материал,размеры и т.д).А одно из основных правил "базостроения" гласит что в поле должна содержаться неделимая(атомарная) единица информации. Строку гораздо проще собрать, нежели что-либо выделить из нее (по различным для каждого случая критериям).
Не проще ли обратить свой взор в сторону маркировки изделий
(как-то так:тип>материал>размеры)
...
Рейтинг: 0 / 0
18.02.2021, 16:37
| Ответить | Цитировать | Написать  
Регулярные выражения и Access VBA (!)
    #40046779
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
.
...
Рейтинг: 0 / 0
18.02.2021, 16:42
| Ответить | Цитировать | Написать  
Регулярные выражения и Access VBA (!)
    #40046780
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
.
...
Рейтинг: 0 / 0
18.02.2021, 16:43
| Ответить | Цитировать | Написать  
Регулярные выражения и Access VBA (!)
    #40046785
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
sdku
.

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


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