Lang L: none (table-of-contents)
Tagastab nda sõna tekstirida
Järgmine funktsioon leiab stringist n -nda sõna:
Funktsioon Find_nth_word (fraas kui string, n kui täisarv) Stringi hämarana Current_Pos nii pikk Dim Dimension Length_of_String Nagu täisarv Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Remove Leading Spaces Phrase = Trim (Phrase) Length_of_String = Len (Phra) = 1 Stringi pikkusele If (Current_Word_No = n) Siis Find_nth_word = Find_nth_word & Mid (Phrase, Current_Pos, 1) End If if (Mid (Phrase, Current_Pos, 1) = "") Siis Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Eemaldage parempoolsem tühik Find_nth_word = Kärbi (Find_nth_word) lõppfunktsioon
See vajab kahte argumenti - otsitav fraas ja sõna number:
Leia_sõna("Automateexcel on maailma lemmik Exceli sait", 4)
Tagastab "maailma".
Tühi tagastatakse, kui fraasi sõnade arv on väiksem kui määratud sõnade arv.
Niisiis: Leia_sõna("Automateexcel on maailma lemmik Exceli sait", 12)
Tagastab tühja, kuna fraasis „Automateexcel on maailma lemmik Exceli sait” pole 12 sõna.
Lae alla
.XLSM -faili allalaadimiseks sellest artiklist klõpsake siin