1

これを行うためのより簡単な方法がなければなりません。

「電話番号のインポート」という電話番号クラスの関数を作成しようとしています。どこかに10桁の文字列を取り（そして拡張子を考慮に入れて）、それらを独自のプロパティ（AreaCode、Prefix、Suffix、およびExtension（aaa-ppp-ssss-xxxx ...））にインポートする必要があります。

正規表現を使用して入力をチェックし、それが有効であることを確認します。次に、これらの部分をそれぞれのプロパティにトークン化します。私が持っているものはこのように見えます（不完全）：

Public Sub ImportPhoneNumber(ByVal anyNumber As String)
    'phone number is 10-digits long, e.g.: 012-345-6789
    Dim reg_exp_10 As New Regex("^((\D*)\d(\D*)){9}((\D*)\d){1}(((x|ext){1}(\d)+)?|\D*)$", RegexOptions.IgnoreCase)

    If reg_exp_10.IsMatch(anyNumber) Then
        Dim areacode As String = HRITS.Constants.DEFAULT_STRING_VALUE
        Dim prefix As String = HRITS.Constants.DEFAULT_STRING_VALUE
        Dim suffix As String = HRITS.Constants.DEFAULT_STRING_VALUE
        Dim loadExtension As Boolean = False
        Dim count As Integer = 0
        'for each char in anynumber, is it a number? concatenate it onto holder number
        For Each i As Char In anyNumber
            'first 3 hits, load areacode
            If count < 3 Then
                If Char.IsDigit(i) Then
                    areacode = String.Concat(areacode, i)
                    count = count + 1
                End If
            End If
            'second 3 hits, load prefix
            If count >= 3 AndAlso count < 6 Then
                If Char.IsDigit(i) Then
                    prefix = String.Concat(prefix, i)
                    count = count + 1
                End If
            End If
            'third 4 hits, load suffix
            If count >= 6 AndAlso count < 10 Then
                If Char.IsDigit(i) Then
                    suffix = String.Concat(suffix, i)
                    count = count + 1
                End If
            End If

            If count >= 10 Then
                If i.ToString = "x" Then
                    loadExtension = True
                ElseIf i.ToString = "e" Then

                End If
            End If

        Next
    Else
        Throw New Exception(ErrorMessages.PhoneNumber.INVALID_NUMBER)
    End If

End Sub

何か案は？

4

1 に答える 1

1

どうぞ：

/(\d{3})\D*(\d{3})\D*(\d{4})\D*(\d*)/

それぞれキャプチャグループ1〜4の市外局番、プレフィックス、サフィックス、拡張子。

于 2010-01-25T23:12:01.797 に答える