Boucle de recherche dans fichier texteRésolu

Question

Salut tout le monde!

Voila ce que je voudrais faire!

J'ai un fichier contenant pas loin de 50000 codes!

moi j'ai une interface avec une textbox!

je saisis un code et je clique sur un bouton qui est censé faire une
boucle dans ce fichier pour vérifier l'existance de ce code saisi!

Mais le probleme c'est qu'a priori il ne trouve rien, qqun pourrait il m'aider?

merci


voila le code que j'ai écrit :

Private Sub btnSeek_Click()

codeAChercher = Text1.Text

Dim ligne As String

Dim codefile As String

Dim trouve As Boolean

trouve = False


Open "codes_bons.txt" For Input As #1

    Do While Not EOF(1)

    Line Input #1, ligne

        If Len(ligne) <> 0 Then

        codefile = ligne

            If (codefile = code) Then

                trouve = True

                Exit Do

            End If

        End If

    Loop

            

    If trouve = True Then

      MsgBox "code trouvé"

    Else

      MsgBox "code non trouvé"

    End If

          

End Sub


merci a vous!

lolokun · Accepted Answer

Salut,

tu initialises une variable dont tu ne te sers pas après..

codeAChercher = Text1.Text

 If (codefile = codeAChercher) Then
...

jrivet · Answer

Salut,
Une fois la ligne récupérer peu etre devrait tu verifier si il n'y auraiot pas des espaces résiduels.

IDEE: Pourquoi de pas charger dans un tableau au début ton fichier puis recherhce dans ce tableau. cela eviterait les access au fichier à chaque recherche de CODE.

Quel est le format de ce code, que récupère dans le fichier ? as tu verifier "Manuellement" en debug que les lignes sont les meme

@+: Ju£i?n
Pensez: Réponse acceptée

cs_niko14 · Answer

c'est un fichier .txt avec des lignes qui ne contiennent que des codes à 6 chiffres chacun!!!
Pour le tableau en memoire je n'y avais pas pensé c'est vrai tu pourrais m'aider un peu le vb6 c'est vraiment pas ma spécialité je dois dire!!!
Mais le probleme reste quand meme entier comment se fait il que je n'arrive pas a recupérer mon code, le code que j'ai ecrit et pourtant pas si mauvais que ca je pense, si??

Niko14

cs_niko14 · Answer

Ah bah oui quel con!!!
merci lolokun je vais essayer ca forcement,
"ah bah ca va beaucoup moins bien marcher comme ca".......

Niko14

cs_niko14 · Answer

merci lolokun comme quoi un regard exterieur ca aide!!
Ca fonctionne tres bien maintenant merci bien!

Niko14

Boucle de recherche dans fichier texte

5 réponses

Votre réponse

Discussions similaires