VBA基础
Access使用正则表达式
2013-08-28 17:44:26
所谓正则表达式就是用来匹配字符串的，通常用来检索或替换那些符合的内容。如：提取电话号码，或者判断输入的是否为真实的身份证。
在使用之前，需先引用 Microdoft VBScript Regular Expressions 5.5 或者 Microdoft VBScript Regular Expressions 1.0, 才可以使用 VBScript 的正则表达式.
如下面的示例：
Public Function regular(str)
Dim re As New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "\[em(.[^\[]*)\]"
regular = re.Replace(str, "<img src=pic\em$1.gif border=0 align=middle>")
End Function
==============================================================================
Debug.Print regular("[em26]")
返回:
<img src=pic\em26.gif border=0 align=middle>
扩展：
正则表达式30分钟入门教程： http://www.office-cn.net/forum.php?mod=viewthread&tid=116282
继往开来--用正则表达式提取信息示例： http://www.office-cn.net/forum.php?mod=viewthread&tid=116555