Tema: problema con <br>
Ver Mensaje Individual
  #6 (permalink)  
Antiguo 04/10/2006, 05:49
javihb
 
Fecha de Ingreso: octubre-2004
Mensajes: 230
Antigüedad: 20 años, 6 meses
Puntos: 0
Si es verdad...perdonar..bueno pues tan facil como a la página que muestra la información y que tiene la funcion de marras
Código: 
Function AcomodarTexto(texto)
texto=replace(texto,"á","&aacute;")
texto=replace(texto,"à","&agrave;")
texto=replace(texto,"Á","&Aacute;")
texto=replace(texto,"À","&Agrave;")
texto=replace(texto,"é","&eacute;")
texto=replace(texto,"è","&egrave;")
texto=replace(texto,"É","&Eacute;")
texto=replace(texto,"È","&Egrave;")
texto=replace(texto,"í","&iacute;")
texto=replace(texto,"ì","&igrave;")
texto=replace(texto,"Í","&Iacute;")
texto=replace(texto,"Ì","&Igrave;")
texto=replace(texto,"ó","&oacute;")
texto=replace(texto,"ò","&ograve;")
texto=replace(texto,"Ó","&Oacute;")
texto=replace(texto,"Ò","&Ograve;")
texto=replace(texto,"ú","&uacute;")
texto=replace(texto,"ù","&ugrave;")
texto=replace(texto,"Ú","&Uacute;")
texto=replace(texto,"Ù","&Ugrave;")
texto=replace(texto,"ñ","&ntilde;")
texto=replace(texto,"Ñ","&Ntilde;")
texto=replace(texto,"¡","¡")
texto=replace(texto,"!","!")
texto=replace(texto,"¿","¿")
texto=replace(texto,"<","&lt;")
texto=replace(texto,">","&gt;")
texto=replace(texto,"º","°")
texto=replace(texto,"ª","ª")
texto=replace(texto,vbCrLf,"<br>")
texto=replace(texto,"<br>",vbCrLf)
texto=replace(texto,Chr(34),""")
texto=replace(texto,"'","''")
texto=replace(texto,"“",""")
texto=replace(texto,"”",""")
texto=replace(texto,"«",""")
texto=replace(texto,"»",""")
texto=replace(texto,"»",""")
AcomodarTexto=texto
End function
le quitamos la que está en negrita...y ya esta