[VB.NET] Formattare Nome Cognome

[marco.santilli]

Originariamente inviato da MItaly

Public Function FormattaNominativo(ByVal Nominativo As String) As String
    Dim spazioPrima As Boolean = True
    Dim sb As New System.Text.StringBuilder(Nominativo.Length)
    For Each c As Char In Nominativo
        If Char.IsLetter(c) Then
            If spazioPrima Then
                c = Char.ToUpper(c)
            Else
                c = Char.ToLower(c)
            End If
            sb.Append(c)
            spazioPrima = False
        ElseIf Char.IsWhiteSpace(c)
            If Not spazioPrima Then
                sb.Append(" "c)
            End If
            spazioPrima = True
        End If
    Next
    Return sb.ToString()
End Function

ok funziona!!!!!!