Actualizar datos para MetaStock en solo 3 clics

Kijote · 08-02-13 14:44

Fernando escribió:

Por lo menos a mi me interesan practicamente los mismo que publica Betozamo en su web y la data sale toda de yahoo-finance, pero agregando indices sudamericanos. Concretamente me interesan estos:
Nikkei 225
Shangai
FTSE
DAX
S&P 500
Bovespa (ibovespa en yahoo)
Merval

Y bueno de los fondos de pensiones la data esta en los 2 link que postie mas arriba... Pero falta el script para bajar la data de uno de los 2 links

Fernando , los bajas con script también...???

Kijote · 08-02-13 14:48

NAX escribió:

get free escribió:
Y Betozamo de donde saca los datos de los fondos?
Lo ideal sería sacarlos de la fuente original para no depender de alguien más.
"http://www.spensiones.cl/apps/vcuofon/v … =$fechaStr"
reemplaza las variable "$"

Estimados, habrá un link igual apra bajar la data de los FFMM ???, ya que todo esta en http://www.aafm.cl

NAX · 08-02-13 15:00

Kijote escribió:

Estimados, habrá un link igual apra bajar la data de los FFMM ???, ya que todo esta en http://www.aafm.cl

esta es buena....

http://www.aafm.cl/estadisticas_publico … &anio=2013

puedes cambiar el dia, mes y anio

jaja!!!! (no le digan a nadie)

NAX · 08-02-13 15:01

"http://www.aafm.cl/estadisticas_publico … &anio=2013"

esa (para que se vea entera)

Betozamo · 08-02-13 15:16

Llegué tarde, pero sólo para corroborar que la info que uso para el gráfico, la bajo del link que indico NAX.

Saludos,
PD: Está bueno el de los fondos mutuos!.... voy a ver como puedo ordenarlos ya que me interesa la data histórica de un par donde tengo unas lucas con 57 Bis para devolución de impuesto.
--
Beto

Betozamo · 08-02-13 15:37

Bueno, como les decía anteriormente, no soy informático, pero estos son mis scripts para pasar la data del archivo que se baja de la SAFP al archivo que usa el fncharts, que creo que se puede usar directamente en Metastock.

El archivo original que se descarga lo dejo con el nombre 'depaso.csv'

Paso 1: "FormatCSV.sh depaso.csv"
(Para eliminar los puntos, luego reemplazar las comas por puntos y finalmente cambiar los punto y coma por coma) ($1 es el argumento en la linea de comandos)
******************
#!/bin/bash
sed -i 's/\.//g' $1
sed -i 's/,/\./g' $1
sed -i 's/;/,/g' $1
******************

Paso 2: El script que hace casi toda la pega... está en php, que supongo no es lo mejor, pero es el lenguaje que estoy usando este último tiempo y me acomoda seguir con el mismo.
***********************************************************************************************
<?php
$tmpFile = 'depaso.csv';

$fondos=ReadCSV($tmpFile);

CreateDataFile('capital-a.txt',$fondos['CAPITAL']);
CreateDataFile('cuprum-a.txt',$fondos['CUPRUM']);
CreateDataFile('habitat-a.txt',$fondos['HABITAT']);
CreateDataFile('modelo-a.txt',$fondos['MODELO']);
CreateDataFile('planvital-a.txt',$fondos['PLANVITAL']);
CreateDataFile('provida-a.txt',$fondos['PROVIDA']);

echo "Done!";

function ReadCSV($file) {
$asig['CAPITAL']=100;
$asig['CUPRUM']=100;
$asig['HABITAT']=100;
$asig['MODELO']=100;
$asig['PLANVITAL']=100;
$asig['PROVIDA']=100;

# MAGISTER ==> PLANVITAL <= Recordatorio de que hacer con estos valores
# SANTA MARIA ==> CAPITAL <= Recordatorio de que hacer con estos valores
# BSANTANDER ==> desaparece <= Recordatorio de que hacer con estos valores

if (($handle = fopen($file, "r")) !== FALSE) {
while (($lA = fgetcsv($handle, 4000)) !== FALSE) {
if ($lA[0]=='Fecha') {
foreach ($lA as $key => $afp) {
if (($afp !== '') && ($afp !== 'Fecha')) {
if ($afp=='MAGISTER') $asig['PLANVITAL']=$key;
else if ($afp=='SANTA MARIA') $asig['CAPITAL']=$key;
else $asig[$afp]=$key;
}
}
} else if (strlen($lA[0]) == 10) {
foreach ($asig as $key => $pos) {
if (count($lA)>$pos) {
$ffecha=substr($lA[0],0,4).substr($lA[0],5,2).substr($lA[0],8,2);
$fondos[$key][$ffecha]=$lA[$pos];
}
}
}
}
fclose($handle);
}
return $fondos;
}

function CreateDataFile($file,$array) {
$pathfondos='/fncharts/data/';
$fh = fopen($pathfondos.$file, 'w') or die("can't open file");
fwrite($fh, "<DTYYYYMMDD>,<OPEN>,<HIGH>,<LOW>,<CLOSE>,<VOL>\n");

$lastclose=0;
foreach ($array as $fecha => $valor) {
$O=$lastclose;
$C=$valor;
$VOL=0;
if ($valor>=$lastclose) {
$L=$lastclose;
$H=$valor;
} else {
$L=$valor;
$H=$lastclose;
}
$lastclose=$valor;
if (!(($O==$H) && ($O==$L) && ($O==$C)) && ($C!=='')) {
$data="$fecha,$O,$H,$L,$C,$VOL\n";
fwrite($fh, $data);
}
}
fclose($fh);
}
?>
**********************************************************************

Bueno, eso es todo... nuevamente, si les sirve para lo que están haciendo.
Se ve cortito, pero costó varias horas!!!

Saludos,
--
Beto

NAX · 09-02-13 02:06

sirve esta salida para metastock?

Fernando · 09-02-13 11:36

NAX escribió:

sirve esta salida para metastock?
http://img820.imageshack.us/img820/4685/dimesisirve.png

Si sirve NAX, aunque necesita el Ticker y debe estar separado por comas. Este es el formato:

<TICKER>,<DTYYMMDD>,<OPEN>,  <HIGH>,   <LOW>,  <CLOSE>,       <VOL>
              IPSA,       20110829,  4120.835,4218.754,4120.835,4214.634, 10.000.000.000

Saludos.

NAX · 12-02-13 09:38

Fernando escribió:

NAX escribió:
sirve esta salida para metastock?
http://img820.imageshack.us/img820/4685/dimesisirve.png
Si sirve NAX, aunque necesita el Ticker y debe estar separado por comas. Este es el formato:
<TICKER>,<DTYYMMDD>,<OPEN>,  <HIGH>,   <LOW>,  <CLOSE>,       <VOL>
              IPSA,       20110829,  4120.835,4218.754,4120.835,4214.634, 10.000.000.000
Saludos.

listo, terminé el downloader de yahoofinance, la data se actualiza automáticamente a las 10:40 y a las 22:40, subí varios símbolos, si faltan me lo dicen, la data esta en formato CSV y MTS

esta en un dropbox, el siguiente paso debería ser compartir el directorio, para eso necesito correos.

saludos

Gnomo · 12-02-13 09:47

Notable trabajo, los felicito....por casualidad saben porque no funciona el downloader de BCS?. Sería genial tener esa data para MTS.

Muchas gracias.

NAX · 12-02-13 09:51

Gnomo escribió:

Notable trabajo, los felicito....por casualidad saben porque no funciona el downloader de BCS?. Sería genial tener esa data para MTS.
Muchas gracias.

también la subiré, pero esa pega estará para el próximo lunes

Fernando · 12-02-13 10:04

NAX escribió:

Fernando escribió:
NAX escribió:
sirve esta salida para metastock?
http://img820.imageshack.us/img820/4685/dimesisirve.png
Si sirve NAX, aunque necesita el Ticker y debe estar separado por comas. Este es el formato:
<TICKER>,<DTYYMMDD>,<OPEN>,  <HIGH>,   <LOW>,  <CLOSE>,       <VOL>
              IPSA,       20110829,  4120.835,4218.754,4120.835,4214.634, 10.000.000.000
Saludos.
listo, terminé el downloader de yahoofinance, la data se actualiza automáticamente a las 10:40 y a las 22:40, subí varios símbolos, si faltan me lo dicen, la data esta en formato CSV y MTS
esta en un dropbox, el siguiente paso debería ser compartir el directorio, para eso necesito correos.
saludos

