[Resolvido] Retornar texto limpo

[rtava 0]

Olá!

Preciso ler o conteúdo de um arquivo XML conforme abaixo e exibir num MSGBOX, mas não podem aparecer os caracteres especiais de acentuação, nem os tags html.

 

<?xml version="1.0" encoding="utf-8" ?> 
<!-- RSS gerado em Tue, 02 Feb 2010 15:50:05 GMT --> 
 <rss version="2.0" xmlns:blogChannel="http://www.tgestiona.com.br/intranettg/tinformo">
 <channel>
    <item>
     <title>T Informo 2010 - Notícia</title> 
     <link>http://intranettg/default.aspx?idpagina=6260</link> 
     <description><p align="left">MBA Autofinanciado - Já fez sua inscrição?</p></description> 
     <pubDate>Tue, 02 Feb 2010 15:50:05 GMT</pubDate> 
     </item>
    <item>
     <title>T Informo 2010 - Notícia - Doação de Sangue 2010</title> 
     <link>http://intranettg/default.aspx?idpagina=6258</link> 
     <description>Já estão abertas as inscrições para participar da Campanha de Doação de Sangue do Programa Voluntários Telefônica</description> 
     <pubDate>Tue, 02 Feb 2010 15:50:05 GMT</pubDate> 
     </item>
  </channel>
</rss>

Por exemplo, se o XML for lido por meio da função abaixo, mostra o texto todo, mas precisaria mostrar apenas o texto real:

 

set NOTICIA = ATUAL.getElementsByTagName("description")

DESCRI = NOTICIA.item(0).text

 

Está lendo isso:

DESCRI = <p align="left">MBA Autofinanciado - Já fez sua inscrição?</p>

 

Preciso que seja lido isso:

MBA Autofinanciado - Já fez sua inscrição?

 

Como faço isso?

vlw!

[xanburzum 169]

olá amigo...

 

dá uma pesquisada no fórum ue existem varios tópicos de como ler um XML e exibi-los, vai te ajudar...

[rtava 0]

Olá.

Já pesquisei, mas não encontrei resposta para este caso.

 

Complementando, para ler o XML é tranquilo. O problema é filtrar esse monte de texto que não pode ser exibido. Eu até encontrei uma função que remove todos os tags, mas não remove a acentuação HTM do texto.

[xanburzum 169]

existe uma função no lab. de códigos, que você pode depois de ler o xml usar um split para ler as tags

[rtava 0]

xanburzum, a parte de tags eu já consegui resolver e eliminar do texto. Mas a parte de acentuação ainda não. Tem 11 páginas no Lab de Códigos em ASP e realmente não encontrei a sugestão que você deu para resolver este caso.

Se você se lembrar do nome da função e puder postar novamente eu agradeço.

valeu

[xanburzum 169]

você também pode usar XMLHTTP, para pegar dados

[rtava 0]

xanburzum,

Agradeço as respostas, mas já consegui resolver.

OBS.: Entendo que não queira das respostas de "mão beijada"... Mas obrigado mesmo assim.

 

 

Function HTMLRemoveEntities(ByVal encodedstring)
	HTMLRemoveEntities= encodedstring
	dim strEntities, Entitie, n, charEntitie, entitieSymbol
	strEntities = """" && ÁÁ áá ´´ ÀÀ àà ÃÃ ãã ÇÇ çç ÉÉ éé ÊÊ êê ÍÍ íí ÑÑ ññ ÓÓ óó ÔÔ ôô ÕÕ õõ ÚÚ úú ÜÜ üü"
	Entitie = split(strEntities, " ")
	
	for n = 0 to ubound(Entitie)
		entitieSymbol = left(Entitie(n), len(Entitie(n)) - 1)
		charEntitie = right(Entitie(n), 1)
		
		HTMLRemoveEntities = replace(HTMLRemoveEntities, entitieSymbol, charEntitie, 1, -1, 0)
	Next
	
End function

Function stripTags( strToStrip )
    Dim objRegExp

    strToStrip = Trim( strToStrip & "" )
    If Len( strToStrip ) > 0 Then
        Set objRegExp = New RegExp
        objRegExp.IgnoreCase = True
        objRegExp.Global = True
        objRegExp.Pattern= "<[^>]+>"
        strToStrip = objRegExp.Replace(strToStrip, "")
        Set objRegExp = Nothing
    End If
    StripHTMLTags =  strToStrip
End Function

set NOTICIA = ATUAL.getElementsByTagName("description")
DESCRI = HTMLRemoveEntities(NOTICIA.item(0).text)
DESCRI = stripTags(DESCRI)