Convertir texto en mayusculas y minusculas ASP clásico
Código ASP clásico
- Por Programador ASP clásico /
- 07/08/2012 @ 12:14:40 /
- 1060 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
%>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 ASP TEAM. Compartimos recursos útiles de buena fe para formar una base de conocimiento en el desarrollo de aplicaciones en ASP Clásico.