Format d'un nombre avec les zéros devant

Version imprimable

Bonjour,

dans mon script je récupère une valeur (nombre) sur 7 caractères. Hors si mon chiffre est le 737 j'aurais comme résultat 737.
Je souhaiterais que l'affichage du MontantHT s'affiche toujours sur 7 caractères soit 0000737.

Pouvez-vous m'aidez je sèche...

voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'--- Chargement du fichier en lecture ---
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fread = Fso.OpenTextFile("\\****\administration\****\Statistique\statol\statol", ForReading)
 
    Set fwrite = fso.OpenTextFile("\\****\administration\****\Statistique\statol\statol2", ForWriting,true)
'--- Boucle de lecture du fichier AR de l'AS400 ---
     while Not fread.AtEndOfStream
'--- Lecture ligne à ligne ---
              ligne= fread.ReadLine
              Client=Mid(ligne,1,11)
              Rayon=Mid(ligne,13,1)
              Srayon=Mid(ligne,15,2)
              If Mid(Ligne,18,3)=" " then
                 MontantHT=Mid(ligne,26,7)
                 MontantRev=Mid(ligne,34,7)
                 MontantTTC=Mid(ligne,42,7)
                 fwrite.write Client & Rayon & Srayon & MontantHT & MontantRev & MontantTTC & chr(10)

merci par avance

Bonjour

Code:

1
2
3
4
5
Public Function FormatSpc(Quoi)
FormatSpc = String(7 - Len(Quoi), "0") & Quoi
End Function
 
MsgBox FormatSpc(123)

Donc pour toi

Code:

1
2
3
4
5
6
7
'. . . .
              If Mid(Ligne,18,3)=" " then
                 MontantHT=Mid(ligne,26,7)
                 MontantHT= FormatSpc(MontantHT)
' ou bien plus court
                 MontantHT= FormatSpc(Mid(ligne,26,7))
'. . . .

27/04/2010, 13h19
pitchalov

Bonjour,

Une autre technique, si ça peut t'être utile :

Code:

MontantHT = Right("0000000" & MontantHT, 7)

Donc pour toi :

Code:

MontantHT= Right("0000000" & Mid(ligne,26,7), 7)
27/04/2010, 14h30
walter_man

J'ai essayé avec la technique à pitchalov mais voici le résultat

Citation:

00701201003100 717 538 0 858
00701201003101 17966 9350 0 21488
00701201003102 13663 8591 0 16341
00701201003103 16946 10374 0 20267
00701201003104 15350 9001 0 18359
00701201003105 39422 23930 0 47149
00701201003106 10714 6171 0 12814
00701201003107 8793 5562 0 10417
00701201003108 32892 23823 0 38877
00701201003109 -2020 80 0 -2416
00701201003200003 253 154 0 302

alors que j'aurais souhaité 000071700053800000858 par exmple pour la première ligne.
27/04/2010, 15h37
walter_man

J'ai le même resultat avec la technique de Progelec....

Avant :
00701201003100 717 538 858
00701201003101 17966 9350 21488
00701201003102 13663 8591 16341
00701201003103 16946 10374 20267
00701201003104 15350 9001 18359

Apres:
00701201003100 717 538 0 858
00701201003101 17966 9350 0 21488
00701201003102 13663 8591 0 16341
00701201003103 16946 10374 0 20267
00701201003104 15350 9001 0 18359
27/04/2010, 16h10
ProgElecT

Ton énoncé au premier message n’est pas le même que tes demandes suivantes, que je n’arrive d’ailleurs pas à comprendre.
A moins que :? dans 00701201003100 717 538 858 tu ne veuilles retenir que les 3 derniers groupes de 3 chiffres, 717, 538, 858 ,auquel tu veux ajouter 4 zéro ?
27/04/2010, 16h22
walter_man

Si mon énoncé est la même ou alors je m'étais mal exprimé.

Dans mon script je récupère les 7 caractères qui forme le montantHT

Code:

MontantHT=Mid(ligne,26,7)

Mais si mon MontantHT est inférieur à 7 caractères comme 717 par exemple, je souhaiterais tout de même garder mon chiffre sous 7 caractères soit 0000717

J'aurais donc un resultat du type :

000071700005380000858

au lieu de :

717 538 858.

J'espère mettre bien expliqué :oops:

:calim2:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function Result(Expression)
Dim Decoupes
Decoupes = Split(Expression)
Result = String(7 - Len(Decoupes(1)), "0") & Decoupes(1)
Result = Result & String(7 - Len(Decoupes(2)), "0") & Decoupes(2)
Result = Result & String(7 - Len(Decoupes(3)), "0") & Decoupes(3)
 
End Function
 
 
dim LeChiffrage
LeChiffrage = "00701201003100 717 538 858"
msgbox Result(LeChiffrage)

:calim2:

J'ai presque réussi à faire ce que je souhaitait:

Code:

1
2
3
4
 
                 MontantHT = Ltrim(Mid(ligne,26,7))
                 nb =(7 - Len(MontantHT))
                 MontantHT = String(nb, "0") & MontantHT

mon seul soucis est au niveau des chiffres négatif...

Code:

1
2
3
4
5
6
 
00701201003209008  000029	
00701201003209009  000109	
00701201003209099  0-2197	
0070120100330000300000031	
0070120100330000302000009

je voudrais que 0-2197 soit écrit comme ceci -02197

J'avance j'avance ...

Code:

1
2
3
4
5
6
7
8
9
 
MontantHT = Ltrim(Mid(ligne,26,7))
                 nb =(7 - Len(MontantHT))
                 MontantHT = String(nb, "0") & MontantHT
                 pos=(InStr(1,MontantHT,"-"))
                 If pos <> 0 then
                 MontantHT=(Replace(MontantHT,"0","-",1,1))
 
                 End If

voici le résultat obtenu :

Code:

1
2
3
4
5
 
00701201003108     032892	
00701201003109     --2020	
00701201003200003  000253	
00701201003200009  000464

Ensuite je supprime le signe - en trop mais la j'ai un problème

Code:

1
2
 
MontantHT=(Replace(MontantHT,"-","0",pos))

Car ce code supprime le signe - à la position 2 (pos) mais automatiquement il supprime les caractère à gauche.
Resultat :

Code:

1
2
3
4
5
 
00701201003108     032892	
00701201003109     02020	
00701201003200003  000253	
00701201003200009  000464

comment est-ce que je peux garder mon 1er caractères??

Code:

1
2
3
4
5
6
7
8
9
 MontantHT = Ltrim(Mid(ligne,26,7))
                 nb =(7 - Len(MontantHT))
                If left(MontantHT,1) = "-" then
                        MontantHT = replace(MontantHT,"-","")
                        nb = nb-1
                        MontantHT = "-" & String(nb - Len(MontantHT), "0") & MontantHT
                        Else
                        MontantHT = String(nb, "0") & MontantHT
                 End If

Peut être.

J'ai trouvé !!!!

Code:

1
2
3
4
5
6
7
8
9
 
                 MontantTTC = Ltrim(Mid(ligne,42,7))
                 pos=(InStr(1,MontantTTC,"-"))
                 nb =(7 - Len(MontantTTC))
                 MontantTTC = String(nb, "0") & MontantTTC
                 If pos <> 0 then
                    MontantTTC = replace(MontantTTC,"-","0")
                    MontantTTC=(Replace(MontantTTC,"0","-",1,1))
                 End If

Ça fait plaisir :)