Extraer historicos de Visual Chart para NT

[victorag]

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

[PAULOKO]

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