RECHERCHE DANS FICHIER AVEC MOTS CLES DANS LISTBOXRésolu

Question

Bonjour,

Voici le soucis sur lequel je bute. Voici le contexte :

A partir de mots clés renseignés dans une listbox, je dois lire dans un fichier txt les enregistrements. Si ils contiennent les mots clés de la listbox, je dois les réécrire dans un autre fichier.

Je fais autant de lecture du fichier datas.txt que d'items renseignés dans la listbox.
La boucle commence bien, se positionne sur le dernier item de la listbox, enregistre les lignes du fichier datas.txt contenant le mot clé dans le fichier tri.txt. Mais ensuite, la boucle ne passe pas a l'item précédent de la listbox. Et c là mon problème.

Voici le code :

Open (App.Path & "\datas.txt") For Input As #10
Open (App.Path & "	ri.txt") For Output As #11
   
dim item as string
 
For i = listbox.ListCount - 1 To 0 Step -1
    Do While Not EOF(10)
        Line Input #10, lignelue
        item = Mid(lignelue, 34, 7)
        If item = listbox.list(i) Then Print #11, lignelue
    Loop
Next i

Si qqun peut me dire où ça coince, je suis preneur.
Merci bcp de votre aide

jmfmarques · Accepted Answer

Do While Not EOF(10)
  Line Input #10, lignelue
  item = Mid(lignelue, 34, 7)
  For i = listbox.ListCount - 1 To 0 Step -1
     If item = listbox.list(i) Then Print #11, lignelue
  next  
Loop


et n'oublie pas les close, hein...

jmfmarques · Answer

Tu devrais faire exactement le contraire : mettre dans ta boucle de lecture des lignes du fichier la boucle for --- Next de comparaison avec les articles de ta listbox.

drikce06 · Answer

Salut, tu as regardé pas à pas voir ce qui cloche, car la boucle fort fonctionne bien.



 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

RECHERCHE DANS FICHIER AVEC MOTS CLES DANS LISTBOX

3 réponses

Votre réponse

Discussions similaires