[Resolvido] Bovespa

[Lain_Experiments 0]

Pessoal, eu preciso MUITO da ajuda de vocês... Preciso de um código em Asp para mostrar a cotação da Bolsa Bovespa em tempo real, no meu site.

Tenteu usar o XMLHttp, tirando as informações do site "http://economia.uol.com.br/cotacoes/bolsas.jhtm", mas não consegui,não saio do lugar.Juro que tentei o máximo,mas como sou iniciante em asp, não me dei muito bem.

Por favor,a alguém pode me indicar uma maneira de fazer isso, ou se alguém já tiver um código, pode me salvar?

 

Obrigada desde já !

[desisto 0]

pede pra eles liberarem em XML

 

sem a permissão deles não da

[Lain_Experiments 0]

Nossa, ouvi mesmo falar nisso, mas eu estava tentando fazer de outra maneira, como fiz neste código que mostra a cotação do EURO ( Vou colocar esse code aqui pro caso de alguém precisar um dia, ele tá funcionando muito bem se alguém quiser aproveitar):

 

 

<%
		Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP")
		XMLHttp.open "GET", "http://www4.bcb.gov.br/pec/taxas/batch/cotacaomoedas.asp?id=txtodas&id=txtodas", false
		XMLHttp.send()
		pega = XMLHttp.ResponseText
		cotacao = LCase(pega)
		Set cod = Nothing

		
	save = cotacao

e = 1
e = inStr(e,cotacao,"pln")

' Codigo da Moeda
e = inStr(e,cotacao,"<tr>") '(linha do erro)
e = inStr(e,cotacao,"<td")
e = inStr(e,cotacao,">")
fe = inStr(e,cotacao,"</td>")
CodMoedaE = Mid(cotacao,e,(fe-e))
CodMoedaE = Replace(CodMoedaE,">"," ")

' Tipo da Moeda
e = inStr(fe,cotacao,"<td ")
e = inStr(e,cotacao,">")
fe = inStr(e,cotacao,"</td>")
TipoE = Mid(cotacao,e,(fe-e))
TipoE = Replace(TipoE,">"," ")

' Moeda
e = inStr(fe,cotacao,"<td ")
e = inStr(e,cotacao,">")
fe = inStr(e,cotacao,"</td>")
MoedaE = Mid(cotacao,e,(fe-e))
MoedaE = Replace(MoedaE,">"," ")

'Taxa de Compra EURO
e = inStr(fe,cotacao,"<td ")
e = inStr(e,cotacao,">")
fe = inStr(e,cotacao,"</td>")
EuroCompra = Mid(cotacao,e,(fe-e))
EuroCompra = Replace(EuroCompra,">"," ")

'Taxa de Venda EURO
e = inStr(fe,cotacao,"<td ")
e = inStr(e,cotacao,">")
fe = inStr(e,cotacao,"</td>")
EuroVenda = Mid(cotacao,e,(fe-e))
EuroVenda = Replace(EuroVenda,">"," ")

' Paridade Compra
e = inStr(fe,cotacao,"<td ")
e = inStr(e,cotacao,">")
fe = inStr(e,cotacao,"</td>")
EParCompra = Mid(cotacao,e,(fe-e))
EParCompra = Replace(EParCompra,">"," ")

' Paridade Venda
e = inStr(fe,cotacao,"<td ")
e = inStr(e,cotacao,">")
fe = inStr(e,cotacao,"</td>")
EParVenda = Mid(cotacao,e,(fe-e))
EParVenda = Replace(EParVenda,">"," ")


EuroCompra=EuroCompra
EuroVenda= EuroVenda




response.write "Euro Compra: "&EuroCompra&"<BR>"
response.write "Euro Venda: "&EuroVenda&"<BR>"


%>

Fiz usando a url do site , e não o xml. Mas com o bovesta não consegui fazer o mesmo.

Será se não tem como?

[xanburzum 169]

ficou legal, irei disponibilizar no lab. de script.

[desisto 0]

mande um email pra eles solicitando um XML com as informações em carater de parceria

sem autorização expressa do site eu não ajudo na coleta de informação

 

esse tipo de colteta de dados quebra copyright, ja que você não tem autorização pra obter os dados e esta fazendo na força bruta

[Lain_Experiments 0]

mande um email pra eles solicitando um XML com as informações em carater de parceria

sem autorização expressa do site eu não ajudo na coleta de informação

 

esse tipo de colteta de dados quebra copyright, ja que você não tem autorização pra obter os dados e esta fazendo na força bruta

 

Ok.

Vou entrar em contato, e torcer né...

[desisto 0]

muita gente faz na força bruta, o que é errado

 

as vezes, só em um simples email pedindo em carater de parceria ou citação de fonte, a empesa libera o XML - é mais do que comum

 

mande pro banco c. primeiro, é mais facil

 

[]s

[Lain_Experiments 0]

banco central?

Será se lá eu consigo?

mandei um e-mail para o Bovespa, como você disse, em caracter de parceria, e eles responderam que vão 'responder' até o dia 20/08/2010!...