[Resolvido] Ler conteúdo de outra página html

[Netanias 0]

Pessoal a minha dúvidas é a seguinte:

 

Quero pegar apenas o conteúdo de uma notícia de um determinado site... via asp.. já ouvi falar em ASPHTTP.. mas até agora não consegui nada...

 

Se puderem ajudar ficarei grato...

 

Exemplo do que quero abaixo....

 

Por exemplo no site do g1.com.br, o link de uma notíca seria o seguinte...

 

http://g1.globo.com/Noticias/SaoPaulo/0,,MUL1338795-5605,00-ESTRADAS+ESTADUAIS+DE+SP+TEM+MORTES+DURANTE+O+FERIADO+PROLONGADO.html

 

E lá tem um monte de coisa ( menus, imagens, banners, menus, saiba mais, etc... ) mas eu quero apenas o texto da notícia... pode ser com a formatação... não interessa...

 

Existe essa possibilidade?

 

Vlw! Obrigado pela atenção

 

********************************************************************************

 

O segundo problema é o seguinte:

 

Quero pegar os dados de um NÓ no XML mas ao invés do número de referência dela, queria pegar os dados pelo nome do nó...

 

ao invés de

 

objLst.item(i).childNodes(2).childNodes(0).Text

 

queria que fosse pelo nome.. exemplo:

 

objLst.item(i).childNodes("nome_do_nó").childNodes(0).Text ( já tentei assim e não deu... kkkk

 

Vlw!

[Ted k' 126]

Para ler a pagina, adapte esse código aqui que criei!

<%

    Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")
    Url = "http://globoesporte.globo.com/Esportes/Futebol/Classificacao/0,,ESP0-9827,00.html"
    objXMLHTTP.Open "GET", URL, FALSE
    objXMLHTTP.send()
    conteudo = objXMLHTTP.responseText
    set objXMLHTTP = nothing

    posicao = instr(conteudo,"tabela-classificacao-futebol-new")
    total = len(conteudo)
    conteudo = mid(conteudo,posicao,total)  
	Response.Write("<table><tr>")  
	Response.Write("<td>"&conteudo&"</td>")
	Response.Write("</tr></table>")
%>

Para ver o nome, primeiro pesquise sobre ele, aqui!

http://tedk.com.br/blog/index.php/2008/07/16/verificar-a-existencia-da-tag-xml-com-asp/

[Netanias 0]

Ted'K beleza kara... Vlw pela ajuda.. só que estou com um pequeno problema...

 

 

eu fiz isso aqui....

 

<%
Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")
Url = "http://ultimosegundo.ig.com.br/economia/2009/10/13/mercado+melhora+previsoes+e+projeta+alta+de+010+do+pib+em+2009+8812926.html"
objXMLHTTP.Open "GET", URL, FALSE
objXMLHTTP.send()
conteudo = objXMLHTTP.responseText
set objXMLHTTP = nothing
posicao = instr(conteudo,"box_tempo")
total = len(conteudo)
conteudo = mid(conteudo,posicao,total)
Response.Write("<div id=box_tempo>")
Response.Write("" & conteudo & "")
Response.Write("</div>")
%>

Mas ele exibe desde onde começa a seção que eu quero até o final da página, inclusive os anúncios google, rodapé... tudo...

 

Como limitar a secao que eu quero exclusivamnte... vlw!

[xanburzum 169]

existe um exemplo no lab. de script, dá uma pesquisasda...

[Netanias 0]

Bom dia... beleza?

 

XANBURZUM, já olhei o Laboratório de Scripts "da cabeça aos pés" e não encontrei nada lá que possa me ajudar nessa questão... Deve ser também pq nunca tinha visto sobre esse tipo de funcionalidade... Estou começando agora com essas novas ferramentas, XML, AJAX, ASPHTTP, XMLREQUEST... Essas coisas... Expressões Regulares? Nem sei como iniciar...

 

Se você tiver alguma coisa concreta e puder me passar o link, ficarei agradecido...

 

Eu só quero pegar uma parte do código que tem assim...

 

 

<font class="noticia">

 

aqui tem o texto..aqui tem o texto..

 

</font>

 

Mas não funciona, pois notícia vai ficar como variável devido as aspas... e se duplicar as aspas ele não encontra o texto... e se colocar apenas uma parte tipo "noticia">" também não dá certo... nem "noticia"... ele pega outra parte da página...

 

Vlw!

[Netanias 0]

Consegui resolver o problema na maior facilidade...

 

código cedido pelo BICICLETA do SCRIPTBRASIL

 

<%

Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET", "http://201.24.26.129/oimparcial/portal/noticias.php?id=22165", False
xmlhttp.setRequestHeader "ContentType","text/html"
xmlhttp.Send()

str_text = xmlhttp.ResponseText

int_ini = Instr(str_text, "<div class=""box"">")
int_fim = Instr(int_ini, str_text, "<strong>Leia mais:") - int_ini

Response.Write Mid(str_text, int_ini, int_fim)

%>

funciona 100%...