Lecture Fichier .TXT [Résolu/Fermé]

Signaler
Messages postés
10
Date d'inscription
mercredi 13 juin 2012
Statut
Membre
Dernière intervention
10 mars 2016
-
Messages postés
10
Date d'inscription
mercredi 13 juin 2012
Statut
Membre
Dernière intervention
10 mars 2016
-
Bonjour,


Je lis un fichier .txt via une macro VBA (en vue d'alimenter un onglet sous Excel).

Pour la lecture de chaque enregistrement, lors de l'INPUT: les 1ers "blancs" sont systématiquement enlevé (même des blancs ajoutés à la main) .

Par exemple: si j'ai " Date de Contrôle = 2016-01-01"

Le résultat obtenu par l'instruction "Input #n, MyEnregLu"
donne dans MyEnregLu = "Date de Contrôle = 2016-01-01" (les blancs au milieu sont conservés)
J'ai un fichier avec des enregistrements de format différent, et je m'appuie sur les positions pour lire tel ou tel données. Mais avec des blancs éliminés, au début, cela perturbe grandement mes traitements.

Je vous remercie par avance pour vos réponses.
LadyWolverine


3 réponses

Bonjour,

Quelle instruction utilises-tu pour lire les données?

Donne un exemple du fichier texte (quelques lignes) et le résultat attendu.

Merci
A+
Messages postés
10
Date d'inscription
mercredi 13 juin 2012
Statut
Membre
Dernière intervention
10 mars 2016
1
C'est un peu ce que j'ai fait dans mon message ;-)
Mais je vais en mettre plus .....

Ouverture du fichier:
   Const Fichier_LRP = "Nom_Du_Fichier"
n = FreeFile
Open Repetoire_Courant & "\" & Fichier_LRP & ".txt" For Input As #n


Lecture du fichier
   Input #n, MyEnregLu


Contenu du fichier:
   
Date du contrôle : 2016-01-10
Date du dépôt : 2016-01-06

No Recommandé : xxxxxxxxxxx
Réf Client à la Poste : xxxxxxxxxxxxxxxxxxxxxx
Entité Gestionnaire : xxxxxxxxxxx

Adresse Expéditeur | Adresse Destinateur
------------------------ | --------------------------------------
xxxxxxx | MLE xxxxxxx xxxxxxxxxxxxxx
|
| BAT C

(le contenu du fichier ne se colle pas bien dans le message. Mais en gros, c'est ça :-) )


Le résultat attendu: que je lise le contenu du fichier comme tel qu'il est
Alors l'instruction à utiliser est la suivante:

 Line Input #n, MyEnregLu

Line Input lit toute la ligne
Input lit une donnée, chaque donnée est séparée de la suivante par un (ou des) espace.
Messages postés
10
Date d'inscription
mercredi 13 juin 2012
Statut
Membre
Dernière intervention
10 mars 2016
1
ça marche.

Merci beaucoup