regex匹配  通过引⽤ 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, "")
  End Function
  ? regular(":em26:")
  返回