Innehållsförteckning
Returnera nth Word i textsträng
Följande funktion hittar det n: a ordet i en sträng:
Funktion Find_nth_word (fras som sträng, n som heltal) Som sträng Dim Current_Pos så lång Dim Length_of_String Som heltal Dim Current_Word_No Som heltal Find_nth_word = "" Current_Word_No = 1 'Ta bort ledande utrymmen Fras = Trim (fras) Length_of_String = Len (fras) För Current_Pos = 1 Till Length_of_String If (Current_Word_No = n) Sedan Find_nth_word = Find_nth_word & Mid (Fras, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) = "") Sedan Current_Word_No = Current_Word_No + 1 Slut Om Nästa Current_Pos ' Ta bort det längst till höger utrymmet Find_nth_word = Trim (Find_nth_word) End Function
Den behöver två argument - frasen som ska sökas och ordnumret:
Hitta_nde_ord("Automateexcel är världens favorit Excel -webbplats", 4)
Kommer att återvända "världen".
Ett tomt returneras om antalet ord i frasen är mindre än det angivna ordnumret.
Så: Hitta_nde_ord("Automateexcel är världens favorit Excel -webbplats", 12)
Återkommer tomt eftersom det inte finns 12 ord i frasen "Automateexcel är världens favorit Excel -webbplats".
Ladda ner
För att ladda ner .XLSM -filen från den här artikeln, klicka här
