Formater un fichier texte [Résolu]

Signaler
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
-
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
-
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

8 réponses

Messages postés
14733
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 octobre 2020
146
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
Messages postés
14733
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 octobre 2020
146
Bonjour,

Retirer le VBTab et mettre des espaces à la place.

Mon site
Messages postés
14733
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 octobre 2020
146
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
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
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
Messages postés
14733
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 octobre 2020
146
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
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
Oui je vois mais y a t-il une solution pour ça ??

Merci
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
Bonjour,

J' ai déja essayé ces pire ils ont presque tous décaller
Print #1, colonne1 & "  " & colonne2 & "  " & colonne3
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
Bonjour et merci Henry
Ces nikel