Lecture Fichier .TXT

Résolu
ladywolverine95 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
ladywolverine95 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
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

  1. Yoda
     
    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
  2. ladywolverine95 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   2
     
    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
    1. Yoda
       
      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
  3. ladywolverine95 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   2
     
    ça marche.

    Merci beaucoup
    0