Cotação do Dólar!!!

[mjs 0]

Pessoal eu tenho um script que pega a cotação do banco central, mas agora mudou!!! Acho que o layout mudou e agora ele não pega mais certo, alguém tem outro script... o pior é que nào sei mexer no objeto que ele usa então tow ferradu.. rs

[Salgado 4]

Posta o código ai que damos um jeito

[mjs 0]

É esse aqui:

 

<%' Parte do código retirado :http://www.superasp.com.br/index.asp?link=inicialDim obj, textHTML, dados, f, ini, fim, parcial, datSet obj = CreateObject("MSXML2.ServerXMLHTTP")obj.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm"obj.sendtextHTML = obj.ResponseTextdados    = LCase(textHTML)' Procura pela posição da string "Taxa de Venda"i = 1i = 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 interessedados = Replace(dados,"</font>","|",1,2) ' Substitui </font> por "|" (2 vezes)dados = Trim(LimpaHTML(dados))           ' Retira todas as tagsdados = Split(dados,"|")                 ' Separa criando a matrizdat = DateFunction Strzero(val,num)   val = Trim(CStr(val))   Strzero = String(num-len(val),"0") & valEnd FunctionFunction 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,"")LoopLimpaHTML  = matrizEnd FunctionDim strdollarvenda, strdollarcompra, strdatastrdata = (dados(0))strdollarvenda = (dados(2))strdollarcompra = (dados(1))%>

[lcs_sp 0]

troque:

 

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

por:

 

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

Ve se funciona