Fichiet TXT

Résolu
bayadkarim
Messages postés
22
Date d'inscription
vendredi 20 décembre 2013
Statut
Membre
Dernière intervention
26 janvier 2015
- 13 janv. 2015 à 12:42
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
- 13 janv. 2015 à 14:42
Bonjour,
Je voudrais savoir svp comment je dois récupérer la 2eme lignes dans un fichier
ou bien la 3 lignes

merci d'avance

2 réponses

ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
235
13 janv. 2015 à 12:47
Bonjour,
en commençant par l'ouvrir en lecture.
Reviens s'il te plait avec le code tenté après avoir lu ce que te dit ton aide VB6 ouverte à la rubrique Instruction Open.

0
bayadkarim
Messages postés
22
Date d'inscription
vendredi 20 décembre 2013
Statut
Membre
Dernière intervention
26 janvier 2015

13 janv. 2015 à 12:59
Bonjour,
voci le code que j'ai mis :

Dim TextLine
Dim f As Integer
f = FreeFile
Open ".\path.txt" For Input As #f ' Ouvre le fichier.
Do While Not EOF(f) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #f, TextLine ' Lit la ligne dans la variable.
Loop
Close #f

pour info mon fichier txt contient 2 ligne exe

C:\Documents and Settings\Bureau\app\IN
C:\Documents and Settings\
0
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
235
13 janv. 2015 à 14:42
Hé bien ...
Le code, tel que tu l'as écrit, lit chaque ligne du fichier, une par une, dans ta boucle While.
Si tu veux lire la ligne 2, ajoute-lui donc un petit compteur tout bête et affiche Textline lorsque ce compteur = 2 !
Ce que tu cherches à mettre dans une variable est tout bêtement le contenu de TextLine lorsque ton compteur = 2 !

Je ne comprends vraiment pas comment tu peux avoir une difficulté avec ce qui est aussi rudimentaire.
0