Discussion :

[Danyel]

Soir All,

J'ai un petit probleme de gestion de format numerique perso.
(Je ne veux/peux pas toucher aux options regionales du systeme)

Je m'explique :
J'ai besoin d'afficher un format de nombre allant de 0 à environ +1 Milliard sans decimale (0 à 1000000000)
Mon format d'affichage doit être de ce type : #.###.###.### avec un "." tous les 3 chiffres.

A priori rien de bien complique mais je flanche !!!

J'ai essaye (tous pas bon) :
- format (x,"#.###.###.###")
- format (x,"#.###.###.###,")
- format (x,"#.###.###.##0")
puis plein d'autres ...

Celui qui se rapproche le plus, mais qui ne peux pas aller :
- format (x,"#\.###\.###\.###")
Ca affiche bien mes '.' mais si x=12000 ca donne '..12.000'

... Je vois plus rien ...

Merci pour votre aide
++ Danyel

[BCmDev]

Personnellement, j'utiliserai un IFormatProvider :

Code :

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

1
2
3
4
5
 
NumberFormatInfo numberFormatInfo = new NumberFormatInfo();
numberFormatInfo.NumberGroupSizes = new Int32[]{3, 3, 3};
numberFormatInfo.NumberGroupSeparator = ".";
String s = 1000000000.ToString("n", numberFormatInfo);

ce n'est qu'un exemple à peaufiner...

Modification : excuse-moi, je viens de m'apercevoir que je t'ai répondu en C#, mais je ne pense pas que tu auras de problème pour convertir en VB. Dans le cas contraire, fais-moi signe.

[The eye]

Sinon ton transformes ton entier en ToString et en fonction de la taille du utilises tel ou tel Format.

[Danyel]

Sinon ton transformes ton entier en ToString et en fonction de la taille du utilises tel ou tel Format.

Oui c'est ce que je pensais faire en attendant de trouver mieux.
Je suis sur la piste de BCmDev ... je vous tiens au jus.

[Danyel]

Voici la solution sur les bases de BCmDev

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim MonNumberFormat As New System.Globalization.NumberFormatInfo()
Dim MonGroupSize As Integer() = {3, 3, 3}
Dim MonGroupSeparator = "."
Dim MonGroupDecimal = 0
 
MonNumberFormat.NumberGroupSizes = MonGroupSize
MonNumberFormat.NumberGroupSeparator = MonGroupSeparator
MonNumberFormat.NumberDecimalDigits = MonGroupDecimal
 
Label.Text = Valeur.ToString("N", MonNumberFormat)

[The eye]

Interessant cette classe. ça fait moins bricolage que la solution que je te proposais

[Danyel]

Merci BCmDev, je vais chercher dans ce sens.