Discussion :

[The_Beast]

Bonjour,

Je cherche à écrire en VB une fonction de recherche dans un tableau.
Voici la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function bChercheChaineDansTableau(ByVal strChaineCherchee As String, ByRef strTTableau() As String) As Boolean
 
Dim iBoucle As Integer          'Variable de boucle
Dim bChaineTrouvee As Boolean   'Indique si la chaîne a été trouvée dans le tableau
 
bChaineTrouvee = False
If strTTableau.Length > 0 Then
    'Au moins un élément dans le tableau
    iBoucle = LBound(strTTableau)
    Do
        If strTTableau(iBoucle) = strChaineCherchee Then
            bChaineTrouvee = True
        End If
        iBoucle = iBoucle + 1
    Loop Until bChaineTrouvee Or iBoucle > UBound(strTTableau)
 
End If
 
bChercheChaineDansTableau = bChaineTrouvee
 
End Function

Pour éviter les problèmes lors de l'appel à LBound(strTTableau) si le tableau est vide, je teste avant la longueur de ce dernier (If strTTableau.Length > 0)
Dès l'entrée dans la fonction, j'ai un message "Erreur de compilation: Qualificateur incorrect" sur strTTableau de strTTableau.Length

Je ne comprends pas, quelqu'un a la solution? Merci

[OhMonBato]

Fais ton test sur UBound de ton tableau plutôt (avec détection d'erreur si le tableau est vide) et dans ta boucle pour comparer la chaine, tu peux sortir avec un "Exit Do" dès que tu trouves une chaine égale à la chaine recherchée, ça évite de balayer tout le tableau pour rien si tu trouves une correpondance dès le début.

[The_Beast]

Oui, ça a marché, merci pour ton aide
Je teste sur UBound(strTTAbleau), ce qui génère une erreur si le tableau est vide, que je récupère par un traitement particulier.

Par contre, pour ta deuxième remarque, je m'arrête de parcourir le tableau dès que je trouve une occurrence de la chaîne cherchée, c'est le but du booléen bChaineTrouvee. C'est pour ça que j'ai fait un répéter jusqu'à au lieu d'un for.
Je préfère la solution du booléen à l'exit do car j'ai des scrupules à mettre des "goto" au beau milieu de mon programme.

En tout cas, merci pour la réponse.

[OhMonBato]

Désolé, j'avais pas fait gaffe à ton test dans la boucle.
Perso je prefere un Exit Do (qui n'est pas un Goto) car ça économise un test dans la boucle.