Boucles imbriquées

Question

Voila je suis un peu novice avec VB6 et j'ai du mal a imbriquer 2 boucles. 1 for et 1 while.
En quelques mots j'ai crée des combinaisons de 6 chiffres dans un fichier .txt et je veux crée a la volée des combinaisons de 10 chiffres qui vont chercher dans le txt toutes les combinaisons a 6 chiffres s'y rapportant.
Voici sommairemment mon prog :

for i = 1 to 40
   for j = i + 1 to 41
       'autant de For jusk'a 49
        TempStr= i & "," & j ......
        while not EOT(1) 
                Line Input #1, StrFic
                ComparerChiffre  StrFic, Tempstr
       wend
    next
next

Mon probleme vient du fait qu'une seule combinaison de 10 est créee. Il va donc bien la comparer avec les combi du Txt mais il ne repasse pas dans les FOR pour aller crée d'autres combinaisons. Y a un truc que je n'ai pas du saisir.

Merci de votre aide
OMS

cs_moustachu · Answer

heu... EOT(1)  c'est pas plutot EOF(1)

++
Moustachu

cs_ITALIA · Answer

End Of File ...si je ne m'abuse

It@li@

OneManShow · Answer

Oui merci mais c'est bien EOF dans mon prog je me suis juste trompé dans mon message.

cs_rene38 · Answer

Salut
Je crois que le problème vient dans la boucle
While ... Wend.
Quand elle se termine, EOF = True donc au prochain
passage (Next), la boucle While ... Wend ne sera
pas exécutée.

Remède : après le Wend, ajouter :

Seek #1, 1

qui signifie : dans le fichier #1, se positionner à
l'octet n° 1 c'est à dire au début du fichier.

OneManShow · Answer

Merci bien ca marche impec !

Boucles imbriquées

5 réponses

Discussions similaires