Discussion :

[walter_man]

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 :

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

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

[ProgElecT]

Bonjour

Code :

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

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 :

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

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))
'. . . .

[pitchalov]

Bonjour,

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

Code :

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

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

Donc pour toi :

Code :

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

MontantHT=  Right("0000000" & Mid(ligne,26,7), 7)

[walter_man]

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

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.

[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

[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 ?