[分享]在 ACCESS 中使用正則表達(dá)式

zhuyiwen

通過引用 Microdoft VBScript Regular Expressions 5.5 或者 Microdoft VBScript Regular Expressions 1.0, 則可以使用 VBScript 的正則表達(dá)式.

大家都知道, 正則表表達(dá)式源于 UNIX 系統(tǒng), 用來處理字符串配匹, 通常用事提取關(guān)鍵字, 對其進(jìn)行處理. 例如, 本論壇的 UBB 標(biāo)記處理, 就是通過正則表達(dá)式來完成的.

例如:

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>
    

復(fù)制代碼

[em26]

WTM1

好東東！！