VB 判断手机号码
记得引用MS VBS
Function IsPhone(ByVal s As String) As Boolean
Dim re As Regexp
Set re = New Regexp
re.IgnoreCase = False ‘设置是否匹配大小写
re.Pattern = “^861[3|5|8]\d{9}$”
IsPhone = re.Test(s)
End Function
记得引用MS VBS
Function IsPhone(ByVal s As String) As Boolean
Dim re As Regexp
Set re = New Regexp
re.IgnoreCase = False ‘设置是否匹配大小写
re.Pattern = “^861[3|5|8]\d{9}$”
IsPhone = re.Test(s)
End Function