Cotação Do Dólar

[--Ludson--]

precisava saber se tem como eu pegar a cotação do dolar em tempo real, ou pelo menos a cotação do dia,... sei lá..

alguém ai conheçe um sistema??

sabe como fazer??

podem me ajudar??

vlew ae!

=)

[dark0]

brother, você pode usar xmlhttp pra fazer isso

basta você achar na net algum site que tenha os índices atualizados, e com xmlhttp se conectar à esse site, e buscar os indices pra vc

já trabalhou com xmlhttp?

em tese é isso ae

abraços

[bareta]

ou pegar scripts disponibilizados....

mais o xmlhttp ou asphttp é a melhor solução.... e uso ele para por noticias no meu site

[AlexMunhoz]

ou pegar scripts disponibilizados....

mais o xmlhttp ou asphttp é a melhor solução.... e uso ele para por noticias no meu site

Alguém pode dar um EX: de como usa isso?

[bareta]

http://www.4guysfromrolla.com/webtech/110100-1.shtml

http://www.google.com.br/search?hl=pt-BR&q=xmlhttp&meta=

[Guest Zeronarfa]

Segura aí um exemplo que funcionou para mim:

<%
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

%>

[Casca]

Encontrei uma solução pronta neste site abaixo, eles geram códigos para cotação do dolar (dolar, euro, libra, pesos argentinos), eles tambem tem codigos de noticias sobre todos os assuntos dos principais portais.

http://www.noticiasemseusite.com.br/GeradorDolar.asp

Espero que ajude.