Restituisce l'ennesima parola in una stringa di testo
La seguente funzione troverà l'ennesima parola in una stringa:
Funzione Find_nth_word(Phrase As String, n As Integer) As String Dim Current_Pos As Long Dim Length_of_String As Integer Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Rimuove gli spazi iniziali Frase = Trim(Phrase_Lunghezza) Per Len_of_Phrase = 1 To Length_of_String If (Current_Word_No = n) Then Find_nth_word = Find_nth_word & Mid(Phrase, Current_Pos, 1) End If (Mid(Phrase, Current_Pos, 1) = " ") Then Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Rimuovi lo spazio più a destra Find_nth_word = Trim(Find_nth_word) End Function
Ha bisogno di due argomenti: la frase che deve essere cercata e il numero della parola:
Trova_nth_word(“Automateexcel è il sito Excel preferito al mondo”,4)
Tornerà “mondo”.
Viene restituito uno spazio se il numero di parole nella frase è inferiore al numero di parole specificato.
Così: Trova_nth_word(“Automateexcel è il sito Excel preferito al mondo”,12)
Restituirà vuoto poiché non ci sono 12 parole nella frase "Automateexcel è il sito Excel preferito al mondo".
Scarica
Per scaricare il file .XLSM da questo articolo, clicca qui
