Buenas,
Muy fácil, si metéis esta función en un indicador o estrategia de Visual Chart.
Public Sub GrabarNT(Instrumento As String)
Dim ff As Integer
Dim Info As String
With APP
Info = .Date(0)
Info = Info & " " & Format(CLng(.Time(0)), "0000") & "00"
Info = Info & ";" & Replace("" & .Open(0), ",", ".")
Info = Info & ";" & Replace("" & .High(0), ",", ".")
Info = Info & ";" & Replace("" & .Low(0), ",", ".")
Info = Info & ";" & Replace("" & .Close(0), ",", ".")
Info = Info & ";" & Replace("" & .Volume(0), ",", ".")
End With
ff = FreeFile
Open "C:\" + Instrumento + " ##-##.txt" For Append As #ff
Print #ff, Info
Close #ff
End Sub
Se llama en el System_OnCalculateBar.
Call GrabarNT("6E") ' Por ejemplo para el EuroFX.
1. Borrar fichero antiguo.
2. Cargar el gráfico en 1 minuto en VC.
3. Cargar el indicador o estrategia en VC. Entonces genera el archivo.
4. Importar en Ninja y listo.
Saludos,
Paco
Extraer historicos de Visual Chart para NT
Re: Extraer historicos de Visual Chart para NT
Muchas gracias Paco por el aporte.
Como bien dices muy fácil.
Ya estoy creando el archivo con el histórico del futuro del Dax.
Yo lo he puesto en un sistema y al cargarlo se ha quedado la pantalla en blanco, pero el archivo que he creado está engordando, señal que está grabando.
Saludos
Como bien dices muy fácil.
Ya estoy creando el archivo con el histórico del futuro del Dax.
Yo lo he puesto en un sistema y al cargarlo se ha quedado la pantalla en blanco, pero el archivo que he creado está engordando, señal que está grabando.
Saludos
Cortando cojones se aprende a capar.