Formater un fichier texte [Résolu]

Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
- - Dernière réponse : petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
- 1 mars 2011 à 08:35
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
Afficher la suite 

8 réponses

Meilleure réponse
Messages postés
14522
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 août 2019
133
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 122 internautes nous ont dit merci ce mois-ci

Commenter la réponse de NHenry
Messages postés
14522
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 août 2019
133
3
Merci
Bonjour,

Retirer le VBTab et mettre des espaces à la place.

Mon site

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 122 internautes nous ont dit merci ce mois-ci

Commenter la réponse de NHenry
Messages postés
14522
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 août 2019
133
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 122 internautes nous ont dit merci ce mois-ci

Commenter la réponse de NHenry
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
0
Merci
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
Commenter la réponse de petiflamand
Messages postés
14522
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 août 2019
133
0
Merci
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
Commenter la réponse de NHenry
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
0
Merci
Oui je vois mais y a t-il une solution pour ça ??

Merci
Commenter la réponse de petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
0
Merci
Bonjour,

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