Importar indicadores economicos, Chile

[franfritz]

Saludos Forinos.
Me he estado cabezeando buscando información para importar a mi pagina los indicadores economicos de Chile, pero aun no he encontrado nada, me podrian guiar a como hacerlo, se que hay formas de hacerlo con RSS o XML pero al parecer no hay ninguna empresa o banco que preste ese servicio aca en chile.
O si es posible importar una tabla desde un sitio remoto?.

O por ultimo que me digan que es IMPOSIBLE HACERLO si nadie presta el servicio y tendria que ubicar a algun amable programador que me envie el link de la pagina asp para importar el script y las variables

Eso, se agradece todo tipo de ayuda.

[Muzztein]

creo que en la biblioteca de funciones hay una rutina que puede sacar el codigo HTML de una pagina en particular.

luego, si te haces una expresion regular, "tomar prestada" ese tipo de informacion de otro sitio, no deberia ser tan dificil

[franfritz]

Gracias, voi a probar.

[franfritz]

Busque en la biblioteca de funciones y en la faqs y no encontre nada.

[dobled]

oye yo saque uno de estos sitios busca el archivo .js y colocalo en tu sitio, tendras todos los dias los valores actualizados, mira tendria que ver cual saque yo pero no me recuerdo, tienes que ver el codigo fuente y ahi está. . Si te urge mucho tendria que revisar el code de un sitio que hice y te lo mando.

[sjam7]

En las faqs esta, solamente que no se llama exactamente "indicadores de chile"

Este codigo lo que hace es sacar de una pagina de HSBC, de Mexico, el precio del dolar a la compra y venta, convertido en pesos, adaptalo solamente a una pagina de un banco de Chile y listo

PosIni1 es, en el texto resultante el inicio de donde se tomara el texto
PosFin...el fin

Código:

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", "http://dsrefa01.hsbc.com.mx/aptrix/InternetPub.nsf/Content/TasasSplash", False
  xml.Send
	 Cadena = CSTR(xml.responseText)
	 PosIni1 = InStr(Cadena,"DOLAR AMERICANO")
	 PosIni2 = InStr(PosIni1,Cadena,"$")
	 PosFin  = InStr(PosIni2, Cadena,"<")
   DolarCompra = MID(Cadena, PosIni2, PosFin-PosIni2)
	 PosIni1 = PosFin
	 PosIni2 = InStr(PosIni1,Cadena,"$")
	 PosFin  = InStr(PosIni2, Cadena,"<")
   DolarVenta = MID(Cadena, PosIni2, PosFin-PosIni2)
  Set xml = Nothing 


if right(dolarcompra,1)="." then DolarCompra= DolarCompra&"00"
if right(DolarVenta,1)="." then DolarVenta= DolarVenta&"00"
'if response.buffer=true then response.flush

%>

[franfritz]

HHHOOOO, muchas gracias, revisare lo que me recomiendan, claro que en mi horario de trabajo, jejeje. Cuando lo haga dare noticias.

SALUD!