[Resolvido] converter em título ou Proper Case

[xanburzum 169]

Case conversion para Title Case ou Proper Case usando VBScript. A função tem um argumento "DaString", que é então dividido em um array de palavras individuais e convertido ao título ou Proper Case.

 

<%
'Passa um arg ... DaString como uma seqüência
DaString="Case conversion xxx ccc mmmm"
if not DaString = "" or IsNull(DaString) then
dim DaTempString, DaArray, ConVStr
DaString = lcase(DaString)
DaArray = Split(DaString," ")
For i = 0 to ubound(DaArray)
ConVStr = UCase(Left(DaArray(i),1)) + mid(DaArray(i),2)
DaTempString = DaTempString & " " & ConVStr
next
else
DaTempString = "Nada para Converter"
end if
PropCase = DaTempString
response.write(PropCase)
%>