импортировать телефонные номера из строки в vb.net - PullRequest
Новая
       10

импортировать телефонные номера из строки в vb.net

1 голос
/ 26 января 2010

Должен быть более простой способ сделать это.

Я пытаюсь записать функцию для класса телефонных номеров, которая называется "импортировать телефонный номер". Он должен где-то взять любую строку с 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

есть идеи?

1 Ответ

1 голос
/ 26 января 2010

Вот и мы: 

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

Код города, Префикс, Суффикс, Расширение в группах захвата с 1 по 4 соответственно.

...