Экспорт котировок из QUIK: простой скрипт на Lua

function main()

-- list = getClassesList()

-- message(list)

--подготовительные процедуры

ticker = «SBER»

ds1, error_desc = CreateDataSource(«TQBR», ticker, INTERVAL_D1)

if error_desc ~= nil and error_desc ~= "" then

message(«Ошибка получения таблицы свечей:" .. error_desc)

return 0

end

local try_count = 0

while ds1:Size() == 0 and try_count < 1000 do

sleep(100)

try_count = try_count + 1

end

if error_desc ~= nil and error_desc ~= "" then

message(«Ошибка получения таблицы свечей:" .. error_desc)

return 0

end

--собственно экспорт

stocksFile = io.open(getScriptPath().."\\"..ticker..".csv»,«w»);

i = 1

stocksCount = ds1:Size()

message(«Количество записей для экспорта: "..tostring(stocksCount))

stocksFile:write(«Date;Open;High;Low;Close;Volume\n»)

while i < stocksCount do

dayStr = ""

if ds1:T(i).day < 10 then

dayStr = «0»..tostring(ds1:T(i).day)

else

dayStr = tostring(ds1:T(i).day)

end

monStr = ""

if ds1:T(i).month < 10 then

monStr = «0»..tostring(ds1:T(i).month)

else

monStr = tostring(ds1:T(i).month)

end

stockDate = dayStr.."."..monStr.."."..tostring(ds1:T(i).year)

stockOpen = tostring(ds1:O(i))

stockHigh = tostring(ds1:H(i))

stockLow = tostring(ds1:L(i))

stockClose = tostring(ds1:C(i))

stockVolume = tostring(ds1:V(i))

stocksFile:write(stockDate..";"..stockOpen..";"..stockHigh..";"..stockLow..";"..stockClose..";"..stockVolume.."\n»)

i = i + 1

end

stocksFile:close()

message(«Экспорт завершён")

end