Jump to content


Photo

Código Que Captura Notícia De Um Site...


  • Faça o login para participar
1 reply to this topic

#1 ibreak

ibreak

    Turista

  • Usuários
  • 56 posts
  • Sexo:Não informado

Posted 21/11/2006, 20:29

Pessoal, podem me ajudar na montagem dessa página...

Eu quero capturar as notícias da folha e colocar no meu site...
Pegar as notícias como nessa página:
http://www1.folha.uo...a/emcimadahora/

Pra ajudar eu peguei um código que pega a cotação do dolar e exibe na página... ele está funcionando...

Eu gostaria de mostrar as 5 últimas notícias, categoria, data e título e a data.

o arquivo é em xmlhttp.

Como eu acho o link que eu tenho que chamar no site da folha? No exemplo ele chama a cotação do dolar.

Vejam código abaixo:

<%
Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP")
XMLHttp.open "GET","http://www.investshop.com.br/mer/include/Dolar.csv", false
XMLHttp.send()
cotacao = XMLHttp.ResponseText
cotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que e lixo
response.Write(cotacoes)
dim valores()
dim cont, cont_valores
for cont = 1 to len(cotacoes) step 1
if (mid(cotacoes,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10)) then
cont_valores = cont_valores + 1
Redim Preserve valores(cont_valores)
valores(cont_valores) = Cstr(str)
str = ""
else
str = str + mid(cotacoes,cont,1)
end if 
next
' Fim Coloca valores em uma Array

' Coloca os valores nas variaveis
DOLAR_COMERCIAL_COMPRA = valores(3)
DOLAR_COMERCIAL_VENDA = valores(4)
DOLAR_COMERCIAL_VARIACAO = valores(5)

DOLAR_PARALELO_COMPRA = valores(7)
DOLAR_PARALELO_VENDA = valores(8)
DOLAR_PARALELO_VARIACAO = valores(9)

DOLAR_TURISMO_COMPRA = valores(11)
DOLAR_TURISMO_VENDA = valores(12)
DOLAR_TURISMO_VARIACAO = valores(13)


'PTAX_COMPRA = valores(15)
'PTAX_VENDA = valores(16)
'PTAX_VARIACAO = valores(17)
' Fim coloca os valores nas variaveis

%>


#2 siola

siola

    Usuário

  • Usuários
  • 894 posts
  • Sexo:Masculino
  • Localidade:SBC - SP
  • Interesses:ASP, .NET, javascript

Posted 21/11/2006, 21:12

Esse site da folha tem RSS proprio.

Faça uma busca aqui no fórum e no google sobre como mecher em XML com ASP que você vai conseguir o que quer rapidinho ;)

Se não sabe o que é rss aproveite e pesquise sobre o assunto no google tb.

[]s

Edição feita por: siola, 21/11/2006, 21:13.





1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq