Taxa de Dolar direto do BCB

<%
Set XMLHttp = Server.CreateObject(“Microsoft.XMLHTTP”)
XMLHttp.open “GET”, “http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm&#8221;, false
XMLHttp.send()
pega = XMLHttp.ResponseText
cotacao = LCase(pega)
Set cod = Nothing

i = 1
teste = cotacao
i = inStr(i,cotacao,”taxa de venda”)
i = inStr(i,cotacao,”<tr>”)
i = inStr(i,cotacao,”<td”)
i = inStr(i,cotacao,”>”)
f = inStr(i,cotacao,”</td>”)
cotacao_data = Mid(cotacao,i,(f-i))
cotacao_data = Replace(cotacao_Data,”>”,” “)
i = inStr(f,cotacao,”<td “)
i = inStr(i,cotacao,”>”)
f = inStr(i,cotacao,”</td>”)
cotacao_venda = Mid(cotacao,i,(f-i))
cotacao_venda = Replace(cotacao_venda,”>”,” “)
i = inStr(f,cotacao,”<td “)
i = inStr(i,cotacao,”>”)
f = inStr(i,cotacao,”</td>”)
cotacao_compra = Mid(cotacao,i,(f-i))
cotacao_compra = Replace(cotacao_compra,”>”,” “)

response.write “Data: “&cotacao_data&”<br>”
response.write “Dolar Venda: “&cotacao_venda&”<br>”
response.write “Dolar Compra : “&cotacao_compra&”<br>”

%>

Fonte: http://artigos.scriptfacil.com/?arquivo=e&t=4&a=29

Uma resposta para Taxa de Dolar direto do BCB

  1. Ebite disse:

    Nossa este era o site que estava pedindo a Deus! obrigado pelo ajuda!

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: