Lire la n-ième ligne d'un fichier .txt ?

Question

Bonjour à tous,

J'aimerais extraire des informations à partir d'un fichier texte pour les réutiliser dans mon programme.

Voici ce que j'ai pour l'intstant

Open "C:	estdatei.txt" For Input As #1
Input #1, Montexte
Close
MsgBox(Montexte, 0 + 64, "Info")

Mon problème: Comment réussir à lire la deuxième ligne, ou de manière plus générale la n-ième ligne de mon texte. Cela paraît simple, mais je n'y arrive pas encore...

Merci de votre aide

oliver68 · Answer

salut,

ajoute  do while not eof() /// loop pour le faire lire jusqu'à la fin
et pour voir juste la Nieme ligne, ajoute un compteur (représenté par i=i+1) et un inputbox

dim ligne as integer
dim i as integer
ligne=inputbox("Quelle ligne")
i=0

Open "C:	estdatei.txt" For Input As #1
do while not eof(1)
    i=i+1
    Input #1, Montexte
       if i=ligne then 
        montremoi = MsgBox(Montexte, 0 + 64, "Info")
        close
        exit sub
       end if

loop
close

Le blème c'est si ton fichier comporte des virgules (le code lira ce qu'il y a après la virgule comme un nouveau record), alors si c'est le cas, remplace d'abord les virgules par autre chose...

voili le principe. Pitêtre il y a mieux.

ZTPdiffusion · Answer

Salut,

Pour éviter le problème des virgules remplacer la ligne :

Input #1, Montexte

par

Line Input #1, Montexte

Là, le programme lira la ligne entièrement.

a+   8-)

oliver68 · Answer

ben oui bienzur, line input, petite tête ( :shy) ) que je suis sur ce coup là !!! Je devrais manger du poisson cette semaine.

oliver68 · Answer

ben oui bienzur, line input, petite tête ( :shy) ) que je suis sur ce coup là !!! Je devrais manger du poisson cette semaine.
@+++

webzied · Answer

salut a tous 
il y a un problem :
  - Comment lire une champs de se linge "    FileName|REG_SZ|iexplore.exe"
avec le cod vb6
Merci

Lire la n-ième ligne d'un fichier .txt ?

5 réponses

Discussions similaires