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"))
就可以了。