Myakire, molestandote de nuevo.
Bueno, estoy intentando sacar desde bancomer el valor del dolar....
en el de hsbc, era más fácil porque todo esta dentro de una tabla y los valores estan en una fila:
<tr>
<td bgcolor="#ffffff" align="left" valign="top"><font face="Arial" size=1>
DOLAR AMERICANO</font></td>
<td bgcolor="#ffffff" align="center" valign="top"><font face="Arial" size=1>
$ 10.92</font></td>
<td bgcolor="#ffffff" align="center" valign="top"><font face="Arial" size=1>
$ 11.17</font></td>
No hay problema hasta ahi, el problema seria en que en la de bancomer estan dos tablas anidadas.
<table border="0" width="72" cellspacing="0" cellpadding="0">
<tr>
<td height="7" class="tx_ind">IPC</td>
</tr>
<tr>
<td height="7" class="tx_ind">DOWJONES</td>
</tr>
<tr>
<td height="7" class="tx_ind">
DOLAR CPA</td>
</tr>
<tr>
<td height="7" class="tx_ind">
DOLAR VTA</td>
</tr>
<tr>
..... mas valores ....
</table>
</td>
<td align="left" valign="top" width="64" class="tx_gral1" height="67">
<table border="0" width="63" cellspacing="0" cellpadding="0">
<tr>
<td height="7" class="tx_ind">12,113.60</td>
</tr>
<tr>
<td height="7" class="tx_ind">10,494.20</td>
</tr>
<tr>
<td height="7" class="tx_ind">11.17</td>
</tr>
<tr>
<td height="7" class="tx_ind">11.42</td>
</tr>
<tr>
<td height="7" class="tx_ind">1.3338 dls</td>
</table>
</td>
</tr>
<tr align="left" valign="top">
... continua .....
es más dificil. una solución fue :
<body style="visibility:hidden">
<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "POST", "
http://www.bancomer.com.mx/ahome/home_index_main.asp", False
xml.Send
cadena = CSTR(xml.responseText)
cadena=replace(cadena,"script","")
cadena=replace(cadena,"SCRIPT","")
%>
<%=cadena%>
Set xml = Nothing
%>
Usando createTextRange() extraigo únicamente el texto sin HTML., despues lo paso a un arreglo y el resultado:
<script language="vbs">
set bancomer=document.body.createTextRange() bancomer=bancomer.text text=bancomer x=split(text,chr(13)) for t=0 to ubound(x) if(x(t)<>"")then if(instr(1,x(t),"dolar",1)<>0)then msgbox formatcurrency(x(t+9),2) & " a la compra." & chr(13) & formatcurrency(x(t+10),2)& " a la venta." exit for end if end if next
</script>
Pruebalo, si funciona.
Mi pregunta.
... podrías hacerlo más fácil ????
Te lo pregunto porque sé
que puedes, bueno en un rato libre si se puede.