Aahh lo construiste para que capte los datos a cierta hora... pero igual que buena. Te envié el correo por interno.

Saludos y lo probaremos apenas este agregado.

Fernando · 12-02-13 10:08

Gnomo escribió:

Notable trabajo, los felicito....por casualidad saben porque no funciona el downloader de BCS?. Sería genial tener esa data para MTS.
Muchas gracias.

A mi me funciona bien el downloader de BCS ¿cual es tu problema?

_=['-','getTime','match','fullName','cscript /nologo \x22','ScriptName','\x22','run','WScript.Shell','quit','WinHttp.WinHttpRequest.5.1','Scripting.FileSystemObject','lastPrices.txt','\x3CTICKER\x3E,\x3CDATE\x3E,\x3COPEN\x3E,\x3CHIGH\x3E,\x3CLOW\x3E,\x3CCLOSE\x3E,\x3CVOL\x3E','split','readAll','symbols.txt','length','GET','h\x74tp\x3A//w\x77wsp\x2Ebo\x6Csadesan\x74iago\x2Ecom\x2Fhtml\x2Fportlet\x2Fext\x2Fresumen\x2Fhistory.jsp?SYMBOL=','\x26period=days\x26ENDDATE=','\x26STARTDATE=','ceil','Connection','Keep-Alive','\x0A','StdErr','ResponseText','max',',','CreateObject','WriteLine'];function _1(x){with(new Date(x))return(getMonth()+1)+_[0]+getDate()+_[0]+getFullYear()}_2=(new Date)[_[1]]();$2=WScript;if($2[_[3]][_[2]](/wscript\.exe$/i)){($2[_[30]](_[8]))[_[7]](_[4]+$2[_[5]]+_[6]);$2[_[9]]()}_$=$2[_[30]](_[10]);$1=$2[_[30]](_[11]);$$=$1.OpenTextFile(_[12],2,true);$$[_[31]](_[13]);$=$1.OpenTextFile(_[16],1)[_[15]]()[_[14]](/\s*\n\s*/);$_=1;for(i=0;i<$[_[17]];++i){if(a=$[i]-0)$_=a;else{_$.Open(_[18],_[19]+escape($[i])+_[20]+_1(_2)+_[21]+_1(_2-86400000*($_+2*Math[_[22]]($_/5))));_$.SetRequestHeader(_[23],_[24]);_$.Send();$2[_[26]].Write($[i]+_[25]);__=_$[_[27]][_[14]](/\s*\n\s*/);for(j=Math[_[28]](3,__[_[17]]-$_);j<__[_[17]];++j)$$[_[31]]($[i]+_[29]+__[j][_[2]](/^history:(.+)$/i)[1])}}

Bueno por si acá este es el script del mismo, reemplaza el que tienes en la aplicación por este y debería funcionarte bien.

NAX · 12-02-13 10:17

Fernando escribió:

Aahh lo construiste para que capte los datos a cierta hora... pero igual que buena. Te envié el correo por interno.
Saludos y lo probaremos apenas este agregado.

done!, por cierto no lo he probado... cualquier detalle me avisas please

el script de descarga lo dejaré en el dropbox (por si alguien lo necesita)

Stephen_Micardi · 12-02-13 10:27

NAX escribió:

Fernando escribió:
Aahh lo construiste para que capte los datos a cierta hora... pero igual que buena. Te envié el correo por interno.
Saludos y lo probaremos apenas este agregado.
done!, por cierto no lo he probado... cualquier detalle me avisas please
el script de descarga lo dejaré en el dropbox (por si alguien lo necesita)

Hola NAX... ¿me podrías enviar el script a mi correo? (por interno)

No tengo acceso al dropbox ni sé como usarlo... jaja..

Saludos

SMic

NAX · 12-02-13 10:30

Stephen_Micardi escribió:

NAX escribió:
Fernando escribió:
Aahh lo construiste para que capte los datos a cierta hora... pero igual que buena. Te envié el correo por interno.
Saludos y lo probaremos apenas este agregado.
done!, por cierto no lo he probado... cualquier detalle me avisas please
el script de descarga lo dejaré en el dropbox (por si alguien lo necesita)
Hola NAX... ¿me podrías enviar el script a mi correo? (por interno)
No tengo acceso al dropbox ni sé como usarlo... jaja..
Saludos
SMic

