(Resolvido) Ler conteúdo de outra página HTML

[Netanias]

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,,M...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!

[bareta]

bom na primeira dúvida tem jeito sim... basta usar MID e INSTR junto ao ASPHTTP, ou XMLHTTP

na segunda veja se ajuda:

http://www.portalmaracaju.com.br/blog/arti...outro_site.html

[Netanias]

Kara, eu toh com esse código aqui... mas não consegui não...

<%
pagina = "http://201.24.26.129/oimparcial/portal/noticias.php?id=22165"
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET",pagina, False
xmlhttp.setRequestHeader "ContentType","text/html"
xmlhttp.Send()
codigo = xmlhttp.ResponseText
antes = "div id=""box"">"
depois = "</div>"
codigo = Replace(codigo,antes,"##")
codigo = Replace(codigo,depois,"##")
path = split(codigo,"##")
response.write path(1)
%>

ele apenas torna o texto da página que quero branco.... nada mais... o restante fica todo lá... e eu quero apenas a parte que está dentro da div BOX...

Já tentei com expressão regular... mas nem sei pra onde vai isso...

Vlw!

[bareta]

use MID e INSTR

[Netanias]

Bareta você poderia me dar um exemplo... porque esse aí de cima que eu tenho é com esse MID e INSTR também... mas não funcionou legal não...

Vlw!

[Bicicleta]

<%

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)

%>

Abraço.

[Netanias]

BICICLETA... Kara, valeu mesmo... Esse funcionou legal...

Agradeço todos que se interessaram pelo meu problema...

Realmente quando eu tenho pelo menos a noção de como fazer eu não fico aqui pertubando ou vou só no google ou nos fóruns para tirar alguma dúvida. Mas quando eu não sei, é como agora... eu pergunto mesmo...

Vlw a todos.. Meu problema foi resolvido..

Obrigadaço a todos... Principalmente ao BICICLETA..

Se outra pessoa quizer utilizar o código pode... funciona 100%!.