Pues onharo, lo único que se me ocurre, es seguir la misma idea del ejemplo anterior, la de buscar un patrón único que ayude a localizar en este caso a los valores deseados. Elegí las definiciones de las tablas, quedó así:
Código:
<%
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 = xml.responseText
CadenaInicial = "<td align=""left"" valign=""top"" width=""64"" class=""tx_gral1"" height=""67"">"
CadenaFinal = "</table>"
PosIni = InStr(Cadena,CadenaInicial)
PosFin = InStr(PosIni, Cadena,CadenaFinal)
Cadena = MID(Cadena, PosIni, PosFin-PosIni)
Vec = SPLIT(Cadena,"<td height=""7"" class=""tx_ind"">")
Response.Write "Dolar Compra: " & Vec(3) & "<br>"
Response.Write "Dolar Venta: " & Vec(4) & "<br>"
' Response.Write Cadena & "<br>"
Set xml = Nothing
%>
Nota que primero extraigo solo la tabla que contiene los valores para que el SPLIT no se tarde tanto.
Saludos
