rinomina stringa

[grifone]

ciao raga volevo fare una funzioncina che mi ronomina le stringhe in questo modo:

franziska_van_almsick ---> Franziska_Van_Almsick
fiordaliso ----> Fiordaliso
francesca_chillemi ---> Francesca_Chillemi

in pratica in una stringa la prima lettera e quelle dopo "_" se sono minuscole devono diventare maiuscole

mi aiutate??

[vaargard]

<%

miastringa="franziska_van_almstick"

lunghezzastringa = len(miastringa)

nuovastringa = ""

carattereControllo = ""
carattereCorretto = ""

'cicliamo sulla stringa
for i=1 to lunghezzastringa
	'recuperiamo il carattere
	carattereCorretto = mid(miastringa,i,1)
	'controlliamo, se siamo al primo carattere o se il carattere precedente è uguale a "_" allora maiuscola
	if i=1 or carattereControllo ="_" then
		nuovastringa = nuovastringa & Ucase(carattereCorretto)		
	else 'altrimenti stringa + carattere normale
		nuovastringa = nuovastringa & carattereCorretto
	end if
	'assegnamo a questa variabile il carattere in corso in modo da poterlo controllare
	carattereControllo = carattereCorretto
next
%>

non posso provarla ma dovrebbe funzionare ...se funziona, spero, spero tu la capisca, che è la cosa più importante

[Roby_72]

function converti(str)
if Instr(str,"_") > 0 then
new_str = Ucase(left(str, 1)) & mid(str,2,len(str)-1)
else
arr_str = split(str,"_")
new_str = ""
for xx = 0 to UBound(arr_str)
if new_str = "" then
new_str = Ucase(left(arr_str(xx), 1)) & mid(arr_str(xx),2,len(arr_str(xx))-1)
else
new_str = new_str &"_"& Ucase(left(arr_str(xx), 1)) & mid(arr_str(xx),2,len(arr_str(xx))-1)
end if
next

converti = new_str
end function

stringa = "franziska_van_almsick"
response.write(converti(stringa))

Roby

[vaargard]

eccolo, con lo split è molto più furbo ...

[grifone]

perfetto,
grazie mille