[分享]在 ACCESS 中使用正则表达式

zhuyiwen

通过引用 Microdoft VBScript Regular Expressions 5.5 或者 Microdoft VBScript Regular Expressions 1.0, 则可以使用 VBScript 的正则表达式.

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

例如:

1. 
   
2. Public Function regular(str)
   
3.     Dim re As New RegExp
   
4.    
   
5.     re.IgnoreCase = True
   
6.     re.Global = True
   
7.    
   
8.     re.Pattern = "\[em(.[^\[]*)\]"
   
9.     regular = re.Replace(str, "<img src=pic\em$1.gif border=0 align=middle>")
   
10. End Function
    
11. ==============================================================================
    
12. Debug.Print regular("[em26]")
    
13. 返回:
    
14. <img src=pic\em26.gif border=0 align=middle>
    

复制代码

[em26]

WTM1

好东东！！