quarta-feira, 3 de julho de 2002

Cotação do Dolar em Tempo Real com ASPHTTP

Este Script pega a cotação em tempo real direto da Gazeta Mercantil.
Bom proveito a todos, e qualquer bug, me envia um e-mail ou um icq.
abraços.


-- Início do Script --


<%
  
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
   HttpObj.URL = "http://www.investshop.com.br/mer/include/Dolar.csv"
cotacao = HttpObj.GetUrl
cotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que eh lixo
  
' Coloca Valores em uma Array
   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


%>


-- Fim do Script --



Esta matéria foi postada originalmente no ASP4Developers por Guilherme Bacellar Moralez (site), que na época era "Consultor e Desenvolvedor Web, especializado em ASP, ASP.NET e MySql.
Gosta de se definir como Professor Pardal, pois, cada pepino que lhe aparece... Tem que inventar umas soluções mirabolantes. Talvez vocês encontrem alguns de seus códigos neste site.". Hoje, vai saber...

0 comentários: