| |
<% Set HttpObj = Server.CreateObject("AspHTTP.Conn") HttpObj.URL = "http://www.investshop.com.br/mer/include/Dolar.csv"cotacao = HttpObj.GetUrlcotacoes = 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%> |
|
