Funzione lettere maiuscole...

[maxolino]

Tempo fa mi ero fatto una funzioncina per mettere la prima lettera di una variabile maiuscola...

Function prima(stringa)
prima = ucase(left(stringa,1)) & lcase(right(stringa,len(stringa)-1))
End Function


Dovrei leggermente modificarla per rendere maiuscola la prima lettera di ogni parola dopo uno spazio.....


Un aiutino?

[maximum]

Prova così:

Function prima(stringa)
    arrStringa = split(stringa, " ")
    for i = 0 to Ubound(arrStringa)
         prima = prima & " " & ucase(left(arrStringa(i),1)) & lcase(right(arrStringa(i),len(arrStringa(i))-1))
    next
End Function

[maxolino]

Funziona alla perfezione!!!

Grazie mille!!

[maximum]

Prego.