begin process at 2012 02 16 14:43:20
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

 > RECHERCHE D'UN MOT DANS UNE PHRASE WORDEXISTS

RECHERCHE D'UN MOT DANS UNE PHRASE WORDEXISTS


 Information sur la source

Note :
Aucune note
Catégorie :Texte Source .NET ( DotNet ) 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 :17 428
Auteur : riadhh05

Ecrire un message privé
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

  • 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

Source avec Zip Source .NET (Dotnet) REDIRECTION D'UNE APPLICATION CONSOLE VERS UN TEXTBOX
Source avec Zip Source avec une capture Source .NET (Dotnet) CLASS POUR IMPRIMER UNE DATAGRIDVIEW
Source .NET (Dotnet) ANNULER UNE OPÉRATION EN BOUCLE PAR APPUI DE LA TOUCHE ECHAP
Source avec Zip Source .NET (Dotnet) LECTURE D'UN TABLEAU XML
Toutes les sources de riadhh05

 Sources de la même categorie

Source avec Zip Source avec une capture MASQUE DE SAISIE NUMÉRIQUE par acive
Source avec Zip Source .NET (Dotnet) COMPTEUR DE NOMBRE DE MOTS DANS UN TEXTE par alpha5
Source avec Zip Source avec une capture HM - BLOCNOTE par hassenmajor
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture PERSONNALISEZ VOS BOÎTES DE MESSAGE (X)HTML par medjahedScript
Toutes les sources de la catégorie Texte

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture [VBS] IMG2HTML RECHERCHER LES DIFFÉRENTS TYPES D'IMAGES ET L... par hackoo
Source .NET (Dotnet) ORDRE ALPHABÉTIQUE par michael59330
Source avec Zip CHUCK NORRIS par Softmama
SELECTIONNER UN MOT DANS UNE PHRASE par max12
Source avec Zip RECHERCHER DU TEXTE DANS UN TEXTBOX ET LE REMPLACER PAR UN A... par Francki

Commentaires et avis

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 :)  )

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Rechercher et Remplacer [ par Ismael ] Je voudrais écrire une macro qui recherche dans un classeur excel un mot (voiture) et le remplacer par un autre mot (camion)Merci d'avance. voir si un mot est dans le textbox [ par Alexandre Gauthier ] je veux que:j'ai un fichier avec certain mot a chaque lignela je veut marquer une phrase dans un textbox et en clickant sur command1 que sa analyse ch Rechercher des mot et les remplacer [ par Gabriel ] bonjour... si j'ai le texte ci dessous:Bonjour TOTO salut 12345 tref abc qwertry salut 244444 kloJe veux rechercher tous les mot "salut"et les remplac rechercher et remplacer du texte [ par spok ] Bonjour,Je désire rechercher dans tout les fichiers word d 'un repertoire le mot "hello", si il s y trouve rechercher le mot "salut" et le remplacer p Rechercher un mot dans un fichier [ par SatanCorporation ] Bonjour a tous !!!Je cherche a savoir comment rechercher un mot qui est placé dans un fichier.J'attend avec impatience vos reponces!!!Merci d'avanceSa rechercher un mot dans un combo [ par seb41 ] j'ai un combobox avec plusieurs lignes et je souhaite rechercher un mot clé a l'intérieur.comment faire?merci d'avance. Un mot à rechercher dans ma base de données [ par petite bille ] Bonjour à tous et meilleur voeux !J'apprend à travailler avec Visual Basic 5 à l'aide un petit manuel. J'en suis à travailler sur les bases de données [VBa Excel] comment rechercher un mot dans un document word [ par steir ] bonjour à tous et à toutes, Je travaille sur excel en vba, j'ai un probleme il faut que je fasse une recherche par mot clé dans des documents word. Si Couper une phrase dans un textbox sans couper un mot... [ par sachab ] Bonjour,Je voudrais couper une phrase dans un TextBox au caractère 60, mais si ca tombe en plein sur un mot je voudrais que sa coupe dans un espace av Nombre de mots dans une phrase et mot le plus long [ par SUBMAIN ] Voila je voudrais savoir comment faire un programme qui saisisse une phrase et affiche :-le nombre de mots dans cette phrase.-Le mot le plus long et l


Nos sponsors


Sondage...

Comparez les prix


Archos 5 Internet Tablette 500 Go
Entre 396€ et 444€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,855 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)