X-Trader.net - El Foro de los Traders

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

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