Vrni n -to besedo v nizu besedila
Naslednja funkcija bo našla n -to besedo v nizu:
Funkcija Find_nth_word (Fraza kot niz, n kot celo število) Kot niz Dim Current_Pos As Long Dim Length_of_String As Integer Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Odstrani vodilne prostore Phrase = Trim (Phrase) Length_of_String = Len (Phos) For = 1 Za dolžino_naročnega niza Če (Trenutna_beseda_številke = n) Potem Najdi_mesto_besedo = Najdi_mesto_srednjo & sredino (Fraza, Trenutni_pozicij, 1) Konec Če Če (Srednja (fraza, Trenutni_pozi, 1) = "") Potem Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Odstranite skrajni desni presledek Find_nth_word = Trim (Find_nth_word) End Funkcija
Potrebuje dva argumenta - stavek, ki ga je treba iskati, in besedno številko:
Find_nth_word(“Automateexcel je najljubše spletno mesto Excel na svetu”, 4)
Vrnil se bo "svet".
Če je število besed v frazi manjše od navedene številke besede, se vrne prazno.
Torej: Find_nth_word(“Automateexcel je najljubše spletno mesto Excel na svetu”, 12)
Vrne se prazno, ker v stavku "Automateexcel ls svetovno priljubljeno spletno mesto Excel" ni 12 besed.
Prenesi
Če želite prenesti datoteko .XLSM iz tega članka, kliknite tukaj
