--[[
Что делает:
   Сохраняет график в текстовый файл.
   Формат файла такой:
   <DATE>;<TIME>;<OPEN>;<HIGH>;<LOW>;<CLOSE>;<VOL>
   
Как использовать:
   Постройте график
   В параметрах графика, зайдите на вкладку 'Дополнительно'.
   В поле 'Идентификатор' укажите уникальный идентификатор этого графика. По умолчанию GRAPH
   Точно такой же идентификаор укажите в переменной TAG
]]
-------------------------------НАСТРОЙКИ-------------------------------
TAG='GRAPH' --Идентификатор графика

separator = ',' --Разделитель колонок

GraphPath=getScriptPath() --папка в которую будет записываться файл с графиком

-----------------------------------------------------------------------

-------------------------------ТО ЧТО НИЖЕ, ТРОГАТЬ НЕ НАДО------------------------------------------------------------------

tbl = {
[1]='DATE',      --Дата свечи
[2]='TIME',      --Время свечи
[3]='OPEN',      --Цена открытия
[4]='HIGH',      --Максимальная цена
[5]='LOW',      --Минимальная цена
[6]='CLOSE',   --Цена закрытия
[7]='VOL'      --Объем
}

WORK = true
file = nil

last_candle=0
first_candle=0

function OnInit()
   WORK = true
end

function OnStop()
   WORK = false
end

function FTEXT(int)
local Output = ""
   if int<10 then
      Output = "0"
   end
   return Output .. tostring(int)
end


function dt2str(dt)
   return {['DATE']=FTEXT(dt.year)..FTEXT(dt.month)..FTEXT(dt.day), ['TIME']=FTEXT(dt.hour)..FTEXT(dt.min)..FTEXT(dt.sec)}
end

function main()
local line = 0
local t, n, l = getCandlesByIndex(TAG, line, 0, 1)
if n>0 then
   local file = io.open(GraphPath..'\\'..l..'.csv', 'w+') 
   file:write(table.concat(tbl,separator) .. '\n')
   file:flush()
   while WORK do
      last_candle = getNumCandles(TAG)-1
      if last_candle>first_candle then
         local t, n, l = getCandlesByIndex(TAG, line, first_candle, last_candle-first_candle) 
         for i=0,n-1 do
            tbl = {
               [1]=dt2str(t[i].datetime).DATE,      --Дата свечи
               [2]=dt2str(t[i].datetime).TIME,      --Время свечи
               [3]=tostring(t[i].open),      --Цена открытия
               [4]=tostring(t[i].high),      --Максимальная цена
               [5]=tostring(t[i].low),      --Минимальная цена
               [6]=tostring(t[i].close),   --Цена закрытия
               [7]=tostring(t[i].volume)      --Объем
            }
            file:write(table.concat(tbl,separator) .. '\n')
            file:flush()
         end
         first_candle=last_candle
      end
   end
   file:close()
end
end