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
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.