lire lignes choisies

salut et bonne journée tout le monde

on suppose qu'on a ouvert un fichier ce code permet de lire toutes les lignes
et le ajouter à une listbox

    Do While Not EOF(1)
        Line Input #1, maLigne
        Liste.AddItem maLigne
    Loop

ma question est :
comment lire les lignes qu'on veut ;
et pas obligatoirement successives ?
cordialement
kysid

tu peux remplacer les 2 lignes là...
Line Input #1, Ligne
tabLignes(numLigne) = Ligne
...par celle là...
Line Input #1, tabLignes(numLigne)

ça fait une variable de moin.

Merci demon_renard 
votre aide est claire et concise 
je vais essayer ces codes ;
si pepin je vais me permettre de revenir à ce topic ;)

cordialement

salut demon_renard
excuse le nombre de ligne je tiens à etre precis :)
Je sais pas pourquoi j ai afichage de la ligne n+1 quand je met
List1.AddItem (tabLignes(n))
j'ai essayer d'afficher une certaine ligne commençant par des caractéres defini [dans un textbox] mais...
je suis pas arrivé à afficher la ligne que je veux durant l'execution.
parceque le choix ::
List1.AddItem (tabLignes(4))
est figé une fois pour toute.
j ai essayer ça

    Do While Not EOF(1)
    nbligne = nbligne + 1
    Line Input #1, strLigne
Loop

 avec

For numLigne = 0 To nbligne
List1.AddItem (tabLignes(numLigne))
Next

pour avoir au moins ligne par lignes jusqu'à la fin
mais ça donne seulement la 1ére ligne

Moralité mes debut perdurent help please!

:)
à moins que vous soyez dejà en vaccances.
je prefere pour vous :)

argh... une erreur

For numLigne = 0 To nbligne
   List1.AddItem (tabLignes(nbligne)) 'et non pas numLigne
Next numLigne

salut demon_renard
moi non plus no connextio à la maison
Merci de la correction , Prof.
Je vais appliquer ce code.
Si tu permet , une
      comment aller directement à une ligne commençant par une string particuliére?[qu'on taperais dans texboxe par exemple  ; sorte de Recherche ça dans le fichier.txt ]

Bonne journée
 

salut kysid,

Si on m'avait dit qu'un jour je pourrais aider un prof, je l'aurais jamais crue  

Text1 est le nom de la textBox dans laquel on rentre la chaîne à rechercher.
Ce code est à mettre après avoir parcourue le fichier texte donc après la boucle du Not EOF :

For i = 0 To nbligne
  If Mid(tabLignes(i), 1, Len(Text1.Text)) = Text1.Text Then
    List1.AddItem (tabLignes(i))
  End If
Next i

len indique le nombre de caractère dans la textBox
mid("salut",1,2) renvoie les 2 caractères à partir du caractère 1 soit ici "sa"

Dis moi si cela convient ou si il te faut quelque chose de plus pointue au niveau de la recherche dans le fichier texte