Tipo de cambio Dolar - Actualizacion

[sjam7]

Hola, recientemente HSBC ha cambiado la estructura de su pagina, por lo que el anterior script para sacar el precio del dolar dejo de funcionar, lo actualice a sacarlo de la pagina de Banamex, aqui el codigo:

Código ASP:

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", "http://www.banamex.com/esp/finanzas/divisas/divisas.html", False
  xml.Send
     Cadena = CSTR(xml.responseText)
     PosIni1 = InStr(Cadena,"Ventanilla")
     PosIni2 = InStr(PosIni1,Cadena,".")
     PosFin  = InStr(PosIni2, Cadena,"<")
   DolarCompra = MID(Cadena, PosIni2-2, PosFin-PosIni2)
     PosIni1 = PosFin
     PosIni2 = InStr(PosIni1,Cadena,".")
     PosFin  = InStr(PosIni2, Cadena,"<")
   DolarVenta = MID(Cadena, PosIni2-2, PosFin-PosIni2)
  Set xml = Nothing
 
dolar_compra=CDbl(MID(DolarCompra,InStr(DolarCompra,";")+1,LEN(DolarCompra)))
dolar_venta=CDbl(MID(DolarVenta,InStr(DolarVenta,";")+1,LEN(DolarVenta)))
 

Espero les sirva, saludos

[u_goldman]

No será un poco mas seguro consumir un webservice?

Saludos

[Myakire]

Desde que hice el script para orharo lo dengo apuntado al diario oficial y hasta la fecha no ha cambiado, en ese entonces ese Web Service no estaba pero si, creo que sería más seguro consumirlo.

[sjam7]

y como quedaria el script para usar ese webservice?

[abelhoyos]

Hola quisiera sacar el tipo de cambio del dolar para Perú desde este enlace. Me podrían ayudar. Gracias

Enlace: http://www.bn.com.pe/tipo-cambio.asp

[sjam7]

mira, en mi blog tengo como sacarlo con 2 metodos diferentes, quizas alguno te pueda servir cambiando solo algunas cosas muy simples

http://javimata.blogspot.com/2012/01...2-metodos.html

[sjam7]

mira, asi podria quedar para obtenerlo con el primer metodo que explico en mi blog:

Código ASP:

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", "http://www.bn.com.pe/tipo-cambio.asp", False
  xml.Send
     Cadena = CSTR(xml.responseText)
     PosIni1 = InStr(Cadena,"Compra Dolar a")
     PosIni2 = InStr(PosIni1,Cadena,"<")
     PosFin  = InStr(PosIni2, Cadena,"/")
   DolarCompra = MID(Cadena, PosIni2-2, PosFin-PosIni2)
     PosIni1 = InStr(Cadena,"Venta Dolar a")
     PosIni2 = InStr(PosIni1,Cadena,"<")
     PosFin  = InStr(PosIni2, Cadena,"/")
   DolarVenta = MID(Cadena, PosIni2-2, PosFin-PosIni2)
  Set xml = Nothing
  
  if instr(DolarCompra,chr(32)) then DolarCompra=replace(DolarCompra,chr(32),"")
 
dolar_compra=CDbl(MID(DolarCompra,InStr(DolarCompra,">")+1,LEN(DolarCompra)))
dolar_venta=CDbl(MID(DolarVenta,InStr(DolarVenta,">")+1,LEN(DolarVenta)))
 
response.write dolar_compra & "<br>" & dolar_venta
 

Ojala te sirva amigo