Использование в запросах Access регулярных выражений
Иногда возможностей символов-заменителей уже не хватает. Проявив смекалку, вы сможете использовать в запросах регулярные выражения.
Хотя в Access допускается использование довольно мощных механизмов сравнения строк, всё же время от времени требуется использовать что-нибудь более мощное. Возможность использования регулярных выражения была добавлена корпорацией Microsoft в Windows Scripting Engine еше в версии 5.0, в дополнение к JavaScript. Вся мощь этой технологии может быть использована и в запросах Access.
Хотя в данном трюке используются не самые простые элементы регулярных выражений, приводимый здесь пример может стать для новичков первым шагом в их изучении.
Отсутствие встроенных регулярных выражений во многих случаях можно компенсировать за счет применения символов-заменителей Access, многократного вызова строковых функций Left, Mid, Right, Len и т. д. Но как только вы увидите, на что способна специально созданная функция, то наверняка сможете оценить и преимущества ее применения, и полученную при этом экономию времени.
Сначала нужно создать функцию, связанную с исполняемом библиотекой Microsoft Scripting, которую можно будет вызвать из запроса Access.
Использование данного трюка предполагает наличие последней версии Microsoft Scripting Engine, установленной на вашем компьютере. Если ВЫ не уверены в её наличии, посетите веб-сайт http://www.microsoft.com/scripting.
В следующем программном фрагменте используется функция CreateObject, поэтому его можно использовать в другой базе данных без проверки установленных ссылок на объекты:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function RegExp(str_CTpoKa As String, str_PerB As String, _
Optional bоl_ИгнРег As Boolean = False) As Boolean
Dim re As Object
Set re = CreateObject("vbscript.RegExp")
re.Pattern = str_PerB
re.IgnoreCase = bоl_ИгнРег
If re.Test(str_CTpoKa) Then
RegExp = True
Else
RegExp = False
End If
End Function
У функции есть два обязательных параметра: строка, подлежащая сравнению, и строка, содержащая регулярное выражение. Третий, необязательный, параметр может заставить функцию при проведении сравнения игнорировать регистр букв; по умолчанию регистр будет учитываться.
В качестве примера рассмотрим процесс проверки учетных номеров комплектующих, направленный на выявление номеров, не отвечающих заданным критериям. Нередко данные, получаемые от разных людей, работающих на различных компьютерных платформах, необходимо ОЧИСТИТЬ перед вводом в главную 6азу данных. Предположим, что номера комплектующих деталей, предназначенных для фабрики, должны отвечать следующим критериям:
■ они должны начинаться с заглавных букв PN или заглавной буквы Р;
■ следующие две позиции должны быть цифрами;
■ следующая позиция должна быть заглавной буквой (A-Z);
■ следующие три или четыре позиции должны быть цифрами;
■ следующие пять позиции должны быть заглавными буквами (A-Z).
Примеры учетных номеров, отвечающих этим критериям: PN12W123ABCDE и P12W123ABCDE. Примеры, не отвечающие критериям: PN12W13ABCDE (только две цифры после W) и 12W123ABCDE (не начинается с PN или Р).
С учетом набора критериев, которым должны отвечать номера комплектующих, регулярное выражение должно иметь следующий вид:
"^(РN|Р)[0-9][0-9][A-Z][0-9]{3,4}[A-Z]{5,6}$"
Чтобы лучше понять, о чем идет речь, разберем наше выражение:
■ ^ — предписание вести поиск соответствия с начала строки;
■ (PN | Р) — задание соответствия символам PN или символу Р;
■ [0-9] [0-9] — задание соответствия двум цифрам, обе из которых находятся в диапазоне от 0 до 9;
■ [A-Z] — задание соответствия одиночному символу в диапазоне от А до Z;
■ [0-9] {3,4} - задание соответствия одиночной цифре от 0 до 9, которая повторяется от трех до четырех раз;
■ [A-Z] {5,6} —задание соответствия одиночному символу от A до Z, который повторяется от пяти до шести раз.
