Indholdsfortegnelse
Returner nth Word i tekststreng
Følgende funktion finder det nende ord i en streng:
Funktion Find_nth_word (frase som streng, n som heltal) Som streng Dim Current_Pos så lang Dim Length_of_String Som Integer Dim Current_Word_No Som Integer Find_nth_word = "" Current_Word_No = 1 'Fjern ledende mellemrum Phrase = Trim (Phrase) Length_of_String = Len (Phrase) For Current_Pos = 1 Til Length_of_String If (Current_Word_No = n) Herefter Find_nth_word = Find_nth_word & Mid (Phrase, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) = "") Then Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Fjern det yderste område Find_nth_word = Trim (Find_nth_word) Slutfunktion
Det har brug for to argumenter - den sætning, der skal søges efter, og ordnummeret:
Find_nde_ord("Automateexcel er verdens foretrukne Excel -websted", 4)
Vil vende tilbage "verden".
Et tomt felt returneres, hvis antallet af ord i sætningen er mindre end det angivne ordnummer.
Så: Find_nde_ord("Automateexcel er verdens foretrukne Excel -websted", 12)
Vender tilbage tomt, da der ikke er 12 ord i sætningen "Automateexcel ls verdens foretrukne Excel -websted".
Hent
Klik her for at downloade .XLSM -filen fra denne artikel
