Formater un fichier texteRésolu

Question

Bonjour ,
je vais surement me faire allumer , mais je trouve pas d'autre solution.
je prend des données dans un Msflxgrid(3 colonnes).et les transfert dans un fichier texte.Si vous pouviez me donner une autre solution
Merci

gg = 50 - Len(colonne1)
For d = 1 To gg
    colonne1 = colonne1 & " "
Next d
gg = 18 - Len(colonne2)
For d = 1 To gg
    colonne2 = colonne2 & " "
Next d
gg = 18 - Len(colonne3)
For d = 1 To gg
    colonne3 = colonne3 & " "
Next d
Print #1, colonne1 & vbTab & colonne2 & vbTab & colonne3

NHenry · Accepted Answer

Bonjour,

gg = 50 - Len(colonne1)
For d = 1 To gg
    colonne1 = colonne1 & " "
Next d

Peut se simplifier en :
colonne1 =Left$(colonne1 & space$(50),50)

Mon site

petiflamand · Answer

Bonjour Henry et merci
mais cela me donne des problemes
je fait comme ceci
colonne1 = Left$(colonne1 & Space$(50), 50)
colonne2 = Left$(colonne2 & Space$(18), 18)
colonne3 = Left$(colonne3 & Space$(18), 18)
et je recois ça

NHenry · Answer

Bonjour,

C'est dû à cette ligne :
Print #1, colonne1 & vbTab & colonne2 & vbTab & colonne3
Tu ajoutes une tabultation, fais le test avec le bloc note et à la main :
aa
Ensuite entre ces 2 a, tu mets une tabulation.
Puis ajoute des lettres au début de la ligne et tu verras.

Mon site

petiflamand · Answer

Oui je vois mais y a t-il une solution pour ça ??

Merci

NHenry · Answer

Bonjour,

Retirer le VBTab et mettre des espaces à la place.

Mon site

petiflamand · Answer

Bonjour,

J' ai déja essayé ces pire ils ont presque tous décaller
Print #1, colonne1 & "  " & colonne2 & "  " & colonne3

NHenry · Answer

Bonjour,

C'est aussi normal, tu n'utilises pas une fonte à chasse fixe, càd, une police de caractère où chaque caractère à la même dimension que ses copains.

Il faut utiliser une police de type Courier New par exemple.

Mon site

petiflamand · Answer

Bonjour et merci Henry
Ces nikel

Formater un fichier texte

8 réponses

Votre réponse

Discussions similaires