VB6中不使用正则表达式实现国际电话号码格式校验

需求说明 #

需要在VB6环境下不使用正则表达式完成国际电话号码校验，规则如下：

• 输入仅允许出现数字、半角圆括号()、加号+，兼容号码常用分隔符半角空格、半角短横线-
• 号码中提取的有效数字总长度需小于20位
• 兼容常见国际号码格式，支持的合法样例：
  • +44 779-345666
  • +44 (0)779345666
  • 0779 345666
  • 0208-3456667

原有代码缺陷 #

当前基础代码仅支持纯数字校验，存在以下问题：

• 调用IsNumeric判断会将+、()、分隔符等合法格式字符判定为非法
• 长度校验直接统计输入字符串总长，没有过滤格式字符统计有效数字长度
• 错误提示文案和校验逻辑不匹配
  原有代码如下：

private sub txtPhoneNo_validate ( cancel As boolean)
 if txtPhoneNo = "" then exit sub
 if not Isnumeric(txtPhoneNo) then
    msgbox "phone number shold be in numeric only"
 Elseif len(txtPhoneNo) > 20
    msgbox "phone number shold be in numeric only"
    Exit sub
 end if
end sub

修正后完整代码 #

逐字符遍历做校验，不依赖任何外部组件，完全适配要求：

Private Sub txtPhoneNo_Validate(Cancel As Boolean)
    Dim inputStr As String
    Dim i As Integer
    Dim c As String
    Dim digitCount As Long
    Dim hasPlus As Boolean
    Dim invalidChar As Boolean
    
    ' 空值不拦截
    If Trim(txtPhoneNo.Text) = "" Then Exit Sub
    
    inputStr = txtPhoneNo.Text
    digitCount = 0
    hasPlus = False
    invalidChar = False
    
    For i = 1 To Len(inputStr)
        c = Mid(inputStr, i, 1)
        Select Case c
            ' 数字字符，有效计数+1
            Case "0" To "9"
                digitCount = digitCount + 1
            ' 加号仅允许出现在号码首位
            Case "+"
                If i <> 1 Then
                    invalidChar = True
                    Exit For
                End If
                hasPlus = True
            ' 半角括号、空格、短横线为合法格式/分隔符，直接跳过
            Case "(", ")", " ", "-"
            Case Else
                ' 其余字符均为非法
                invalidChar = True
                Exit For
        End Select
    Next i
    
    ' 非法字符拦截
    If invalidChar Then
        MsgBox "电话号码仅允许包含数字、加号(+)、半角圆括号，可使用空格、短横线作为分隔符", vbExclamation
        Cancel = True
        txtPhoneNo.SetFocus
        Exit Sub
    End If
    
    ' 有效数字长度校验
    If digitCount >= 20 Then
        MsgBox "电话号码有效数字长度不能超过19位", vbExclamation
        Cancel = True
        txtPhoneNo.SetFocus
        Exit Sub
    End If
    
    ' 可选校验：带+的国际号码数字长度建议不小于7位，可按需开启
    ' If hasPlus And digitCount < 7 Then
    '     MsgBox "国际号码长度过短，请检查输入", vbExclamation
    '     Cancel = True
    '     txtPhoneNo.SetFocus
    '     Exit Sub
    ' End If
End Sub

逻辑说明 #

• 逐字符遍历输入内容，跳过合法格式字符，仅统计0-9数字的总长度，避免格式符占用长度配额
• 额外增加了加号位置校验，符合国际号码+仅能出现在首位的通用规范
• 拦截非法输入时自动将焦点拉回输入框，符合VB6表单交互习惯
• 预留了短号码校验的可选逻辑，可根据业务需求决定是否开启

内容的提问来源于stack exchange，提问作者Abhishek Reddy