Lecture Fichier .TXT

Résolu/Fermé
ladywolverine95 Messages postés 9 Date d'inscription mercredi 13 juin 2012 Statut Membre Dernière intervention 10 mars 2016 - 10 mars 2016 à 15:52
ladywolverine95 Messages postés 9 Date d'inscription mercredi 13 juin 2012 Statut Membre Dernière intervention 10 mars 2016 - 10 mars 2016 à 16:38
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


A voir également:

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+
0
ladywolverine95 Messages postés 9 Date d'inscription mercredi 13 juin 2012 Statut Membre Dernière intervention 10 mars 2016 2
Modifié par ladywolverine95 le 10/03/2016 à 16:06
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
0
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.
0
ladywolverine95 Messages postés 9 Date d'inscription mercredi 13 juin 2012 Statut Membre Dernière intervention 10 mars 2016 2
10 mars 2016 à 16:38
ça marche.

Merci beaucoup
0