Rendere maiuscoli le iniziali

[Sanjet]

Buondì, passo a discorrervi del mio problema.
Nella mia comunità spesso si ricade nell'errore di non mettere maiuscole giuste al nome, sia non mettendole (es. "maximiliano"), sia mettendole a tutte le lettere (es. "MAXIMILIANO"), sia mettendo sparse (es. "MaXiMiLiAnO").
Avendo il campo "nome" che contiene il nome, dovrei cercare:
1 - di metterlo tutto in minuscole (e questo lo so fare);
(ma) e 2 - di rendere maiuscole le iniziali... e qui non so come fare!
Tra l'altro, talvolta il nome comprende più nomi (es. "Luciano Di Montealto"). Allora l'idea sarebbe di rendere maiuscola l'iniziale di ogni parola, cioè dopo ogni spazio rendere maiuscola la prima lettera che trova.

[longline]

Dovresti combinare quello che sai già con la funzione Split().

[Sanjet]

Con Split?! E come faccio?

[longline]

Split è una funzione che ti crea un array con tutte le parole di una stringa.

Guida.

Una volta che hai l'array, ogni elemento del'array corrisponde ad una singola parola, in ognuna delle quali convertirai la prima lettera in maiuscola. Dopo di che, concateni tutti gli elementi dell'array e ottieni ciò che chiedevi.

[Sanjet]

Come splittare è ok... ma per rendere maiuscola solo l'iniziale?

[longline]

Per fare sì che una stringa abbia la prima maiuscola e le altre minuscole:

Stringa = UCase(Left(Stringa, 1)) & LCase(Right(Stringa, (Len(Stringa)-1)))

[Sanjet]

Incorro nell'ultimo problema; ero partito con questo spezzone:

If request.querystring("form")=1 Then
nomme = request.form("nomme")
a=Split(nomme)
b=LCase(a)
response.write b
end if

Ora, il problema è che possono anche esserci infine a(x)... come posso fare le tue operazioni a questo punto?

[optime]

un po' più facile

Stringa = UCase(Left(Stringa, 1)) & LCase(Mid(Stringa, 2))

[Sanjet]

Originariamente inviato da Sanjet
Incorro nell'ultimo problema; ero partito con questo spezzone:

If request.querystring("form")=1 Then
nomme = request.form("nomme")
a=Split(nomme)
b=LCase(a)
response.write b
end if

Ora, il problema è che possono anche esserci infine a(x)... come posso fare le tue operazioni a questo punto?

[willybit]

eh... magari potresti ciclare tutti gli elementi dell'array

Function PrimaMaiuscola(str)
	parole = Split(LCase(str)," ")
	stringa=""
	for i=LBound(parole) to UBound(parole)
		stringa=stringa & UCase(Left(parole(i),1)) & Mid(parole(i),2) & " "
	next
	stringa = Left(stringa,Len(stringa)-1)
	PrimaMaiuscola = stringa
End Function


stringa = "ciao quESta è una prOVA. SpErIaMo vaDA TUTTO BENE. ci metto anche l'apoSTRofo"
Response.Write stringa & "<hr>"
Response.write PrimaMaiuscola(stringa)