Qu'est devenue la fonction Format ?

Bonjour Oliver...

Essaye :

Dim strNumeroSecu As String
strNumeroSecu = String.Format("{0:# ## ## ## ### ###"}",NumeroSecu)

Bonne journée
Ghislain Proulx

"((Olivier))" <aa@aa.aa> a écrit dans le message de
news:OPIrv9mHFHA.2936@TK2MSFTNGP15.phx.gbl...

Bonjour

Qu'est devenue la fonction Format ?

Par exemple le N° de sécu :
Format(NumeroSecu, "# ## ## ## ### ###")


Merci
Olivier

((Olivier)) a écrit :

Bonjour

Qu'est devenue la fonction Format ?

Par exemple le N° de sécu :
Format(NumeroSecu, "# ## ## ## ### ###")


Merci
Olivier

sinon sert toi des expressions regulieres
a+

Salut!

Tu peux aussi passé le format directement à la fonction ToString() :
'***
Dim n As Int64 = 11234567890
Console.WriteLine(n.ToString("# ## ## ### ###"))
'***

--
Cordialement
Yanick
MVP pour Visual Basic

Par exemple le N° de sécu :
Format(NumeroSecu, "# ## ## ## ### ###")


Merci
Olivier

Ca marche.

Mon pb était que mon N° de sécu est une variable String.
Oui, car le n° de sécu peut contenir des lettres (parfois).

Donc un petit test IsNumeric(NumSecu):

CType(NumSecu, Int64).ToString("# ## ## ## ### ###")


Merci
Olivier



"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news: ODgBDcpHFHA.3500@TK2MSFTNGP14.phx.gbl...

Salut!

Tu peux aussi passé le format directement à la fonction ToString() :
'***
Dim n As Int64 = 11234567890
Console.WriteLine(n.ToString("# ## ## ### ###"))
'***

--
Cordialement
Yanick
MVP pour Visual Basic

Par exemple le N° de sécu :
Format(NumeroSecu, "# ## ## ## ### ###")


Merci
Olivier

> Donc un petit test IsNumeric(NumSecu):

IsNumeric() renvoit vrai pour toute valeur pouvant être logiquement
*interprétée* comme étant une valeur numérique en se fiant au configuration
du système.

Ex :
'***
Console.WriteLine(CultureInfo.CurrentCulture.Name)
Console.WriteLine(IsNumeric("234e9"))
Console.WriteLine(IsNumeric("234,9"))
Console.WriteLine(IsNumeric("$(234,9)"))
'***

Résultat :
fr-CA
True
True
True


Si tu veux être certain de n'avoir que des chiffres dans ta chaine, tu peux
employer une fonction comme celle-ci :
'***
Public Function IsDigitOnly(ByVal s As String) As Boolean
Return (Not s Is Nothing) AndAlso _
(s.Length > 0) AndAlso _
(Not s Like "*[!0-9]*")
End Function
'***

--
Cordialement
Yanick
MVP pour Visual Basic