Office中国论坛/Access中国论坛

标题: [分享]在 ACCESS 中使用正则表达式 [打印本页]

作者: zhuyiwen 时间: 2002-10-14 05:51
标题: [分享]在 ACCESS 中使用正则表达式
通过引用 Microdoft VBScript Regular Expressions 5.5 或者 Microdoft VBScript Regular Expressions 1.0, 则可以使用 VBScript 的正则表达式.

大家都知道, 正则表表达式源于 UNIX 系统, 用来处理字符串配匹, 通常用事提取关键字, 对其进行处理. 例如, 本论坛的 UBB 标记处理, 就是通过正则表达式来完成的.

例如:

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>

复制代码

[em26]

作者: WTM1 时间: 2002-10-14 16:36
好东东！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)