✅ Найти n-е слово в текстовой строке

Содержание

Вернуть n-е слово в текстовой строке

Вернуть n-е слово в текстовой строке

Следующая функция найдет n-е слово в строке:

Функция 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 'Удалить ведущие пробелы Phrase = Trim (Phrase) Length_of_String = Len (Phrase) For Current_Pos = 1 До Length_of_String If (Current_Word_No = n) Then Find_nth_word = Find_nth_word & Mid (Phrase, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) = "") Then Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Удалите крайний правый пробел Find_nth_word = Trim (Find_nth_word) Конечная функция

Ему нужны два аргумента - фраза, которую нужно найти, и номер слова:

Find_nth_word(«Automateexcel - самый любимый в мире сайт Excel», 4)

Вернем «мир».

Пробел возвращается, если количество слов во фразе меньше указанного числа.

Так: Find_nth_word(«Automateexcel - самый любимый в мире сайт Excel», 12)
Будет возвращено пустое значение, поскольку во фразе «Automateexcel - самый любимый в мире сайт Excel» нет 12 слов.