Soyez le premier à donner votre avis sur cette source.
Snippet vu 20 154 fois - Téléchargée 26 fois
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
(Car meme en utilisant unicode, vu que je crypte les données de mon Chat avant de les envoyer, les é,è,à,ù ne passent pas :( )
Merci pour les commentaires, mais je penses que WordExists2 ne permet pas d'utiliser des fragments de mots.
Par contre pour rechercher plusieurs mots dans une phrase d'utiliser la fonction WordExists(ByVal Word As String, ByVal Phrase As String)en séparant chaque mot par "*"
example: mots à chercher ="Bonjour tout le monde"
Replace(mots à chercher , " ", "*")
puis appeler la fonction wordexist(mots à chercher , phrase)
le résultat est exclusif, tous les mots doivent exister en même temps.
Function WordExists(ByVal word As String, ByVal phrase As String) As Boolean
Return Text.RegularExpressions.Regex.IsMatch(phrase, word, Text.RegularExpressions.RegexOptions.IgnoreCase)
End Function
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.