Discussion :

[maXrez]

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

[zoaax]

Bonjour,

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

Bye

[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...

[Jsh]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 (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

Merci a tous pour votre aide

[LooserBoy]

Oui, après tests, la fonction Format fonctionne bizarrement dans ce cas.
Contournement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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