extraer datos html

[btopalacios]

Hola, tengo una lista de noticias donde reflejo un pequeño contenido del texto de la notica, ya que son muy largas, utilizo.

Código PHP:

  mid(datostexto,1,200) 
   

el problema consiste en que el contenido de "datostexto" tiene etiquetas html, como bold, italic, etc.

entonces el texto cuando corta en una etiqueta me aparece todo mal.

quisiera saber si existe algo para omitir las etiquetas html y solo extraiga el texto sin importar las etiquetas.

gracias

[JuanRAPerez]

busca info en el foro se ha tratado ya el tema varias veces

http://www.forosdelweb.com/f15/contar-palabras-56181/

[Adler]

Hola

Reemplazar los tags HTML, como te indica JuanRa

Código asp:

Function LimpiarTags(cadena) 
Dim objRegExp
    Set objRegExp= New RegExp 
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<[^>]+>"
strlimpio = objRegExp.Replace(cadena, " ") 
    Set objRegExp = Nothing
LimpiarTags = strlimpio
End Function
 

Cortar cadena

Código asp:

Function Cortar (str, longitud)
if Len(str) => longitud then
    Cortar=Left(str, longitud)&".."
else
    Cortar=str
end if
End Function
 

Suerte

[btopalacios]

Muchas Gracias

funciono muy bien, con "Function LimpiarTags(cadena) "

ahora lo unico que me di cuenta es con los acentos, al poner "mid(datostexto,1,250) "

y se corta un acento me aparece esto sesi&oac...

en lugar de sesió...

gracias de nuevo

[pedroinfante]

realiza una funcion para convertir acentos antes de cortar tu cadena (&anbsp => á) y al final lo mandas a imprimir con server.htmlencode(tu_texto)

de hecho yo guardo en la base con acentos y todo... y aseguro que se muestre bien con la funcion htmlencode....

saludos

[Adler]

Hola

Aquí tienes un tres en uno . Remplaza las vocales acentuadas, los tags html y corta por la izquierda la cadena

Código asp:

Function LimpiarTags(cadena, longitud)
cadena = replace(cadena,"ñ", "ñ")
cadena = replace(cadena,"Ñ", "Ñ")
cadena = replace(cadena,"á", "á")
cadena = replace(cadena,"Á", "Á")
cadena = replace(cadena,"é", "é")
cadena = replace(cadena,"É", "É")
cadena = replace(cadena,"í", "í")
cadena = replace(cadena,"Í", "Í")
cadena = replace(cadena,"ó", "ó")
cadena = replace(cadena,"Ó", "Ó")
cadena = replace(cadena,"ú", "ú")
cadena = replace(cadena,"Ú", "Ú")
Dim objRegExp, Largo
Set objRegExp= New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<[^>]+>"
strlimpio = objRegExp.Replace(cadena, " ")
Set objRegExp = Nothing
If Len(strlimpio) => longitud then
Largo = Left(strlimpio, longitud)&".."
Else 
Largo = strlimpio
End If
LimpiarTags = Largo
End Function
 

Uso

LimpiarTags(campo, 200)

Suerte

[btopalacios]

Muchas gracias a todos, adler funciono a la perfeccion sin ningun problema.

me ayudaron bastante.

gracias