您的位置:首页 > 其它

[导入]匹配正则表达式的函数BOOL型(修正一下)

2006-12-26 00:06 447 查看
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

=======================
原来我写的太垃圾了,修正一下
使用示例:

if isright(useremail,"^w+([-+.']w+)*@w+([-.]w+)*.w+([-.]w+)*$") then exit sub

文章来源:http://blog.csdn.net/chsword/archive/2006/12/25/1460308.aspx
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