Selectionner un mot dans une phrase

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 905 fois - Téléchargée 42 fois

Contenu du snippet

Savais pas trop dans quel terme mettre le titre du code mais bon voilà cette function permet de trouver un mot par exemple :
TrouveMot("Salut mon keupin",1) = Salut
TrouveMot("Salut mon keupin",3) = Keupin

Source / Exemple :


Public Function TrouveMot(Phrase As String, NumWord As Integer) As String
Dim IntRendu As Single, IntText As String, NombreDeMot As Integer
    IntText = Phrase & " "
    IntRendu = 1: NombreDeMot = 1
Do While IntRendu < Len(IntText)
    If InStr(IntRendu, IntText, " ") = 0 Then
    Exit Do
    Else
        If NombreDeMot = NumWord Then TrouveMot = Left(Mid(IntText, IntRendu, Len(IntText)), InStr(Mid(IntText, IntRendu, Len(IntText)), " ") - 1)
        IntRendu = InStr(IntRendu, IntText, " ") + 1
        NombreDeMot = NombreDeMot + 1
    End If
Loop
End Function

Conclusion :


=> www.psycomaxter.fr.st

A voir également

Ajouter un commentaire Commentaires
cs_LoulouBoy
Messages postés
1
Date d'inscription
mercredi 25 février 2009
Statut
Membre
Dernière intervention
5 novembre 2009

5 nov. 2009 à 11:02
Très pratique cette fonction ; merci !
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

16 juil. 2002 à 20:21
Merci
cs_AnAcOnDa
Messages postés
30
Date d'inscription
mardi 13 novembre 2001
Statut
Membre
Dernière intervention
17 novembre 2003

8 avril 2002 à 03:31
Bah le titre
"Selectionner un mot dans une phrase"
sinon c genial

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.