[VB.NET] Formattare Nome Cognome

[marco.santilli]

Un pò di tempo fa ho trovato una funzione in rete che mi permette di formattare un Nominativo

Se un Nominativo era scritto tipo:

PIPPO FRANCO

Con questa funzione lui scriveva:

Pippo Franco

Adesso ho riscontrato un problema se uno scrive il nome lasciando per sbaglio 2 spazi invece di uno

PIPPO FRANCO
PIPPO FRANCO

la funzione va in errore, scrivendo:
"Indice oltre i limiti della matrice."


Riporto la funzione, come posso modificarla???

Ciao e grazie

-----------------------------------------

'Metto tutto in minuscolo e rimuovo gli spazi all'inizio e alla fine
nome = LCase(nome).Trim()
'Creo un array dove separo il nome dal cognome
Dim temp() As String = nome.Split(" ")
Dim result As String = ""
For Each s As String In temp
'Inserisco come secondo carattere la lettera in maiuscolo
s = s.Insert(1, UCase(s(0)))
'Rimuovo il primo carattere (quello in minuscolo)
s = s.Remove(0, 1)
'Aggiungo la stringa al risultato
result += s + " "
Next
'Ritorno il risultato senza spazi all'inizio e alla fine
Return result.Trim()

-----------------------------------------

[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

[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!!!!!!