Vráťte n -té slovo do reťazca textu
Nasledujúca funkcia nájde n -té slovo v reťazci:
Funkcia Find_nth_word (fráza ako reťazec, n ako celé číslo) Ako reťazec Dim Aktuálny_Pos Ako dlhý Dim Dĺžka_of_String Ako Integer Dim Current_Word_No Ako celé číslo Find_nth_word = "" Current_Word_No = 1 'Odstrániť úvodné medzery Fráza = Orezať (fráza) Length_of_String = Len (fráza) = 1 na 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 ' Odstráňte medzeru úplne vpravo Find_nth_word = Orezať (Find_nth_word) koncovú funkciu
Potrebuje dva argumenty - frázu, ktorá sa má hľadať, a číslo slova:
Find_nth_word(„Automateexcel je najobľúbenejšia stránka programu Excel na svete“, 4)
Vráti „svet“.
Ak je počet slov vo fráze menší ako zadané číslo slova, vráti sa prázdne miesto.
Takže: Find_nth_word(„Automateexcel je najobľúbenejšia stránka programu Excel na svete“, 12)
Vráti sa prázdne, pretože vo fráze „Automateexcel je svetovo obľúbená stránka programu Excel“ nie je 12 slov.
Stiahnuť ▼
Kliknite sem, ak si chcete stiahnuť súbor .XLSM z tohto článku
