No descubrí América, no es nada nuevo, pero, como nunca tuve que hacerlo y hoy surgió que tuve que implementar la función de convertir un texto en formato "Tipo frase." me puse a ver que podía hacer y surgió esta rutina que tal vez a muchos les interese.
Yo tuve que implementarla en el panel de control de un cliente que recibe anuncios clasificados para publicar y a veces los escriben todo en MAYUSCULAS. Mi cliente quería una función que mediante un click le permitiese decir si quería transformar el texto "Tipo frase." o no.
La rutina:
Código:
<FORM METHOD=POST ACTION=editar.asp>
Frase: <INPUT TYPE=text NAME=frase VALUE="><%=Request.Form("frase")%>"><BR>
Párrafo:<BR>
<TEXTAREA ROWS=4 COLS=50 NAME=parrafo><%=Request.Form("parrafo")%></TEXTAREA><BR>
<INPUT TYPE=SUBMIT VALUE=Convertir>
</FORM>
<%
If Request.Form("parrafo") <> "" Then
Function TipoFrase(str)
contenido = ""
palabra = Split(str," ")
For I = 0 To UBound(palabra)
contenido = contenido & LCase(palabra(I)) & " "
Next
PrimeraLetra = UCase(Left(contenido,1))
frase = PrimeraLetra&Right(contenido,Len(contenido)-1)
TipoFrase = frase
End Function
Function TipoParrafo(str)
contenido = ""
frase = Split(str,". ")
For I = 0 To UBound(frase)
contenido = contenido & UCase(Left(frase(I),1))&LCase(Right(frase(I),Len(frase(I))-1))&". "
Next
parrafo = Left(contenido,Len(contenido)-2)
frase = Split(parrafo,chr(10))
For I = 0 To UBound(frase)
contenido2 = contenido2 & UCase(Left(frase(I),1))&Right(frase(I),Len(frase(I))-1)&chr(10)
Next
TipoParrafo = contenido2
End Function
response.write "<B>Frase</B>:<BR>" & TipoFrase(Request.Form("frase") & "<HR>")
response.write "<B>Párrafo</B>:<BR>" & Replace(TipoParrafo(Request.Form("parrafo")),chr(10),"<BR>")
End If
%>