Access使用正则表达式

所谓正则表达式就是用来匹配字符串的，通常用来检索或替换那些符合的内容。如：提取电话号码，或者判断输入的是否为真实的身份证。

在使用之前，需先引用 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

发布人:zhuyiwen-office中国

分享到：

点击次数：更新时间：2013-08-28 17:44:26 【打印此页】【关闭】

上一条：access技巧-中文显示星期几的简单方法下一条：access操作或事件已被禁用模式阻止的解决办法