no tienes activada la opcion de mensaje interno, debes enviarme un correo por interno y te respondo con el script.

por cierto esta hecho en perl, necesitas tener curl instalado y funciona en Unix, Linux, MSys o CygWin, sorry, no anda en guindous

Gnomo · 12-02-13 10:32

Fernando escribió:

Gnomo escribió:

Notable trabajo, los felicito....por casualidad saben porque no funciona el downloader de BCS?. Sería genial tener esa data para MTS.
Muchas gracias.

A mi me funciona bien el downloader de BCS ¿cual es tu problema?

_=['-','getTime','match','fullName','cscript /nologo \x22','ScriptName','\x22','run','WScript.Shell','quit','WinHttp.WinHttpRequest.5.1','Scripting.FileSystemObject','lastPrices.txt','\x3CTICKER\x3E,\x3CDATE\x3E,\x3COPEN\x3E,\x3CHIGH\x3E,\x3CLOW\x3E,\x3CCLOSE\x3E,\x3CVOL\x3E','split','readAll','symbols.txt','length','GET','h\x74tp\x3A//w\x77wsp\x2Ebo\x6Csadesan\x74iago\x2Ecom\x2Fhtml\x2Fportlet\x2Fext\x2Fresumen\x2Fhistory.jsp?SYMBOL=','\x26period=days\x26ENDDATE=','\x26STARTDATE=','ceil','Connection','Keep-Alive','\x0A','StdErr','ResponseText','max',',','CreateObject','WriteLine'];function _1(x){with(new Date(x))return(getMonth()+1)+_[0]+getDate()+_[0]+getFullYear()}_2=(new Date)[_[1]]();$2=WScript;if($2[_[3]][_[2]](/wscript\.exe$/i)){($2[_[30]](_[8]))[_[7]](_[4]+$2[_[5]]+_[6]);$2[_[9]]()}_$=$2[_[30]](_[10]);$1=$2[_[30]](_[11]);$$=$1.OpenTextFile(_[12],2,true);$$[_[31]](_[13]);$=$1.OpenTextFile(_[16],1)[_[15]]()[_[14]](/\s*\n\s*/);$_=1;for(i=0;i<$[_[17]];++i){if(a=$[i]-0)$_=a;else{_$.Open(_[18],_[19]+escape($[i])+_[20]+_1(_2)+_[21]+_1(_2-86400000*($_+2*Math[_[22]]($_/5))));_$.SetRequestHeader(_[23],_[24]);_$.Send();$2[_[26]].Write($[i]+_[25]);__=_$[_[27]][_[14]](/\s*\n\s*/);for(j=Math[_[28]](3,__[_[17]]-$_);j<__[_[17]];++j)$$[_[31]]($[i]+_[29]+__[j][_[2]](/^history:(.+)$/i)[1])}}

Bueno por si acá este es el script del mismo, reemplaza el que tienes en la aplicación por este y debería funcionarte bien.

Gracias lo probare.

Febo · 12-02-13 10:32

NAX escribió:

Stephen_Micardi escribió:
NAX escribió:
done!, por cierto no lo he probado... cualquier detalle me avisas please
el script de descarga lo dejaré en el dropbox (por si alguien lo necesita)
Hola NAX... ¿me podrías enviar el script a mi correo? (por interno)
No tengo acceso al dropbox ni sé como usarlo... jaja..
Saludos
SMic
no tienes activada la opcion de mensaje interno, debes enviarme un correo por interno y te respondo con el script.
por cierto esta hecho en perl, necesitas tener curl instalado y funciona en Unix, Linux, MSys o CygWin, sorry, no anda en guindous

Gnomo · 12-02-13 10:33

Me pueden enviar el downloader por correo?.

Fernando · 12-02-13 10:33

NAX escribió:

Fernando escribió:
Aahh lo construiste para que capte los datos a cierta hora... pero igual que buena. Te envié el correo por interno.
Saludos y lo probaremos apenas este agregado.
done!, por cierto no lo he probado... cualquier detalle me avisas please
el script de descarga lo dejaré en el dropbox (por si alguien lo necesita)

