Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marvazoler

Cotação do Dolar

Por , em ASP Clássico

Recommended Posts

marvazoler    0

marvazoler
Postado

Olá galera beleza?

 

Alguem tem um código que pega a cotação do dolar

 

Mas o que eu preciso é simple

 

Data Vr compra

20/05/2008 1,650000

 

Alguem consegui este resultado ?

 

Desde já agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hebe    0

Hebe
Postado 

<%Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP")

XMLHttp.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm", 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>"%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Aproveitando a deixa amigos,

 

Queria fazer um arquivo assim no html: chamado de TAXAS.HTM

<HTML>
<HEAD>
<TITLE>COTACAO DOLLAR</TITLE>
</HEAD>
<BODY>
DATA 00/00/2008
VALOR 1.6000
</BODY>
</HTML>

E queria um código em XHTML quase igual a este que postaram, mas não sei como usar esta linguagem para pegar dados deste código TAXAS.HTM

 

 

Alguém me conseguiria este código, e se possível explicado cada linha.

Para que eu aprenda.

 

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

marmmc, crie um novo tópico para que possa ser discutida sua dúvida.

 

 

Amigão obrigado pela atenção

 

o código pegou legal, mas está me mostrando a cotção do dia 15 porque?

 

Desde já agradeço

marvazoler, só pega dia 15/01/2008 porque é a única cotação que há na página.

 

Dê uma pesquisada no Fórum, há vários códigos de cotação, é só adaptar.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito