Publicado em 17 de abr.

Cotações

Gostaria de saber se alguém conhece algum script que capture de alguma fonte (confiável) a cotação diária do dólar e que possa ser usado como include em uma página.

Discussão (2)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

1sys· 18 de abr.

de uma olhadinha nesse codigo.....

codigo.....

<html>

<head>

<title>dolar</title>

</head>

<body bgcolor="#FFFFFF">

Set objeto = Server.CreateObject("Microsoft.XMLHTTP")

objeto.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm", False

objeto.send("")

'objeto.Open "PROPFIND", strURL, True

textoHTML = objeto.ResponseText

dados = LCase(textoHTML)

inicio = 1

inicio = inStr(inicio,dados,"taxa de venda")

inicio = inStr(inicio,dados,"</td>")

fim = inStr(inicio,dados,"</tr>")

dados = Mid(dados,inicio,(fim-inicio))

dados = Replace(dados,"arial","verdana color=#000080")

dados = Replace(dados,"eecc88","ff8000")

dados = Replace(dados,"right","center")

set objeto = Nothing

<table cellspacing="1" cellpadding="0">

<tr>

<td colspan="3" align="center">

<font face="verdana" color="#000080"><b>Dólar</b></font>

</td>

</tr>

<tr>

<td></td>

<td width="70" bgcolor="#000080" align="center">

<font face="verdana" color="#FFFFFF" size="2">Compra</font>

</td>

<td width="70" bgcolor="#000080" align="center">

<font face="verdana" color="#FFFFFF" size="2">Venda</font>

</td>

</tr>

<tr>

<td><%=dados%></tr>

</table>

</body>

</html>

Brito· 18 de abr.

Voce tem também um script pronto anunciado na primeira pagina do:

http://www.superasp.com.br

Ele como o do amigo ai em cima, pega a cotação no Banco Central (fechamento do dia anterior)