技巧

热门文章

最新文章

联系方式

Access交流网

电  话：0760-88315075
热  线：0760-88315075

邮  编：528463
咨询QQ：1918333016
营销QQ：4008553990

Email：1918333016@qq.com

网  址：www.access-cn.com

VBA基础

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操作或事件已被禁用模式阻止的解决办法


相关文章

热门文章

热门产品