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 211
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 211
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
Rejoignez-nous