Întoarceți cuvântul al șaselea în șirul de text
Următoarea funcție va găsi al nouălea cuvânt într-un șir:
Funcția Find_nth_word (Expresie ca șir, n Ca întreg) Ca șir Dim curent_Pos Ca lungime lungă Lungime_of_String Ca întreg întreg Dim Current_Word_No Ca întreg Număr Find_nth_word = "" Current_Word_No = 1 'Eliminați spațiile principale Frază = Trim (Frază) Lungime_of_String = Len (Current) = 1 Până la Lungimea_Stringului Dacă (Current_Word_No = n) Apoi Find_nth_word = Find_nth_word & Mid (Frază, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) = "") Then Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Eliminați spațiul din dreapta Find_nth_word = Trim (Find_nth_word) Funcția de sfârșit
Are nevoie de două argumente - expresia care trebuie căutată și numărul cuvântului:
Find_nth_word(„Automateexcel este site-ul Excel preferat din lume”, 4)
Va întoarce „lumea”.
Un gol este returnat dacă numărul de cuvinte din frază este mai mic decât numărul cuvântului specificat.
Asa de: Find_nth_word(„Automateexcel este site-ul Excel preferat din lume”, 12)
Se va reveni necompletat, deoarece nu există 12 cuvinte în expresia „Automateexcel este site-ul Excel preferat din lume”.
Descarca
Pentru a descărca fișierul .XLSM din acest articol, faceți clic aici
