Asp.net - formatter un numéro de téléphone en affichage français

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 959 fois - Téléchargée 37 fois

Contenu du snippet

Souvent avec des applications où l'on laisse plusieurs utilisateurs gérer des données, on voit apparaître des différences dans celles-ci.
Un classique est le Numéro de Téléphone (ou Fax) qui chez certains se met en xx.xx.xx.xx.xx, d'autres xx-xx-xx-xx-xx, ou encore xx/xx/xx/xx/xx, ...

On voit donc ressortir une différence entre les données et sur un affichage de type listing, le rendu n'est pas très intéressant. Il faut donc voir à formatter cet affichage en ne tenant pas compte de ce que l'utilisateur à rentrer et en choisissant son séparateur (qui dans mon cas sera le ".").

Source / Exemple :


' La fonction est très simple et fait une suppression des caractères et
' remplace ces ponctuations par notre séparateur

' -----------------------------------------------------
Public Function FormatteTelephone(ByVal ChaineTel As String) As String
 ' Renvoie le Numéro de téléphone formatté selon le format Francais :
 '           - xx.xx.xx.xx.xx
 ' Supprime les characteres possibles (- / . \  qui peuvent se présenter)
  If ChaineTel <> "" And Not ChaineTel Is Nothing Then
   Dim Séparateur As Char = "."
   Dim Temp As String = ""
   Dim TempResult As String = ""
   Dim longueur As Integer = 0
   Dim i As Integer = 0

    ' Suppression des characteres parasites
    Temp = Replace(ChaineTel, "-", "")
    Temp = Replace(Temp, ".", "")
    Temp = Replace(Temp, "/", "")
    Temp = Replace(Temp, ";", "")
    Temp = Replace(Temp, ":", "")
    Temp = Replace(Temp, ",", "")
    Temp = Replace(Temp, "\", "")
    Temp = Replace(Temp, " ", "")

    longueur = Temp.Length
    
    If (longueur Mod 2) <> 0 Then
     longueur += 1
    End If
    For i = 0 To (longueur - 2) Step 2
     TempResult &= Mid(Temp, i + 1, 2)
    If i <> (longueur - 2) Then
     TempResult &= Séparateur
    End If
   Next
  Return TempResult
 End If
End Function

' -----------------------------------------------------
'L'appel se fait simplement comme ceci :

MonLabel.text = FormatteTelephone(Trim(MonChampTelBase))

Conclusion :


Il s'agit d'une simple fonction que vous pouvez adapter facilement.

Bon coding.

Romelard Fabrice (Alias F___)

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de jesusonline

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.