//+------------------------------------------------------------------+ // FileSave | 13.10 )Long .TP,,.Bub... 1 lot only!! //| / | только сопровождение без входов //+------------------------------------------------------------------+ bool tsave ; //-------------------------------------------------------------------- int init() // Спец. ф-ия init() { //-------------------------------------------------------------------- tsave = 0 ; Comment (" ATicEvro Long 2 ЗАПУЩЕНА "," Hour = ",Hour () ," Minute = ",Minute() ); return; // Выход из init() } //+------------------------------------------------------------------+ //| expert deinitialization function | //+------------------------------------------------------------------+ int deinit() { Comment (" ATicEvro Long 2 выгружена ", " Hour = ",Hour () ," Minute = ",Minute()); // Сообщение return; } //+------------------------------------------------------------------+ //| Start function | //+------------------------------------------------------------------+ void start() { if ( tsave < 1) Savefile () ; if ( tsave > 0 ) Comment ("Файл создан." ); } // Выход из start() void Savefile () // Сохранение в файл { if ( tsave > 0) return; int length = 10; string nameData; nameData = Symbol()+ "shel.csv"; // имя отправляемого файла данных int handle; handle = FileOpen(nameData, FILE_CSV|FILE_WRITE,';'); if(handle < 1) { Print("Не удалось создать "+nameData+". Ошибка #", GetLastError()); return(0); } FileWrite(handle, Symbol(), Period()); // заголовок FileWrite(handle, "DATE","TIME","LOW " );// заголовок int i; for (i=length-1; i>=0; i--) { FileWrite(handle, TimeToStr(Time[i], TIME_DATE), TimeToStr(Time[i], TIME_SECONDS), Low[i] ); } FileClose(handle); tsave=1 ; Print("Файл "+nameData+" создан. "+TimeToStr(TimeCurrent(), TIME_SECONDS) ); //return(0); }