18/06/2002, 06:22
|
| | | Fecha de Ingreso: enero-2002 Ubicación: Sabadell
Mensajes: 565
Antigüedad: 23 años, 3 meses Puntos: 4 | |
| Re: Cargar un campo memo
Hola, esta es la función:
Function FormatStr(Str)
on Error resume next
Str=Replace(Str, CHR(13), "")
Str=Replace(Str, CHR(10) & CHR(10),"</BR><BR>")
Str=Replace(Str, CHR(10), "<BR>")
FormatStr = "<p>" & Str & "</p>"
End Function
Espero que te sirva :)
|