Innholdsfortegnelse
Returner det andre ordet i tekststreng
Følgende funksjon vil finne det nende ordet i en streng:
Funksjon Find_nth_word (frase som streng, n som heltall) Som streng Dim Current_Pos så lenge Dim Length_of_String As Integer Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Remove Leading Spaces Phrase = Trim (Phrase) Length_of_String = Len (Phrase) For Current_Pos = 1 Til Length_of_String If (Current_Word_No = n) Deretter 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 mellomrommet til høyre Find_nth_word = Trim (Find_nth_word) Sluttfunksjon
Den trenger to argumenter - uttrykket som skal søkes og ordnummeret:
Finn_nde_ord("Automateexcel er verdens favoritt Excel -nettsted", 4)
Vil returnere "verden".
Et tomt blir returnert hvis antall ord i uttrykket er mindre enn det angitte ordnummeret.
Så: Finn_nde_ord("Automateexcel er verdens favoritt Excel -nettsted", 12)
Kommer tilbake tom, da det ikke er 12 ord i uttrykket "Automateexcel er verdens favoritt Excel -nettsted".
nedlasting
Klikk her for å laste ned .XLSM -filen fra denne artikkelen