Discussion :

[tibofo]

Bonjour,

Je fait des print dans un fichier txt en output.

Code :

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

1
2
3
4
5
 
 MONTANTAVECVIRGULE = "0000000000000000" & rst("EC_Montant")
 MONTANTSANSVIRGULE = Replace(CStr(MONTANTAVECVIRGULE), ",", "")
 MONTANTSANSVIRGULE = LTrim$(Right$(MONTANTSANSVIRGULE, 15))
Print #1, MONTANTSANSVIRGULE;

J'ai 2 questions : y-at'il simple (ou propre) comme codification pour faire ce que je fais.
Ici une variable Montant qui doit être sur 15 caractères sans virgule cadrée à droite


et aussi pour cette expression :

Code :

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

Print #1, "             ";   ' champ libre sur 13 caractères

Je dois faire la même chose mais pour 200 espaces qui se suivent
Y'a t'il + simple que de m'amuser à taper (et à compter) 200 espaces ??

Merci

[ThierryAIM]

1) regarde la fonction Format

2) regarde la fonction Space

[tibofo]

Merci

j'ai trouvé grâce à toi :

Code :

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

1
2
Print #1, Space(199);
Format(15.47, "0000.##")  'affichera 0015.47

sinon j'ai trouvé aussi ceci :

Code :

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

1
2
3
4
 
Dim Nom As String * 5
Nom = "1234567890O234567890V234567890T234567890Q234567890"
Print #1, Nom   ' Affichera que 5 caractères

[ThierryAIM]

Attention toutefois aux strings de longueur fixe, car justement, elles ont une longueur fixe

et si dans ton exemple, tu initialises Nom="123", la string Nom = "123__" (les _ pour te montrer les espaces contenus dans la chaine)

[iclic]

ThierryAIM
1) regarde la fonction Format

Une question à ThierryAIM

C'est vrai la fonction format est pratique ,mais est-ce qu'elle ne dépend pas des paramètres de Windows?
C'est pourquoi parfois je préfère alors utiliser les fonctions Lset ou Rset pour cadrer à droite où à gauche et ne pas dépendre des paramètres de Windows.
Quel est ton avis?

A+