Chercher une donne dans un fichier

Question

bon ... fait comme 1 semaine que je "gosss" sur ce petit problème ...

Open "C:\Documents and Settings\Rifer\My Documents\Mafiozo\Mafiozo" + txtLogin.Text + ".dat" For Input As nbrfile
Do While Not EOF(nbrfile)
Input #nbrfile, Donnee
On Error Resume Next
Fichier = Fichier + Donnee
Loop
Close nbrfile

Dim LogS As Integer
Dim LogF As Integer
LogS InStr("[Login" + txtLogin.Text + "]", "password")LogS InStr(LogS, "Password")
LogS = LogS + Len(LogS)
LogF = InStr(LogS, Fichier)

If Mid(Fichier, LogS, LogS - LogF) = txtPass.Text Then ......

Bon comme vous le voyez sa va chercher dans un fichier une donné pour que le mo t de passe soi bon ... Cela ne marche pas pentoute a chaque fois il ya  erreur ...
merci vous ètes des anges

cs_radada · Answer

C'est à quel niveau que cela bloque??? Tu a débogger à la mano pour voir d'où venait l'erreur????

ld40 · Answer

c'est peu fouilli, mais j'ai l'impression que LogS - LogF est toujours négatif , et donc que mid ne peut pas fonctionner...
 :question)

cs_radada · Answer

Mets des breakpoint (F9) à chaque instruction critique et regardes les valeurs de tes <> variables (en laissant la souris dessus), comme ça, tu verra à quel endroit cela merde.... C'est le mieux encore je crois....

Chercher une donne dans un fichier

3 réponses

Discussions similaires