Ver Mensaje Individual
  #10 (permalink)  
Antiguo 15/10/2004, 11:25
Avatar de AlZuwaga
AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 9 meses
Puntos: 535
Reemplaza los retornos de carro por un salto de línea HTML e interpreta TAB's en el texto.

ATENCIÓN: Eliminar de &-#09; el guión rojo (ocurre que el foro interpreta el TAB en vez de muestrar su código)


Código:
<%
Function txt2htm(txt)
	txt2htm = txt
	txt2htm = Replace(txt2htm, VBCrLf, "<br>" & VBCrLf)
	txt2htm = Replace(txt2htm, CHR(9), "<pre style='display:inline'>&-#09;</pre>")
End Function
%>
Se la llama así:
Código:
<% Response.Write txt2htm(Fuente_de_datos) %>
En donde Fuente_de_datos puede ser el campo de una BD, el contenido de un archivo de texto, el de un campo de formulario, etc.


Editado el 18/10/2004 porque me tengo que quitar la maldita costumbre de meter "responseS.writeS" dentro de la funciones
__________________
...___...

Última edición por AlZuwaga; 18/10/2004 a las 18:09