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

Signaler
-
Messages postés
9
Date d'inscription
mardi 30 octobre 2007
Statut
Membre
Dernière intervention
29 novembre 2007
-
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:\testdatei.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

5 réponses

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:\testdatei.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.

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-)
ben oui bienzur, line input, petite tête ( :shy) ) que je suis sur ce coup là !!! Je devrais manger du poisson cette semaine.
ben oui bienzur, line input, petite tête ( :shy) ) que je suis sur ce coup là !!! Je devrais manger du poisson cette semaine.
@+++
Messages postés
9
Date d'inscription
mardi 30 octobre 2007
Statut
Membre
Dernière intervention
29 novembre 2007

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