Selectionner un mot dans une phrase

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_max12)