Discussion :

[Slumpy]

Salut,

mon probleme est le suivant. j ai des nombres decimaux que j arrondi a 6 chiffres apres la virgule. Je voudrais que lorsque j ecris ces nombres, ils soient tjs contenu dans 8 colonnes (avec l affichage des 0). Apres avoir passer un moment a chercher comment faire ca de maniere intelligente, j ai du me resoudre a prendre ma tronçonneuse. Quelqu un saurait comment on peut faire ca plus simplement et de maniere plus generale svp ?

Merci


CODE A DEUX BALLES :

Code :

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

1
2
3
4
5
6
7
8
9
10
value = Math.Round(row(2), 6)
                If value < 10 Then
                    sW.Write(value.ToString("0.000000"))
                ElseIf value < 100 Then
                    sW.Write(value.ToString("00.00000"))
                ElseIf value < 1000 Then
                    sW.Write(value.ToString("000.0000"))
                Else
                    MsgBox("arf ... !")
                End If

[roshy]

Tu peux toujours faire une loop.

Code :

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

1
2
3
4
5
6
 
Dim valueString as String = value.ToString
 
Do Until valueString.Lenght = 8
     valueString = valueString & "0"
Loop

[roshy]

Tiens, je viens d'avoir une autre idée

Code :

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

1
2
 
Format(value, "0.00000000").Substring(0, 8)

"Format(value, "0.00000000")." va mettre 8 décimales après ta valeur.

"Substring(0, 8)" va ramener ta chaîne à seulement 8 caractères.

[Philippe Vialatte]

hmmm...

a la vb :

Code :

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

1
2
 
Dim valueString as String = Left(value.ToString & "00000000",8)

[Slumpy]

Salut,

merci pour votre aide, c cool


Roshy : Héhé bonne idees, mais si je ne me trompe pas, ca ne marche que si le nombre fait au depart moins de 8 caracteres ^^


Pvialatte : J ai un message d erreur sur ta methode. Il n aime po le Left !

Merci encore