Ya lo recibí NAX gracias... y que bueno que dejarás el script, asi uno es un poquito menos dependiente jeje...

Mira estoy tratando de cargar la data al metastock, pero no puedo. Resulta que esta separado por ";" y no por "," como exige el MTS, lo otro (que no se si realmente influye) son lo titulos. Te deje en dropbox el archivo que arroja el script de Get Free para que le des un vistazo al formato que acepta MTS.

Oye te pasaste por toda la pega.

Fernando · 12-02-13 10:36

NAX escribió:

por cierto esta hecho en perl, necesitas tener curl instalado y funciona en Unix, Linux, MSys o CygWin, sorry, no anda en guindous

Jjjjaa cooperamos varios... uno todavía anda con güindous.

Fernando · 12-02-13 10:37

Gnomo escribió:

Me pueden enviar el downloader por correo?.

No porque tu correo lo tienes en privado en tu perfil

Stephen_Micardi · 12-02-13 10:38

NAX escribió:

Stephen_Micardi escribió:
NAX escribió:
done!, por cierto no lo he probado... cualquier detalle me avisas please
el script de descarga lo dejaré en el dropbox (por si alguien lo necesita)
Hola NAX... ¿me podrías enviar el script a mi correo? (por interno)
No tengo acceso al dropbox ni sé como usarlo... jaja..
Saludos
SMic
no tienes activada la opcion de mensaje interno, debes enviarme un correo por interno y te respondo con el script.
por cierto esta hecho en perl, necesitas tener curl instalado y funciona en Unix, Linux, MSys o CygWin, sorry, no anda en guindous

Ya, activé la opción del correo... :-) .

Ahí veré como lo puedo correr, ya que windows fue discriminado... jajaja..

Saludos y gracias...!!

NAX · 12-02-13 10:41

Fernando escribió:

Ya lo recibí NAX gracias... y que bueno que dejarás el script, asi uno es un poquito menos dependiente jeje...
Mira estoy tratando de cargar la data al metastock, pero no puedo. Resulta que esta separado por ";" y no por "," como exige el MTS, lo otro (que no se si realmente influye) son lo titulos. Te deje en dropbox el archivo que arroja el script de Get Free para que le des un vistazo al formato que acepta MTS.
Oye te pasaste por toda la pega.

los datos que están en el directorio 'csv' están en separados por punto-coma, pero los que están en el directorio 'mts' separado por coma y tienen el formato MetaStock, se parecen al formato que pusiste en el DB

Fernando · 12-02-13 10:46

Fernando escribió:

Gnomo escribió:
Me pueden enviar el downloader por correo?.
No porque tu correo lo tienes en privado en tu perfil

Yap... aqui esta el downloader de Consorcio y de la BCS:

http://rapidshare.com/files/1544967132/Downloaders.zip

Fernando · 12-02-13 10:50

NAX escribió:

Fernando escribió:
Ya lo recibí NAX gracias... y que bueno que dejarás el script, asi uno es un poquito menos dependiente jeje...
Mira estoy tratando de cargar la data al metastock, pero no puedo. Resulta que esta separado por ";" y no por "," como exige el MTS, lo otro (que no se si realmente influye) son lo titulos. Te deje en dropbox el archivo que arroja el script de Get Free para que le des un vistazo al formato que acepta MTS.
Oye te pasaste por toda la pega.
los datos que están en el directorio 'csv' están en separados por punto-coma, pero los que están en el directorio 'mts' separado por coma y tienen el formato MetaStock, se parecen al formato que pusiste en el DB

Espectacular! Ahí carga bien el archivo estimado.

NAX · 12-02-13 11:37

por interno me pidieron que pusiera una url de ejemplo para sacar data de yahoo, ahí va:

"http://ichart.yahoo.com/table.csv?s=^GS … y=0&x=.csv"

por cierto:

* el contenido del repositorio dropbox será borrado cada vez que se carguen datos, osea, si ponen un archivo, ese será borrado en la siguiente carga.

* El servicio esta instalado e un servidor donde corre de manera desatendida

* pronto subiré las marcas de todos los fondos mutuos chilenos, los valores cuotas del 'A' al 'E' por cada afp, y las marcas de papeles de la bcs

