| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- pc端验证手机号，这个代码行吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188198) |
| -- 作者：zhangjian222200 -- 发布时间：2023/9/7 8:38:00 -- pc端验证手机号，这个代码行吗？ \'验证手机 Dim pattern As String = "^[1][345789][0-9]{9}$" Dim txt_shouJi = e.Form.Controls("text_shouJi").Value \'定义,手机 Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase) If txt_shouJi = "" Then Messagebox.Show("手机不能为空") Return End If If rgx.isMatch(txt_shouJi) = False Then Messagebox.Show("请输入正确的手机号") Return End If
|
| -- 作者：有点蓝 -- 发布时间：2023/9/7 9:08:00 -- 现在号段越来越多，很快就不适用了。个人表示只需要判断是不是1开头的，11位长度的数字即可。 Dim s As String = "1234567890" Dim b As Long If s.StartsWith("1") AndAlso s.Length = 11 AndAlso Long.TryParse(s, b) Then MsgBox("正确") Else MsgBox("bu正确") End If 说不定很快2开头的号段就出来了，到时再改代码吧 |
| -- 作者：rogen -- 发布时间：2023/9/7 10:15:00 -- 我就遇到过，朋友找人写的小程序，手机号注册时，提示手机号不合法 就是限制了号段，有些地区开放了新号段 只好不停的修正验证规则
|