Discussion :

[prologic]

Bonjour,

Je cherche à formater des String en numéros de téléphone. J'ai écrit la fonction suivante, mais ça ne fonctionne pas des masses. j'ai conscience que c'est un problème basique, mais je n'ai rien trouvé de probant sur le net.

Merci d'avance pour votre coup de main.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Function FormatTEL(ByVal num As String) As String
        If num <> "" Then
            If Len(num) = 10 Then
                num = Format(num, "## ## ## ## ##")
            Else
                num = Format(num, "0# ## ## ## ##")
            End If
        Else
            num = ""
        End If
 
        Return num
    End Function

[Pol63]

ce n'est pas toujours une bonne idée de vouloir formatter un numéro de téléphone, parfois ca peut commencer par +xx pour un pays et donc ca ne fait plus 10 chiffres
sinon tu peux concaténer des substring et des espaces

[prologic]

Justement, les numéros sont saisis à la main de base et introduis dans une base de données et transférés via script dans une autre BDD, mais le script dégage le 0 du début et les espaces.

[chrismonoye]

Bonjour,
à voir :

Code :

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

1
2
3
4
5
        Dim number As Integer
        Dim result As Boolean = Int32.TryParse(num, number)
        If result Then
            TextBox1.Text = String.Format("{0:0# ## ## ## ##}", number)
        End If

[prologic]

Tout bonnement parfait.

Code :

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

1
2
3
4
5
6
Function FormatTEL(ByVal num As String) As String
        Dim number As Integer
        Dim result As Boolean = Int32.TryParse(num, number)
        If result Then num = String.Format("{0:0# ## ## ## ##}", number)
        Return num
    End Function

Par curiosité, quelle est la différence en ces deux codes :

Code :

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

String.Format("{0:0# ## ## ## ##}", number)

Code :

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

Format(number, "0# ## ## ## ##")

Les fonctions Format ont des arguments différents, mais pourquoi en mettre deux du même nom ?

[chrismonoye]

Bonsoir,
je pense que nous avons 2 classes faisant le même travail grosso-modo, une de l'héritage de VB6 et une du .NET Framework.

Code :

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

Format(number, "0# ## ## ## ##")

appartient à la classe Strings héritant de Microsoft.VisualBasic

Code :

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

String.Format("{0:0# ## ## ## ##}", number)

appartient à la classe String héritant de mscorlib

To use or not use Microsoft.VisualBasic.dll
Les spécialistes nous en diront certainement plus.

[Pol63]

normalement tout ce qui traine dans microsoft.visualbasic appelle les méthodes du framework correspondantes, ca perd peut etre une pico seconde d'un appel en plus, et encore, faudrait voir le code compilé

quand aux cint, cdec et autres, ce ne sont des mots clés, qui là aussi sont compilés comme y faut

[prologic]

Merci pour ces informations.

[prologic]

Alors...

J'ai testé ca :

Code :

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

1
2
Dim d As Date
                If Date.TryParse(s, d) Then t.Text = Format(d, "dd/MM/yyyy")

Mais le code suivant ne fonctionne pas.

Code :

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

1
2
Dim d As Date
                If Date.TryParse(s, d) Then t.Text = String.Format("dd/MM/yyyy", d)

Du coup, j'ai encore du mal avec ca... j'ai regardé sur google, mais la plupart des sujet ne traite que du Format classique et non de String.Format

[Pol63]

string.format ne doit pas faire tout ...

par contre pour les dates côté framework il y a

Code :

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

madate.tostring("dd/MM/yyyy")

[chrismonoye]

Bonjour,
pour string.Format, il faut indiquer l'argument à mettre en forme, même si il n'y en a qu'un :

Code :

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

1
2
3
        Dim d As DateTime
        Dim s As String = "20 10 2013"
        If Date.TryParse(s, d) Then TextBox1.Text = String.Format("{0:dd/MM/yyyy}", d)

Il peut y en avoir plusieurs pour formater des valeurs de variables dans un texte :

Code :

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

1
2
3
4
5
6
7
8
        Dim d As DateTime
        Dim h As DateTime
        Dim dat As String = "29 11 2013"
        Dim hr As String = "15:30:00"
 
        If DateTime.TryParse(dat, d) And DateTime.TryParse(hr, h) Then
            TextBox1.Text = String.Format("Vous avez rendez vous le " & "{0:dd/MM/yyyy}" & " à " & "{1:HH \H mm}", d, h)
        End If