Format numéro de téléphone

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:

---

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

---

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

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.

Bonjour,
à voir :

Code:

---

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

---

Tout bonnement parfait.

Code:

---

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:

---

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

---

Code:

---

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

---

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

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:

---

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

---

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

Code:

---

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.

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

Merci pour ces informations.

Alors...

J'ai testé ca :

Code:

---

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:

---

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

string.format ne doit pas faire tout ...

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

Code:

---

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

---

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

Code:

---

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:

---

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

---