Convertir texto en mayusculas y minusculas ASP clásico

Convertir texto en mayusculas y minusculas ASP clásico

Código ASP clásico

Por ASP clásico / 07/08/2012 @ 12:14:40 / 1562 visitas

Esta es una pequeña función que convierte el texto en mayúsculas y minúsculas. Básicamente, busca espacios en una cadena y convierte el primer carácter después del espacio en una letra mayúscula y el resto de los caracteres en inúsculas.

<%

Function MixedCase(strInput)

Dim strPos, strSpace, strOutput

' Set our position variable to the start of the string.

strPosition = 1

' Loop to check spaces

Do While InStr(strPosition, strInput, " ", 1) <> 0

     strSpace = InStr(strPosition, strInput, " ", 1)

     strOutput = strOutput & UCase(Mid(strInput, strPosition, 1))

     strOutput = strOutput & LCase(Mid(strInput, strPosition + 1, strSpace - strPosition))

     strPosition = strSpace + 1

Loop

' Last word is currently uncapitalized - fix this

strOutput = strOutput & UCase(Mid(strInput, strPosition, 1))

strOutput = strOutput & LCase(Mid(strInput, strPosition + 1))

MixedCase = strOutput

End Function

%>

 

Descubre más sobre cómo simplificar y optimizar tu trabajo empresarial en el Blog de CoreASP.

cambiar a mayusculas, cambiar minusculas a mayusculas, cambiar mayusculas a minusculas, cadenas en asp, asp cadenas, asp clasico, convertir en, convertir a, convertir para, convertir texto a, minusculas y mayusculas, minusculas a mayusculas