Fichier texte

[Résolu]
Signaler
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009
-
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009
-
Bonjour,
je possède un fichier texte déja près formaté de la manière suivante :

Fichier n°1           Le  03/01/2008
Nom  Prénom  Ville  Age
Dupond  Jacques  Paris  23
Valo  Paul  Lyon  18
   
Mon but est de reformater le fichier de manière à ce que chaque données soit alignés de cette fasson :

Fichier n°1           Le  03/01/2008
Nom        Prénom     Ville     Age
Dupond    Jacques     Paris    23
Valo         Paul           Lyon   18

Ne sachant pas comment faire je souhaiterais avoir des conseils.
Merci

4 réponses

Messages postés
491
Date d'inscription
mercredi 1 février 2006
Statut
Membre
Dernière intervention
18 novembre 2016
1
Salut,
Utilise VbTab (Tabulations)
exemple:
Nom & VbTab & Prénom & VbTab & Ville & VbTab & Age

Jimy
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Sinon, tu peux te créer un Type avec tes 4 champs dont tu définis la longueur.
Ensuite tu utilises le mode Random avec Len pour récrire ton nouveau fichier.
Type MonType
    Nom As String * 20
    Prénom As String * 20

    Ville As String * 20

    Age as Integer

End Type

Peu importe si le nom a 5 caractères, il y aura 20 caractères alloués à ce champ.

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009

Je pensais lire le fichier puis à partir de la ligne 3 jusqu'à la fin, à chaque fois récupérer la ligne est la réécrire mais je ne vois pas comment.

Open "C:\Documents and Settings\...\ygygy.out" For Input As 1
Do While Not EOF(1)
    Input #1, TextFile
         For i = 3 To LignesTotal
          ...
        Next
    Loop
    Close #1
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009

Merci j'avais essayé avec vbTab mais en faite en créant un type sa va pas mal aussi. Merci.