✅ Намерете n -тата дума в низ от текст

Съдържание

Върнете n -та дума в низ от текст

Върнете n -та дума в низ от текст

Следната функция ще намери n -тата дума в низ:

Функция Find_nth_word (Фраза като низ, n като цяло число) Като низ Ниво Current_Pos колкото дълъг 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) Тогава 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) Крайна функция

Нужни са два аргумента - фразата, която трябва да се търси, и думата номер:

Find_nth_word(„Automateexcel е любимият сайт на Excel в света“, 4)

Ще върне „света“.

Връща се празно място, ако броят на думите във фразата е по -малък от посочения номер на думата.

Така: Find_nth_word(„Automateexcel е любимият сайт на Excel в света“, 12)
Ще се върне празно, тъй като няма 12 думи във фразата „Automateexcel е любимият сайт на Excel в света“.