http://www.cma.com.b...ro=cliFolhadeSP
Esta na coluna do lado esquerdo em baixo do grafico.
Tenhu que puxar somente essas informações:
Bovespa
Nasdaq
Dolar Comercial;Paralelo;Turismo
Euro
Ja tinha um feito mas tentei modificar mas n consegui o restante dos dados :/
http://www.vestcev.c...dolar/dolar.asp
CODIGO DA PAGINA TODA:
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<p><font color="#003366" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Session.LCID = 1046
Set obj = CreateObject("MSXML2.ServerXMLHTTP")
obj.open "GET", "http://www.cma.com.br/index.asp"
obj.send
textHTML = obj.ResponseText
dados = LCase(textHTML)
' Procura pela posição da string "Taxa de Venda"
i = 1
i = inStr(i,dados,"%")
' 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,"</td>","|",1,2) ' Substitui </font> por "|" (2 vezes)
dados = Trim(LimpaHTML(dados)) ' Retira todas as tags
dados = Split(dados,"|") ' Separa criando a matriz
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
%>
</font></p>
<table width="261" border="0">
<tr>
<td width="95"> </td>
<td width="74"><div align="right">ÚLTIMO</div></td>
<td width="12"><div align="right">%</div></td>
<td width="30"><div align="right">HORA</div></td>
<td width="28"><div align="right">DATA</div></td>
</tr>
</table>
<table width="262" border="0">
<tr>
<td width="92" class="style16"><div align="left" class="style20"><span class="style12"> Bovespa </span></div></td>
<td width="0" align="right" valign="middle" class="style16"><font color="#000000" size="1" face="Arial"><%=dados(2)%></font></td>
</tr>
<tr>
<td class="style16"><div align="left" class="style20"><span class="style12"> Nasdaq </span></div></td>
<td align="right" valign="middle" class="style16">
<div align="right" class="style16"></div></td>
</tr>
<tr>
<td class="style16"><div align="left" class="style20"><span class="style12"> Dólar comercial </span></div></td>
<td align="right" valign="middle" class="style16">
<div align="right" class="style16"></div></td>
</tr>
<tr>
<td class="style16"><div align="left" class="style20"><span class="style12"> Dólar paralelo </span></div></td>
<td align="right" valign="middle" class="style16">
<div align="right" class="style16"></div></td>
</tr>
<tr>
<td class="style16"><div align="left" class="style20"><span class="style12"> Dólar turismo </span></div></td>
<td align="right" valign="middle" class="style16">
<div align="right" class="style16"></div></td>
</tr>
<tr>
<td class="style16"><div align="left" class="style20"><span class="style12"> Euro </span></div></td>
<td align="right" valign="middle" class="style16">
<div align="right" class="style16"></div></td>
</tr>
<tr>
<td class="style16"><div align="left" class="style20"><span class="style12"> Poupança </span></div></td>
<td align="right" valign="middle" class="style16">
<div align="right" class="style16"></div></td>
</tr>
</table>
<p> </p>
Help-me PLEASE!
Sou novato nessa parte, se puder me ajuda com tudo mastigado agradeço mesmo.
Edição feita por: fabiosl, 02/10/2006, 12:27.
