Inverti una stringa con un separatore

Sempre nell’ottica di gestire le stringhe (vedi “Inverti  il testo di una cella” e “StrReverse“) questa funzione separa una stringa contenente un separatore e ne inverte l’ordine.

In pratica, prendendo un testo tipo “Nome Cognome” usando

Gianmario_inverti_con_separatore (“Nome Cognome”;” “)

otterremo come risultato il testo “Cognome Nome”.  

La funzione usa Split per creare una matrice unidimensionale di stringhe e UBound per scansirla con un ciclo For.

 

Codice

Public Function Gianmario_inverti_con_separatore
                (testo As String, separatore As String)

Dim I As Integer
Dim stringainversa As String

parole = VBA.Split(testo, separatore)
stringainversa = ""

For I = UBound(parole) To 0 Step -1
   stringainversa = stringainversa & parole(I) & separatore
Next

Gianmario_inverti_con_separatore = stringainversa

End Function