Prob de boucle !!!

Bonsoir,
Je vous explique : Je suis en trainde créer un peit prog qui lit un fichier texte et qui doit comparer les lettre une par une de ce fichier (que j'affiche dans un textbox) avec la ligne que je tape dans un autre textbox et si je tape une mauvaise lettre cela ne doit rien marqué et refaire jusqu'a que je tape la bonne lettre !
J'arrive a récupérer les lettre une par une mais mon probleme est que lorsque je tape une mauvaise lettre je sais pas comment remonté dans la boucle pour refaire la comparaison !

Si vous pouvoez m'aidez !

Merci !!

Elle est où ta boucle ??

Tu ne peux pas mettre ton code ici ?


Manu

je sais pas si ca marche mais tu peut faire un truc comme:
'ta boucle
for ? = ? to ????
if ??????? then
partie1: 'c'est pour revenir apres
'la tu met ton code
else
'la tu met aussi ton code
end if

apres tu fais un Call partie1 (tu peut mettre partie1 ou tu veut) exemple:
partie1: 'c'est pour revenir apres
for ? = ? to ????
if ??????? then
'la tu met ton code
else
'la tu met aussi ton code
end if

VirusMan
une idée est un chose ,la dire en est une autre

je sais pas si caal marche mais si il marche pas tuu met GoTo a la place
VirusMan
une idée est un chose ,la dire en est une autre

Dim Ligne As String
Dim Lg As Integer
Dim x As Integer
Dim c As Integer

Private Sub Form_Load()
Dim nom As String

nom = "C:\monfichier.txt"
Open nom For Input As #1
Line Input #1, Ligne
Close #1
Lg = Len(Ligne)
x = 1: c = Asc(Mid$(Ligne, x, 1))
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
If x > 0 Then
x = x - 1: c = Asc(Mid$(Ligne, x, 1))
End If
Exit Sub
End If
If KeyAscii = c Then
If x < Lg Then
x = x + 1: c = Asc(Mid$(Ligne, x, 1))
Else
MsgBox "C'est terminé"
Exit Sub
End If
Exit Sub
End If
KeyAscii = 0

End Sub