Sisällysluettelo
Palauta n. Sana tekstirivillä
Seuraava funktio löytää merkkijonon n: nnen sanan:
Funktio Find_nth_word (lause merkkijonona, n kokonaislukuna) merkkijonona himmeä Current_Pos yhtä pitkä himmennettynä Length_of_String kokonaislukuna himmennettynä Current_Word_No kokonaislukuna Find_nth_word = "" Current_Word_No = 1 'Remove Leading Spaces Phrase = Trim (Phrase) Length_of_String = Len (Phrase) = 1 Jonon pituuteen jos (Nykyinen_Sana_No = n) Sitten Etsi_sanasana = Löydä_sanasana & Keskimmäinen (Lause, Nykyiset_posit, 1) Lopeta Jos Jos (Keski (Lause, Nykyiset_Pos, 1) = "") Sitten Nykyinen_Sana_No = Nykyinen_Sana_No + 1 Lopeta, jos seuraava Nykyinen_Pos ' Poista oikeanpuoleisin välilyönti Find_nth_word = Trim (Find_nth_word) End Function
Se tarvitsee kaksi argumenttia - etsittävä lause ja sanan numero:
Find_nth_word("Automateexcel on maailman suosituin Excel -sivusto", 4)
Palauttaa "maailman".
Tyhjä palautetaan, jos lauseessa olevien sanojen määrä on pienempi kuin määritetty sanan numero.
Niin: Find_nth_word("Automateexcel on maailman suosituin Excel -sivusto", 12)
Palauttaa tyhjän, koska lauseessa "Automateexcel on maailman suosituin Excel -sivusto" ei ole 12 sanaa.
ladata
Voit ladata .XLSM -tiedoston tästä artikkelista napsauttamalla tätä