[导入]匹配正则表达式的函数BOOL型(修正一下)
Shared Function isright(ByRef s As String, ByRef right As String) As Boolean
Dim Regex As New Regex(right, RegexOptions.IgnoreCase)
Return Regex.IsMatch(s)
End Function
Dim Regex As New Regex(right, RegexOptions.IgnoreCase)
Return Regex.IsMatch(s)
End Function
原来我写的太垃圾了,修正一下
使用示例:
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
文章来源:http://blog.csdn.net/chsword/archive/2006/12/25/1460308.aspx