Convertir texto en mayusculas y minusculas ASP clásico

Código ASP clásico

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
%>

tags: 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

En esta sección encontrarás una mezcla de códigos recopilados de fuentes públicas de Internet y otros creados por CoreASP. Estos recursos se comparten de buena fe con el único objetivo de servir como base de conocimiento en el desarrollo de aplicaciones en ASP Clásico. CoreASP no garantiza la precisión, vigencia ni funcionamiento de los artículos o fragmentos de código publicados, y no se hace responsable por el uso que se les dé. Se recomienda siempre revisar, adaptar y probar el código antes de implementarlo en entornos de producción.