Fichier texte

Résolu
neg03 Messages postés 95 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 3 juillet 2009 - 20 mai 2008 à 09:53
neg03 Messages postés 95 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 3 juillet 2009 - 20 mai 2008 à 12:15
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

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

Jimy
3
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 23
20 mai 2008 à 11:06
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
3
neg03 Messages postés 95 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 3 juillet 2009
20 mai 2008 à 09:58
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
0
neg03 Messages postés 95 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 3 juillet 2009
20 mai 2008 à 12:15
Merci j'avais essayé avec vbTab mais en faite en créant un type sa va pas mal aussi. Merci.
0
Rejoignez-nous