petite fonction permetant de rechercher dans une chaine de caracteres de plusieurs mots
et revoie vrai si trouve ou faux si pas
exemple d'utilisation
If MultiCherche("coucou ceci est un Texte", "ARG1 ARG2 ARG3 ARG4", " ") = True Then
MsgBox "Ok"
End If
Source / Exemple :
Public Function MultiCherche(Texte As String, Recherche As String, Separateur As String) As Boolean
Dim Arguments() As String
Dim e As Integer
Dim Inc As Integer
'stoke les arguments dans un tableau !
Arguments() = Split(Recherche, Separateur) 'ps split ne fonctionne que a partir de vb6
'si trouve un argument alors incremente inc
For e = 0 To UBound(Arguments)
If InStr(Texte, Arguments(e)) Then
Inc = Inc + 1
End If
Next e
'si le nombre d'arguments trouvé = le nmbr d'arguments donnée alors retourne true
If Inc = UBound(Arguments) + 1 Then
MultiCherche = True
Else
MultiCherche = False
End If
End Function
Conclusion :
c'est un code tres simple mais qui peut etre utile pour les debutant !
voili
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.