Regular expressions

Gør det uden RegExp.

Herunder er en funktion, som formatere ved at indsætte et mellemrum efter hver anden numeriske karakter. Den fjerner også alle andre tegn end + så du burde kunne anvende den på dine oprindelige data. Hvis du heller ikke er interesseret i + så fjerner du blot den else der er på isnumeric testen.

Function formatPhone(strRawPhone)
    Dim iChar
    Dim currentChar
    Dim strPhoneFormatted
    Dim nNumerics

    nNumerics = 0
    For iChar = 1 to Len(strRawPhone)
        currentChar = Mid(strRawPhone, iChar, 1)
        If IsNumeric(currentChar) Then
            strPhoneFormatted = strPhoneFormatted & currentChar
            nNumerics = nNumerics + 1
            If 2 = nNumerics Then
                strPhoneFormatted = strPhoneFormatted & " "
                nNumerics = 0
            End If
        Else
            If "+" = currentChar Then
                strPhoneFormatted = strPhoneFormatted & currentChar
            End If
        End if
    Next

    formatPhone = trim(strPhoneFormatted)
End Function

Joeh. det virker, men jeg skulle egentlig bruge noget med regular expression, da den skulle kunne noget mere end dette. Men pyt. jeg tweaker lidt på koden, og så går den.