Recherche de plusieurs arguments dans une chaine de texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 650 fois - Téléchargée 40 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaire

cs_slayer
Messages postés
202
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 mars 2008
-
heu , ben bizar mais ton truc marche pas chez moi !!!

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.