VB中如何使用正则表达式

VB6.0中

在'项目'中的’Referance’中选择Microsoft VBScript Regular Expression 5.5 确定

 

Function   RegExpTest(patrn,   strng)  
      Dim   regEx,   retVal '   建立变量。  
      Set   regEx   =   New   RegExp '   建立正则表达式。  
      regEx.Pattern   =   patrn '   设置模式。  
      regEx.IgnoreCase   =   False '   设置是否区分大小写。  
      retVal   =   regEx.Test(strng) '   执行搜索测试。  
      If   retVal   Then  
          RegExpTest   =   "找到一个或多个匹配。"  
      Else  
          RegExpTest   =   "未找到匹配。"  
      End   If  
  End   Function 

测试的时候在sub main里面写MsgBox (RegExpTest("is.", "IS1   is2   IS3   is4"))

就可以了。