Rechercher une ligne dans un fichier texte

[Franck]

Bonjour a tous

Voila je veux recuperer des données d'un fichier texte.txt vers un listbox
mon code resemble a ça

Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, MyString
If compt = 6 Then
compt = 0
B1.AddItem
End If
If MyString = "Null" Then MyString = ""
B1.List(B1.ListCount - 1, compt) = MyString
compt = compt + 1
Loop
Close #1

Ca marche tres bien mais le debut de mon fichier texte contient des données d'ordre generale qu'il ne m'interesse pas de recuperer
Je souhaiterai donc commancer a importer les données a partir de la ligne 8 du fichier texte

Merci de votre aide
Franck

 

[wilfried_42]

Re : Rechercher une ligne dans un fichier texte

Bonjour franck

for i = 1 to 7 : line input #1, mystring : next i
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, MyString

 

[Franck]

Re : Rechercher une ligne dans un fichier texte

Bonjour wilfried_42
et merci pour ton aide - Ca devrai marcher

Franck

PS : Chez mois le forum ne met pas les compteurs a jour ??