Znajdź n-te słowo w ciągu tekstu - przykłady kodu VBA

Zwróć n-te słowo w ciągu tekstu

Poniższa funkcja znajdzie n-te słowo w łańcuchu:

Function Find_nth_word(Fraza As String, n As Integer) As String Dim Obecna_Pos As Long Dim Długość_of_String As Integer Dim Aktualne_Słowo As Integer Znajdź_nth_słowo = "" Bieżące_Słowo = 1 = 1 To Length_of_String If (Bieżące_słowo = n) Then Find_nth_word = Znajdź_n-te_słowo & Mid(Phrase, Current_Pos, 1) End If (Mid(Phrase, Current_Pos, 1) = " ") Then Obecne_Słowo_No = Aktualne_słowo + 1 End If Następne Aktualne_Pozy ' Usuń spację z prawej strony Find_nth_word = Trim(Find_nth_word) End Function

Potrzebne są dwa argumenty - fraza, która ma zostać przeszukana i numer słowa:

Znajdź_nth_słowo(„Automateexcel jest ulubioną witryną Excela na świecie”,4)

Zwróci „świat”.

Puste jest zwracane, jeśli liczba słów we frazie jest mniejsza niż określona liczba słów.

Więc: Znajdź_nth_słowo(„Automateexcel jest ulubioną witryną Excela na świecie”,12)
Zwróci puste, ponieważ nie ma 12 słów w wyrażeniu „Automateexcel jest ulubioną witryną Excela na świecie”.

Pobierać

Aby pobrać plik .XLSM z tego artykułu, kliknij tutaj