Formater un numéro de téléphone.

Version imprimable

07/01/2008, 11h01
maXrez

Formater un numéro de téléphone.

Bonjour, j'ai actuellement, dans une base de donnée des numéros de téléphones écrits sous la forme : 0123456789 (tout attaché) et j'aimerais les faire apparaitre sur mon site sous la forme 01 23 45 67 89 (avec des espaces) pour plus de lisibilité. Existe t'il une fonction pour faire cela simplement?

Merci d'avance :)
07/01/2008, 13h18
zoaax

Bonjour,

je ne pense pas mais tu pourrais développer ta propre fonction.

Bye
07/01/2008, 15h41
LooserBoy

Si tu peux le faire en utilisant la fonction Format de la classe string en lui spécifiant une chaîne de formatage : "00 00 00 00 00".
En espérant que cela t'aide...

Voici un petit bout de code qui, en l'adaptant à ton besoin, pourrait te servir je pense :

Citation:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
    * ' 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))

08/01/2008, 16h03
maXrez

Merci Jsh, au début je me suis penché sur la fonction String.Format que me proposait LooserBoy, mais je n'ai pas réussi a obtenir ce que je voulais :mur: (bien que je pense que c'est aussi faisable avec), et du coup, j'ai adapté a mes besoins le script du lien que tu m'a fourni :P

Merci a tous pour votre aide ;)
08/01/2008, 16h34
LooserBoy
Oui, après tests, la fonction Format fonctionne bizarrement dans ce cas.
Contournement:
Code:

1 2 3 4 Dim no As String = "0123456789" '... Console.WriteLine(Convert.ToInt32(no).ToString("00 00 00 00 00"))
Résultat --> 01 23 45 67 89