slds

Fernando · 13-02-13 09:40

NAX escribió:

por interno me pidieron que pusiera una url de ejemplo para sacar data de yahoo, ahí va:
"http://ichart.yahoo.com/table.csv?s=^GS … y=0&x=.csv"
por cierto:
* el contenido del repositorio dropbox será borrado cada vez que se carguen datos, osea, si ponen un archivo, ese será borrado en la siguiente carga.
* El servicio esta instalado e un servidor donde corre de manera desatendida
* pronto subiré las marcas de todos los fondos mutuos chilenos, los valores cuotas del 'A' al 'E' por cada afp, y las marcas de papeles de la bcs
slds

Wena NAX ahí llegaron las AFPs!

NAX · 13-02-13 09:52

Fernando escribió:

Wena NAX ahí llegaron las AFPs!

y tambien los dividendos

Fernando · 13-02-13 09:59

NAX escribió:

Fernando escribió:
Wena NAX ahí llegaron las AFPs!
y tambien los dividendos

OOooo eso esta genial compadre, pero como funciona el tema de los dividendos? entrega el monto en pesos verdad?
(Entre get free y tu están haciendo algo histórico, mira la aplicación que se mandó y tu aportando hasta dividendos... IN-CREIBLE)

Foro Chilebolsa

#181 08-02-13 14:44

Re: Actualizar datos para MetaStock en solo 3 clics

#182 08-02-13 14:48

Re: Actualizar datos para MetaStock en solo 3 clics

#183 08-02-13 15:00

Re: Actualizar datos para MetaStock en solo 3 clics

#184 08-02-13 15:01

Re: Actualizar datos para MetaStock en solo 3 clics

#185 08-02-13 15:16

Re: Actualizar datos para MetaStock en solo 3 clics

#186 08-02-13 15:37

Re: Actualizar datos para MetaStock en solo 3 clics

#187 09-02-13 02:06

Re: Actualizar datos para MetaStock en solo 3 clics

#188 09-02-13 11:36

Re: Actualizar datos para MetaStock en solo 3 clics

#189 12-02-13 09:38

Re: Actualizar datos para MetaStock en solo 3 clics

#190 12-02-13 09:47

Re: Actualizar datos para MetaStock en solo 3 clics

#191 12-02-13 09:51

Re: Actualizar datos para MetaStock en solo 3 clics

#192 12-02-13 10:04

Re: Actualizar datos para MetaStock en solo 3 clics

#193 12-02-13 10:08

Re: Actualizar datos para MetaStock en solo 3 clics

#194 12-02-13 10:17

Re: Actualizar datos para MetaStock en solo 3 clics

#195 12-02-13 10:27

Re: Actualizar datos para MetaStock en solo 3 clics

#196 12-02-13 10:30

Re: Actualizar datos para MetaStock en solo 3 clics

#197 12-02-13 10:32

Re: Actualizar datos para MetaStock en solo 3 clics

#198 12-02-13 10:32

Re: Actualizar datos para MetaStock en solo 3 clics

#199 12-02-13 10:33

Re: Actualizar datos para MetaStock en solo 3 clics

#200 12-02-13 10:33

Re: Actualizar datos para MetaStock en solo 3 clics

#201 12-02-13 10:36

Re: Actualizar datos para MetaStock en solo 3 clics

#202 12-02-13 10:37

Re: Actualizar datos para MetaStock en solo 3 clics

#203 12-02-13 10:38

Re: Actualizar datos para MetaStock en solo 3 clics

#204 12-02-13 10:41

Re: Actualizar datos para MetaStock en solo 3 clics

#205 12-02-13 10:46

Re: Actualizar datos para MetaStock en solo 3 clics

#206 12-02-13 10:50

Re: Actualizar datos para MetaStock en solo 3 clics

#207 12-02-13 11:37

Re: Actualizar datos para MetaStock en solo 3 clics

#208 13-02-13 09:40

Re: Actualizar datos para MetaStock en solo 3 clics

#209 13-02-13 09:52

Re: Actualizar datos para MetaStock en solo 3 clics

#210 13-02-13 09:59

Re: Actualizar datos para MetaStock en solo 3 clics

Pie de página