通过引用 Microsoft 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 = "/[aem(.[^/[]*)/]"
regular = re.Replace(str, "<img src=pic/aem$1.gif border=0 align=middle>") End Function
====================================================
Debug.Print regular("[aem26]")
返回: <img src=pic/aem26.gif border=0 align=middle>