Lecture Fichier .TXT

Résolu
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. 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+
    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
      1. 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.