Grąžinkite n -ąjį žodį teksto eilutėje
Ši funkcija suras n -ąjį žodį eilutėje:
Funkcija Find_nth_word (frazė kaip eilutė, n kaip sveikasis skaičius) Kaip eilutės pritemdytas Current_Pos kaip ilgas Dim Length_of_String kaip sveikasis skaičius Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Remove Leading Spaces Phrase = Trim (Phrase) Length_of_String = Current (LenPos) = 1 Į Stulpelio ilgį, jei (Dabartinis_Žodis_Nr = n) Tada Rasti_nodaros_žodį = Rasti_žodinį žodį ir vidurį (Frazė, Dabartiniai_Posai, 1) Baigti If Jei (Vidurinė (frazė, Dabartiniai_Posai, 1) = "") Tada Dabartinis_Žodis_Ne = Dabartinis_Žodis_Ne + 1 Pabaiga, jei kitas Dabartinis_Pos ' Pašalinkite dešiniausią tarpą Find_nth_word = Apkirpti (Find_nth_word) pabaigos funkciją
Tam reikia dviejų argumentų - frazės, kurios reikia ieškoti, ir žodžio numerio:
Rasti_žadą žodį(„Automateexcel yra mėgstamiausia pasaulyje„ Excel “svetainė“, 4)
Sugrįš „pasaulis“.
Tuščias laukelis grąžinamas, jei frazės žodžių skaičius yra mažesnis už nurodytą žodžio skaičių.
Taigi: Rasti_žadą žodį(„Automateexcel“ yra mėgstamiausia pasaulyje „Excel“ svetainė “, 12)
Grąžins tuščią, nes frazėje „Automateexcel yra pasaulio mėgstamiausia„ Excel “svetainė“ nėra 12 žodžių.
parsisiųsti
Norėdami atsisiųsti .XLSM failą iš šio straipsnio, spustelėkite čia
