OrcaAssassina
09-04-2008, 10:51
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()
-----------------------------------------
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()
-----------------------------------------