Recherche d'un mot dans une phrase wordexists

Commenter

Contenu du snippet

rechercher un mot dans une phrase,
s'il existe retourne vrai
Remarque: supporte "*"

Source / Exemple : 


Public Function WordExists(ByVal Word As String, ByVal Phrase As String) As Boolean
        Dim i, j As Integer
        Dim SSplit() As String

        WordExists = True
        Word.Trim()
        SSplit = Word.Split("*")  ' Supports wildcards
        Dim FragmentExist(SSplit.Length) As Boolean
        For i = 0 To SSplit.Length - 1
            FragmentExist(i) = phrase.Contains(SSplit(i))
            j = phrase.IndexOf(SSplit(i)) + SSplit(i).Length
            If j > phrase.Length Then j = phrase.Length - 1
            If FragmentExist(i) Then phrase = phrase.Substring(j)
            WordExists = WordExists And FragmentExist(i)
        Next
    End Function

Conclusion :


J'espère que ce code aiderait,
j'attends une amélioration et vos commentaires

A voir également

S'inscrire maintenant

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.

Du même auteur (riadhh05)