Ciao a Titti
Come faccio ad inserire uno spazio in una stringa prima di ogni carattere MAIUSCOLO?
la stringa in questione è una stringa cosidetta "A cammello" quindi "StringaConScritturaACammello".
Quello che voglio ottenere è questo:
Stringa Con Scrittura A Cammello
Quello che non riesco a fare è impostare il range di caratteri maiuscoli!!!

Posto il codice:

NumCaratteri=Len(Request.QueryString("PaginaRichiesta"))
NomePgSS=Left(Request.QueryString("PaginaRichiesta"),NumCaratteri)
DisplayStr=Left(NomePgSS,1)'mi riposiziono ad inizio stringa
For i=2 To Len(NomePgSS)
Cursore=mid(NomePgSS,i,1)
If InStr(Cursore,ABCDEFGHIJKLMNOPQRSTUVWXYZ)=1 Then
DisplayStr=DisplayStr & " " & Cursore
Else
DisplayStr=DisplayStr & Cursore
End If
Next
Response.Write "Sei nella sezione "&"<B>"&DisplayStr&"</B>"

---

Modificato da albsteen il 05 aprile 2005 18.39 -

"albsteen" ha scritto

Ciao a Titti

Titti ti saluta :)

Come faccio ad inserire uno spazio in una stringa prima di ogni carattere
MAIUSCOLO?
la stringa in questione è una stringa cosidetta "A cammello" quindi
"StringaConScritturaACammello".
Quello che voglio ottenere è questo:
Stringa Con Scrittura A Cammello
Quello che non riesco a fare è impostare il range di caratteri
maiuscoli!!!

Function spaziatore(stringa)
For i = 1 To Len(stringa)
lettera = Mid(stringa, i, 1)
If Asc(lettera) > "64" And Asc(lettera) < 91 Then lettera = " " &
lettera
spaziatore = spaziatore & lettera
Next
End Function

Response.Write spaziatore("StringaConScritturaACammello")

visuddhi