Open "c:\test.txt" For Input As #1 While Not EOF(1) Input #1, LigneX I = I + 1 LC = "Ligne : " & I For I = 1 To ListMot.ListItems.Count If ListMot.ListItems(I).ListSubItems(1).Text = "False" Then 'ça veut dire qu'on a pas encore trouvé le mot If InStr(LigneX, ListMot.ListItems(I).Text) > 0 Then ListMot.ListItems(I).ListSubItems(1).Text = "True" 'on remet l'état à true et on la zap prochainement End If End If Next Wend Close #1
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question