RECHERCHE D'UN MOT DANS UNE PHRASE WORDEXISTS rechercher, mot, phrase, Source N°40373

Information sur la source

Catégorie :Texte

Classé sous : rechercher, mot, phrase Niveau : Initié Date de création : 18/11/2006 Date de mise à jour : 20/11/2006 19:39:55 Vu : 8 230

Auteur : riadhh05

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

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

Source

Version C# de ce code disponible !

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

    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

Historique

20 novembre 2006 19:39:55 :: Cocher l'option .Net

Sources du même auteur

Toutes les sources de riadhh05

Sources de la même categorie

Toutes les sources de la catégorie Texte

Sources en rapport avec celle ci

Commentaires

Commentaire de PCPT le 19/11/2006 02:34:46 administrateur CS

salut,
c'est du .Net non? (Flag à cocher)

et....
WordExists = (InStrB(1, Phrase, Word) > 0)
çà suffit pas?

le but d'une fonction (ici surtout) serait plus d'être appelée pour autant de mots désirés que de séparer elle-même un groupe de mots inutilement non?!

voir www.Codyx.Org pour ce genre de bout de code (s'il est valable, j'attends l'avis un dev DotNet...)
++
Commentaire de Willi le 19/11/2006 10:19:33 administrateur CS

il y a beaucoup de méthode pour rechercher un mot dans un texte. La tienne remplie son boulot,  mais peut-etre largement simplifier comme ci-dessous. Pour un dépot sur codyx voir d'abord si une méthode similaire cela n'existe pas déjà.

    Public Function WordExists2(ByVal word As String, ByVal phrase As String) As Boolean

        If phrase.IndexOf(word) <> -1 Then
            Return True
        Else
            Return False
        End If

    End Function
Commentaire de Kite37 le 19/11/2006 11:18:44

ou il y a aussi une autre manière plutot sympa mais compliquée : l'utilisation de la classe regex ;)
Commentaire de Willi le 19/11/2006 17:00:43 administrateur CS

Plus compliquée je ne crois pas....

    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
Commentaire de riadhh05 le 20/11/2006 12:38:49

Salut,
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.
Commentaire de Kite37 le 22/11/2006 19:11:45

willi, toi qui a l'air de t'y connaitre dans ce genre de chose : comment peut-on faire pour chercher un caractère bien précis (genre "é") dans une phrase?

(Car meme en utilisant unicode, vu que je crypte les données de mon Chat avant de les envoyer, les é,è,à,ù ne passent pas :( )
Commentaire de Kite37 le 22/11/2006 19:13:11

enfin (dsl du flood mais je crois m'être mal exprimé) pour retrouver ce caractère ou qu'il soit biensur :) (ainsi, qu'il soit en début, milieu, ou fin de mot, ça me le trouve quand meme a son emplaecment précis, pour me permettre de faire un replace() par la suite :) )