Cotações do Dolar

[raphanasc 0]

Ai pessoal esse script pega tds as cotações do dolar.... pra quem precisar tai prontinho!!!

ABS

<%'instanciando objetoSet objxml = Server.CreateObject("Microsoft.XMLHTTP") 'abrindo paginaobjxml.open "GET", "http://www.investshop.com.br/mer/include/Dolar.csv", false objxml.send()cotacao = objxml.ResponseTextcotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que eh lixo' Coloca Valores em uma ArrayDim valores()Dim cont, cont_valoresFor 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 variaveisDOLAR_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)' Fim coloca os valores nas variaveis'Destruindo o Objeto ASPHTTPSet HttpObj = Nothingresponse.Write("dolar comercial compra:") response.Write(DOLAR_COMERCIAL_COMPRA &"<br />")response.Write("dolar comercial venda:") response.Write(DOLAR_COMERCIAL_VENDA &"<br />")response.Write("dolar paralelo compra:") response.Write(DOLAR_PARALELO_COMPRA &"<br />")response.Write("dolar paralelo venda:") response.Write(DOLAR_PARALELO_VENDA &"<br />")response.Write("dolar turismo compra:") response.Write(DOLAR_TURISMO_COMPRA &"<br />")response.Write("dolar turismo venda:")response.Write(DOLAR_TURISMO_VENDA &"<br />")%>

[Ted k' 126]

Olá amigo se lembra da nossa conversa, foi boa, pedi pra você colocar no laboratório ai está você

 

parabéns toda ajuda é sempre bem vinda:

 

Conversa anterior:

http://forum.imasters.com.br/index.php?sho...otação+do+dolar

 

Eu lembro que tinha postado um código bem parecido para você mesmo e para um outro colega

 

http://forum.imasters.com.br/index.php?sho...ta%E7%E3o+dolar

 

Boa iniciativa sua abraços

[pedrovisk 1]

Eu tentei utilizar este código em minha página e os valores estão vindo em branco, é assim mesmo???

 

dolar comercial compra:

dolar comercial venda:

dolar paralelo compra:

dolar paralelo venda:

dolar turismo compra:

dolar turismo venda:

[marcelocardoso 6]

Aproveitando a DEIXA, gostaria de incluir este sistema de bulas em um site.

Como posso implementa-lo mais ou menos usando a lógica do COTACAO DE DOLLAR?

 

Alguem me ajuda, nisso.

 

Quero pegar daqui:

http://www4.anvisa.g...ico/default.asp

 

 

Obrigado pela ajuda