✅ Finden Sie das n-te Wort in einer Textzeichenfolge - VBA-Codebeispiele

Inhaltsverzeichnis

Gibt das n-te Wort in einer Textfolge zurück

Gibt das n-te Wort in einer Textfolge zurück

Die folgende Funktion findet das n-te Wort in einem String:

Funktion 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 'Führende Leerzeichen entfernen Phrase = Trim(Phrase) Foren(_Phrase . L) = 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 ' Entfernen Sie das Leerzeichen ganz rechts Find_nth_word = Trim(Find_nth_word) End Function

Es braucht zwei Argumente - den zu suchenden Ausdruck und die Wortnummer:

Find_nth_word(„Automateexcel ist die beliebteste Excel-Site der Welt“,4)

Wird "Welt" zurückgeben.

Ein Leerzeichen wird zurückgegeben, wenn die Anzahl der Wörter in der Phrase kleiner ist als die angegebene Wortnummer.

So: Find_nth_word(„Automateexcel ist die beliebteste Excel-Site der Welt“,12)
Wird leer zurückgegeben, da der Satz "Automateexcel ist die beliebteste Excel-Site der Welt" nicht 12 Wörter enthält.