Dim str As String = "123456,erer@qq.com"Dim reg As new System.Text.RegularExpressions.Regex("^[a-z0-9]+([._\\-]*[a-z0-9])*@([a-z0-9]+[-a-z0-9]*[a-z0-9]+.){1,63}[a-z0-9]+$")msgbox(reg.IsMatch(str))
加好友 
发短信
Post By：2015/6/17 10:20:00 [显示全部帖子]
