Регулярные выражения в MS Access VBA?

Мне определенно нравится MS Access как RAD-Tool для приложений с ограниченным объемом данных с небольшим объемом. Но одна вещь, которую я действительно пропускаю, поскольку .Net-Developer - это регулярные выражения. Они действительно пригождаются при проверке ввода пользователя. Я действительно не знаю, почему Microsoft не поместила их в стандартную VBA-библиотеку.

Есть ли способ использовать регулярные выражения в MS Access VBA?

Ответ 1

Вы можете использовать Vexcript Regex Object, добавив ссылку на библиотеку регулярных выражений Microsoft VBScript.

Пример использования:

Dim szLine As String  
Dim regex As New RegExp  
Dim colregmatch As MatchCollection  

With regex  
   .MultiLine = False  
   .Global = True  
   .IgnoreCase = False  
End With  

szLine = "Analyzed range (from-to)  10  100"  

regex.Pattern = "^Analyzed range"  
If regex.Test(szLine) Then  
   regex.Pattern = ".*?([0-9]+).*?([0-9]+)"  
   Set colregmatch = regex.Execute(szLine)  

   'From  
    Debug.Print colregmatch.Item(0).submatches.Item(0)  
    'To  
    Debug.Print colregmatch.Item(0).submatches.Item(1)  
End If

Источник: http://mark.biek.org/blog/2009/01/regular-expressions-in-vba/

Ответ 2

Вы можете использовать CreateObject("vbscript.regexp") или просто ссылаться на библиотеку сценариев.