Ver Mensaje Individual
  #21 (permalink)  
Antiguo 18/02/2005, 02:21
orharo2003
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años
Puntos: 4
Sr. Myakire:

Con esta demostración me haz dejado con la boca abierta.

Desconocia esa forma, bueno habia intentado de esta forma:

function bancos()
set bancomer=parent.frames(1).document.body.createText Range() bancomer=bancomer.text


'/* BANCOMER */

ok=false
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
ok=true
msgbox "http://www.bancomer.com " & chr(13) &"--------------------------------" & chr(13)& formatcurrency(x(t+9),2) & " a la compra." & chr(13) & formatcurrency(x(t+10),2)& " a la venta." ,vbinformation,"Tipo de cambio" exit for end if end if next if(ok=false)then alert "Imposible conectar con el sitio http://www.bancomer.com.mx" end if

end function
Bueno a grandes rasgos extraigo el valor tambien pero...... hice pruebas localmente y funciona excelente lo malo es de que me ,marca acceso denegado cuando la página está en linea.

Digamos que lo que hice es una forma de extraer el codigo fuente (sin HTML), pero localmente.

La verdad es que te agradezco enormemente y bueno GRACIAS estámos para ayudar.

Saludos.