Table des matières
Renvoyer le nième mot dans la chaîne de texte
La fonction suivante trouvera le nième mot dans une chaîne :
Fonction Find_nth_word(Phrase As String, n As Integer) As String Dim Current_Pos As Long Dim Length_of_String As Integer Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Supprimer les espaces de début Phrase = Trim(Phrase) Length_of_Posing = "" Current_Word_No = 1 = 1 To Length_of_String If (Current_Word_No = n) Then Find_nth_word = Find_nth_word & Mid(Phrase, Current_Pos, 1) End If (Mid(Phrase, Current_Pos, 1) = " ") Then Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Supprimer l'espace le plus à droite Find_nth_word = Trim(Find_nth_word) Fonction de fin
Il a besoin de deux arguments - la phrase à rechercher et le numéro du mot :
Chercher_nth_mot(« Automateexcel est le site Excel préféré au monde »,4)
Reviendra "monde".
Un espace est renvoyé si le nombre de mots dans la phrase est inférieur au nombre de mots spécifié.
Donc: Chercher_nth_mot(« Automateexcel est le site Excel préféré au monde »,12)
Reviendra vide car il n'y a pas 12 mots dans la phrase "Automateexcel ls le site Excel préféré du monde".
Télécharger
Pour télécharger le fichier .XLSM de cet article, cliquez ici
