Como eu faço para obter a cotação do dólar

[#Felipe# 0]

Pessoal !para que eu não precise cadastrar a cotação do dólar todos dia no sistema que to fazendo ....Como eu faço para obter a cotação do dólar dos principais sites de indicadores econômicos e incluir como variável no meu site ?????pra quem não sabe, lhes garanto que dá pra fazer isso ...Aguardo Ansioso .....

[Mário Monteiro 179]

você pode pagar com XML...tem componentes em ASP que ajudam nesta tarefa...

[mx loco 1]

By imasters forum, este pega do banco cetranl do brasil.

 

ASP

[*]

 

[*]<%

 

[*]Session.LCID = 1046

 

[*]Set obj = CreateObject("MSXML2.ServerXMLHTTP")

 

[*]obj.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm"

 

[*]obj.send

 

[*]textHTML = obj.ResponseText

 

[*]dados = LCase(textHTML)

 

[*]

 

[*]' Procura pela posição da string "Taxa de Venda"

 

[*]i = 1

 

[*]i = inStr(i,dados,"taxa de venda")

 

[*]

 

[*]' Procura pela 1ª tag <tr> depois de "Taxa de Venda"

 

[*]i  = inStr(i,dados,"<tr")

 

[*]f  = inStr(i,dados,"</tr") ' Pega a 1ª tag </tr> depois de <tr>

 

[*]dados = Mid(dados,i,(f-i))  ' Retira somente linha da interesse

 

[*]

 

[*]dados = Replace(dados,"</font>","|",1,2) ' Substitui </font> por "|" (2 vezes)

 

[*]dados = Trim(LimpaHTML(dados))  ' Retira todas as tags

 

[*]dados = Split(dados,"|")  ' Separa criando a matriz

 

[*]dat = Date

 

[*]set conn = Server.CreateObject("ADODB.Connection")

 

[*]conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dolar.mdb")

 

[*]sql = "UPDATE TabelaCotacao SET Data = '" & dados(0) & "', Compra = " & NumeroSQL(dados(1)) & ", Venda = " & NumeroSQL(dados(2))

 

[*]conn.execute(sql)

 

[*]conn.close

 

[*]set conn = nothing

 

[*]'inf = Array("Data","Compra","Venda")

 

[*]'For i = lbound(dados) to ubound(dados)

 

[*]' Response.Write inf(i) & " : " & dados(i) & "<br>"

 

[*]'Next

 

[*]

 

[*]

 

[*]Function Strzero(val,num)

 

[*]  val = Trim(CStr(val))

 

[*]  Strzero = String(num-len(val),"0") & val

 

[*]End Function

 

[*]

 

[*]Function ConverteData (valor,formato)

 

[*]if not isDate(valor) then

 

[*]  Response.Write "Data Inválida !"

 

[*]  Response.End

 

[*]else

 

[*]  formato = UCase(formato)

 

[*]  if Trim(formato) = "" then formato = "DD/MM/YYYY HH:MI:SS"

 

[*]  formato = Replace(formato,"YYYY",Year(valor))

 

[*]  formato = Replace(formato,"MM",Strzero(Month(valor),2))

 

[*]  formato = Replace(formato,"DD",Strzero(Day(valor),2))

 

[*]  formato = Replace(formato,"HH",Strzero(Hour(valor),2))

 

[*]  formato = Replace(formato,"MI",Strzero(Minute(valor),2))

 

[*]  ConverteData = Replace(formato,"SS",Strzero(Second(valor),2))

 

[*]end if

 

[*]End Function

 

[*]

 

[*]Function LimpaHTML(matriz)

 

[*]Do While True

 

[*]  ini  = InStr(1,matriz,"<")

 

[*]  If ini = 0 Then Exit Do

 

[*]  fim  = InStr(ini,matriz,">")

 

[*]  parcial = Mid(matriz,ini,fim-ini+1)

 

[*]  matriz = Replace(matriz,parcial,"")

 

[*]Loop

 

[*]LimpaHTML = matriz

 

[*]End Function

 

[*]

 

[*]Function NumeroSQL(numero)

 

[*] dim x

 

[*] x = numero

 

[*] x = Replace(x,".","")

 

[*] x = Replace(x,",",".")

 

[*] If isNumeric(x) Then

 

[*] NumeroSQL = x

 

[*] Else

 

[*] NumeroSQL = numero

 

[*] End If

 

[*]End Function

 

[*]

 

[*]%>

 

[*]

[#Felipe# 0]

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0009)

Subscrito fora do intervalo: '[number: 1]'

/dolar.asp, line 25

não sei arrumar ..

[mx loco 1]

Olá filipe...

 

tai o código, testado e funcionando.

 

ASP

[*]

 

[*]<%

 

[*]Set cod = Server.CreateObject("Microsoft.XMLHTTP") 'instanciando objto

 

[*]cod.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm", false 'abrindo pa´gina do bcb

 

[*]cod.send()

 

[*]pega = cod.ResponseText

 

[*]cotacao = LCase(pega)

 

[*]Set cod = Nothing

 

[*]i = 1

 

[*]i = inStr(i,cotacao,"taxa de venda")

 

[*]i = inStr(i,cotacao,"<tr")

 

[*]f = inStr(i,cotacao,"</tr>")

 

[*]cotacao = Mid(cotacao,i,(f-i))

 

[*]cotacao = Replace(cotacao,"</font>"," ",1,2)

 

[*]%>

 

[*]<table width="300" border="1" align="center" cellpadding="0" cellspacing="0">

 

[*]<tr align="center">

 

[*]<td>

 

[*]<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Data</b></font>

 

[*]</td>

 

[*]<td>

 

[*]<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Valor

 

[*]de Venda</b> </font>

 

[*]</td>

 

[*]<td>

 

[*]<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Valor

 

[*]de Compra </b></font>

 

[*]</td>

 

[*]</tr>

 

[*]<tr>

 

[*]<td>

 

[*]<%response.write cotacao%>

 

[*]</td>

 

[*]</tr>

 

[*]</table>

 

[*]

 

t++

[#Felipe# 0]

tchê !

 

na linha 11 não faltou fechar o esquema " > "

 

olha só !

na variavel cotacao ficou armazenado isso 01/07/20052,34512,3459 tudo junto

 

já q tu teve disposição de alterar o cógico, poderia fazer outra coisinha ???

 

tu poderia alterar de novo me dar ele apresentando os valores separados numa variavel cada ???????

 

pode pegar só valor da venda e data

 

olha só!

é que a cotação do site do banco central é muito baixa, não é a real "papel"

 

tu poderia fazer com a página do site do estadão ?????

http://www.estadao.com.br/economia/financa...acoes/dolar.htm

 

tem que ser a cotação do;

*Dólar Paralelo

*Paralelo Papel SP

*venda

 

e depois a data

 

só isso !

 

 

Aguardo ansioso,

[mx loco 1]

Velho este codigo que te passe, ele mostra o dolar como esta na tabela no link abaixo...

http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm

 

Ou caso você queira.. pode usar isso no teu cod...

Simple e útil...

 

<script language="javascript" src="http://www.guianews.com.br/js/dolar_1.js"></script>

[arr 0]

Ô mx_loco,Não seja folgado e faz logo o que o cara pediu.Aproveita e põe também a cotação do Euro e a variação da bolsa. (SP, NY e London).ha ha ha ha ha ha, cada uma..... :P

[mx loco 1]

Num que num sei faser... mas é porque eu naum sei faser mermo. :D O mais humilhante para mim é que o que ele pediu é muito pouca coisa.

[#Felipe# 0]

pooooooooo mx_Locooooooooooo ! ! ! !

 

mas se é façil, o que custa quebrar essa pra mim ....

eu arresem to aprendendo asp...

e não vi nada dessa parte ainda ....

 

eu preciso dos valores separados para colocar num tabela

preço de venda no papel e a data

 

alguem poderia quebrar essa pra mim ??????????

please !

[acasohp 0]

Gostaria de obter mais informações de funcionamento deste XML e como faço para definir os limites que devem ser buscados. Tenho que aprender devido a necessidade descrita na ideia abaixo

 

Estou pensando em desenvolver um site onde o mesmo busque classificados de varios outros sites montando uma central de classificados, obvio que devo encontrar diversas linguagens como asp, php e htm.

 

Para este caso somente o MSXML2.ServerXMLHTTP atenderia as necessidades ou existe outra forma ???

 

Gostaria até da opinião dos senhores para saber se isto é viavel ou daria extremo trabalho devido a ter que posicionar as buscas site a site, e se existe a possibilidade de se ocorrer erros frequentemente devido as atualizações nesses classificados ? <_<