Rutina para convertir texto en formato "Tipo frase."

[TurKa]

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

[haven]

Gracias Turka, muy interesante tu script.

Un saludo