✅ Знайдіть n -е слово у рядку тексту - Приклади коду VBA

Зміст

Повернути n -е слово у рядку тексту

Повернути n -е слово у рядку тексту

Наступна функція знайде n -е слово в рядку:

Функція Find_nth_word (Фраза як рядок, n як ціле число) Як рядок 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 (фраза) = 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) = "") Тоді Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Видаліть крайній правий пробіл Find_nth_word = Trim (Find_nth_word) Функція завершення

Для цього потрібні два аргументи - фраза, яку потрібно шукати, і слово номер:

Знайти_мінне_слово(«Automateexcel - улюблений у світі сайт Excel», 4)

Поверне "світ".

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

Так: Знайти_мінне_слово(«Automateexcel - улюблений у світі сайт Excel», 12)
Повернеться порожнім, оскільки у фразі «Automateexcel ls улюблений у світі сайт Excel» немає 12 слів.