Discussion :

[sihammaster]

bonjour,
je cherche a comment parcourir un tableau de string et rechercher dedans un mot stocké dans une variable, Merci d'avance.

[hunteshiva]

comment est ton tableau ??
montre un bout de code s'il te plait

[nasty]

Bonjour

ca doit donner un code dans le style

Code :

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

1
2
3
for cpt as integer = 0 to Tab.items.count -1
if tab.item[cpt].value = tavariable then messagebox.show("trouvé")
next

nasty

[charouel]

Code :

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

1
2
3
4
5
if tab.Contains("Le valeur") then
return "Trouvée"
else
return "Pas trouver"
End If

[cougarg]

Bonjour,

La réponse est déjà donnée, mais pour le fun :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private function TabContientVal(Byval monTab As String(), Byval valeur As String) As Boolean
 
   Dim trouve as Boolean = False
 
   For each chaine As String in monTab 
       If chaine.Contains(valeur) Then
           trouve = True
           Exit For
       End If
   Next
 
   Return trouve
 
End Function

[charouel]

ca doit marché comme ca

[StormimOn]

Plutôt que Contains, il vaut mieux utiliser la méthode IndexOf car celle-ci offre l'avantage de pouvoir préciser comment se fait la recherche (sensible à la casse ou non).

Code :

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

1
2
3
4
5
6
7
8
9
Private function TabContientVal(Byval monTab As String(), Byval valeur As String) As Boolean
   For each chaine As String in monTab 
       If chaine.IndexOf(valeur, StringComparison.OrdinalIgnoreCase) <> -1 Then
           return True
       End If
   Next
 
   Return False 
End Function

[Sankasssss]

et on peux même le faire en une condition :

Code :

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

1
2
3
4
Private function TabContientVal(Byval monTab As String(), Byval valeur As String) As Boolean
     If String.Join(" ", monTab ).IndexOf(valeur, StringComparison.OrdinalIgnoreCase) <> -1  Then Return True
     return False
End Function

On oublie encore trop souvent cette merveilleuse fonction qu'est Join

[sihammaster]

Merci pour votre aide ca marche