✅ Pronađite ntu riječ u nizu teksta

Sadržaj

Vrati n -tu riječ u nizu teksta

Vrati n -tu riječ u nizu teksta

Sljedeća funkcija će pronaći n -tu riječ u nizu:

Funkcija Find_nth_word (izraz kao niz, n kao cijeli broj) kao niz Dim Dim Current_Pos Sve dok je Dim Dim Length_of_String As Integer Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Ukloni vodeće razmake Phrase = Trim (Phrase) Length_of_String = Len (Phos) Current = 1 Za Dužinu_Stringa Ako (Trenutni_Rod_No = n) Zatim Nađi_mj_word = Nađi_mj_govor & Sredina (Fraza, Trenutni_Pos, 1) Završi Ako Ako (Sredina (Fraza, Trenutni_Pos, 1) = "") Tada Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Uklonite krajnji desni prostor Find_nth_word = Trim (Find_nth_word) Krajnja funkcija

Potrebna su dva argumenta - izraz koji se traži i riječ broj:

Find_nth_word(“Automateexcel je omiljena Excel stranica na svijetu”, 4)

Vratit će se “svijet”.

Prazno se vraća ako je broj riječi u frazi manji od navedenog broja riječi.

Tako: Find_nth_word(“Automateexcel je omiljena Excel stranica na svijetu”, 12)
Vratit će se prazno jer nema 12 riječi u frazi "Automateexcel ls the worlds omiljena Excel stranica".