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___)
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.