filename = "D:/last_quotes.txt"
pauseDurationMillis = 10000
sleepDurationMillis = 250
startExportHHMM = 0900
stopExportHHMM = 2300

dofile(getScriptPath() .. "/ParamExportCode.lua")

local function isExportTime()
    local dt = os.sysdate()
    local hhmm = dt.hour * 100 + dt.min
    return startExportHHMM <= hhmm and hhmm < stopExportHHMM and 1 <= dt.week_day and dt.week_day <= 5
end

function OnStop()
    isInterrupted = true
end

function main()
    message("Export started.", 1)
    requestParams()
    while not isInterrupted do
        if isExportTime() then
            exportQuotes()
        end
        pause(pauseDurationMillis)
    end
    message("Export stopped.", 1)
end

--- Функция для условного форматирования: до момента hhmm используется format1, после -- format2
local function formatHHMM(hhmm, format1, format2)
    return function()
        local dt = os.sysdate()
        if dt.hour * 100 + dt.min < hhmm then          
            return format1
        else
            return format2
        end
    end
end

-- Настройки для вывода котировок
securities = {
    {
        line = "GAZ ----\n", -- в конце перевод строки
    },
    {
        classCode = "SPBFUT",
        secCode = "BRF3",
        params = {
            { param = "last", format = "BRENT %.2f ", }, -- в конце пробел-разделитель
            { param = "lastChange", format = "OIL %.1f\n", }, -- в конце перевод строки
        },
    },
    {
        classCode = "SPBFUT",
        secCode = "GDZ2",
        params = {
            { param = "last", format = "GOLD %.1f ", },
            { param = "lastChange", format = "%.2f\n", }, 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "GAZP",
        params = { 
            { param = "last", format = "GAZP %.2f ", },
        },
    },
    { 
        classCode = "TQBR",
        secCode = "SBER",
        params = {
            { param = "last", format = "SBER %.2f\n", },
        },
    },
    { 
        classCode = "TQBR",
        secCode = "AFLT",
        params = { 
            { param = "last", format = "AFLT %.2f ", }, 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "GMKN",
        params = {
            { param = "last", format = "GMKN %.0f\n", }, 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "MGNT",
        params = { 
            { param = "last", format = formatHHMM(1837, "MGNT --\n", "MGNT %.1f\n"), }, 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "MOEX",
        params = { 
            { param = "last", format = formatHHMM(1837, "", "MOEX %.2f\n"), }, 
        },
    },
}

filename = "D:/last_quotes.txt"
pauseDurationMillis = 10000
sleepDurationMillis = 250

dofile(getScriptPath() .. "/ParamExportCode.lua")

local isInterrupted = false
local file

local function valueOf(x)
    return type(x) == "function" and x() or x
end

local function requestParams()
    for _, security in ipairs(securities) do
        if type(security.params) == "table" then
            for _, securityParams in ipairs(security.params) do
                if not ParamRequest(security.classCode, security.secCode, securityParams.param) then
                    message("Cannot request: "
                            .. tostring(security.classCode) .. ", "
                            .. tostring(security.secCode) .. ", "
                            .. tostring(securityParams.param), 2)
                end
            end
        end
    end
end

local function exportQuotesForSecurity(security)
    if type(security.line) == "string" then
        file:write(tostring(security.line))
    elseif type(security.params) == "table" then
        for i, securityParams in ipairs(security.params) do
            local paramEx = getParamEx(security.classCode, security.secCode, securityParams.param)
            if paramEx.result == "1" then
                file:write(string.format(valueOf(securityParams.format), paramEx.param_value))
            else
                message("Cannot export: "
                        .. tostring(security.classCode) .. ", "
                        .. tostring(security.secCode) .. ", "
                        .. tostring(securityParams.param), 2)
            end
        end
    end
end

local function exportQuotes()
    file = io.open(filename, "w+")
    if file then
        for _, security in ipairs(securities) do
            exportQuotesForSecurity(security)
        end
        file:close()
    end
end

local function pause(durationMillis)
    while durationMillis > 0 and not isInterrupted do
        sleep(math.min(durationMillis, sleepDurationMillis))
        durationMillis = durationMillis - sleepDurationMillis
    end
end

function OnStop()
    isInterrupted = true
end

function main()
    message("Export started.", 1)
    requestParams()
    while not isInterrupted do
        exportQuotes()
        pause(pauseDurationMillis)
    end
    message("Export stopped.", 1)
end

local securities = {
    {
        classCode = "SPBFUT",
        secCode = "BRF3",
        params = {
            { param = "last", format = "BRENT %.2f ", }, -- название пишем прямо в строке format, в конце добавляем пробел
            { param = "lastChange", format = "OIL %.1f\n", }, -- тут в конце строки format добавляем перевод строки
        },
    },
    {
        classCode = "SPBFUT",
        secCode = "GDZ2",
        params = {
            { param = "last", format = "GOLD %.1f ", },
            { param = "lastChange", format = "%.2f\n", }, 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "GAZP",
        params = { 
            { param = "last", format = "GAZP %.2f ", }, -- в конце пробел, чтобы отделить от следующего инструмента 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "SBER",
        params = {
            { param = "last", format = "SBER %.2f\n", }, -- в конце перевод строки
        },
    },
    { 
        classCode = "TQBR",
        secCode = "AFLT",
        params = { 
            { param = "last", format = "AFLT %.2f ", }, 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "GMKN",
        params = {
            { param = "last", format = "GMKN %.0f\n", }, 
        },
    },
}

local filename = "D:/last_quotes.txt"
local pauseDurationMillis = 10000
local sleepDurationMillis = 250
local isInterrupted = false
local file

local function requestParams()
    for _, security in ipairs(securities) do
        for _, securityParams in ipairs(security.params) do
            if not ParamRequest(security.classCode, security.secCode, securityParams.param) then
                message("Не удалось заказать: "
                    .. tostring(security.classCode) .. ", "
                    .. tostring(security.secCode) .. ", "
                    .. tostring(securityParams.param), 2)
            end
        end
    end
end

local function exportQuotesForSecurity(security)
    for i, securityParams in ipairs(security.params) do
        local paramEx = getParamEx(security.classCode, security.secCode, securityParams.param)
        if paramEx.result == "1" then
            file:write(string.format(securityParams.format, paramEx.param_value))
        else
            message("Не удалось экспортировать: "
                .. tostring(security.classCode) .. ", "
                .. tostring(security.secCode) .. ", "
                .. tostring(securityParams.param), 2)
        end
    end
end

local function exportQuotes()
    file = io.open(filename, "w+")
    if file then
        for _, security in ipairs(securities) do
            exportQuotesForSecurity(security)
        end
        file:close()
    end
end

local function pause(durationMillis)
    while durationMillis > 0 and not isInterrupted do
        sleep(math.min(durationMillis, sleepDurationMillis))
        durationMillis = durationMillis - sleepDurationMillis
    end
end

function OnStop()
    isInterrupted = true
end

function main()
    message("Скрипт экспорта котировок запущен.", 1)
    requestParams()
    while not isInterrupted do
        exportQuotes()
        pause(pauseDurationMillis)
    end
    message("Скрипт экспорта котировок остановлен.", 1)
end

local securities = {
    {
        classCode = "SPBFUT",
        secCode = "BRF3",
        params = {
            { prefix = "", name = "BRENT", delimiter = " ", param = "last", format = "%.2f", suffix = " ", },
            { prefix = "", name = "OIL", delimiter = " ", param = "lastChange", format = "%.1f", suffix = "\n", }, 
        },
    },
    {
        classCode = "SPBFUT",
        secCode = "GDZ2",
        params = {
            { prefix = "на всякий случай :) ", name = "GOLD", delimiter = " ", param = "last", format = "%.1f", suffix = " ", },
            { prefix = "", name = "золото", delimiter = " ", param = "lastChange", format = "%.2f", suffix = "\n", }, 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "GAZP",
        params = { 
            { prefix = "", name = "GAZP", delimiter = " ", param = "last", format = "%.2f", suffix = " ", }, 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "SBER",
        params = {
            { prefix = "", name = "SBER", delimiter = " ", param = "last", format = "%.2f", suffix = "\n", }, 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "AFLT",
        params = { 
            { prefix = "", name = "AFLT", delimiter = " ", param = "last", format = "%.2f", suffix = " ", }, 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "GMKN",
        params = {
            { prefix = "", name = "GMKN", delimiter = " ", param = "last", format = "%.0f", suffix = "\n", }, 
        },
    },
}

local filename = "D:/last_quotes.txt"
local pauseDurationMillis = 10000
local sleepDurationMillis = 250
local isInterrupted = false
local file

local function requestParams()
    for _, security in ipairs(securities) do
        for _, securityParams in ipairs(security.params) do
            if not ParamRequest(security.classCode, security.secCode, securityParams.param) then
                message("Не удалось заказать: "
                    .. tostring(security.classCode) .. ", "
                    .. tostring(security.secCode) .. ", "
                    .. tostring(securityParams.param), 2)
            end
        end
    end
end

local function exportQuotesForSecurity(security)
    for i, securityParams in ipairs(security.params) do
        local paramEx = getParamEx(security.classCode, security.secCode, securityParams.param)
        if paramEx.result == "1" then
            file:write(
                securityParams.prefix or "",
                securityParams.name or "",
                securityParams.delimiter or " ",
                string.format(securityParams.format, paramEx.param_value), 
                securityParams.suffix or "")
        else
            message("Не удалось экспортировать: "
                .. tostring(security.classCode) .. ", "
                .. tostring(security.secCode) .. ", "
                .. tostring(securityParams.param), 2)
        end
    end
end

local function exportQuotes()
    file = io.open(filename, "w+")
    if file then
        for _, security in ipairs(securities) do
            exportQuotesForSecurity(security)
        end
        file:close()
    end
end

local function pause(durationMillis)
    while durationMillis > 0 and not isInterrupted do
        sleep(math.min(durationMillis, sleepDurationMillis))
        durationMillis = durationMillis - sleepDurationMillis
    end
end

function OnStop()
    isInterrupted = true
end

function main()
    message("Скрипт экспорта котировок запущен.", 1)
    requestParams()
    while not isInterrupted do
        exportQuotes()
        pause(pauseDurationMillis)
    end
    message("Скрипт экспорта котировок остановлен.", 1)
end

local securities = {
    { 
        classCode = "TQBR",
        secCode = "SBER",
        params = {
            { name = "SBER", param = "last", format = "%.2f", }, 
            { name = "Сбер", param = "lastChange", format = "%.1f", }, 
        },
    },
    { 
        classCode = "TQBR",
        secCode = "GAZP",
        params = { 
            { name = "GAZP", param = "last", format = "%.2f", }, 
        },
    },
    {
        classCode = "SPBFUT",
        secCode = "BRF3",
        params = {
            { name = "BR", param = "last", format = "%.2f", },
            { name = "OIL", param = "lastChange", format = "%.2f", }, 
        },
    },
}

local filename = "D:/last_quotes.txt"
local pauseDurationMillis = 10000
local sleepDurationMillis = 100
local isInterrupted = false
local file

local function requestParams()
    for _, security in ipairs(securities) do
        for _, securityParams in ipairs(security.params) do
            ParamRequest(security.classCode, security.secCode, securityParams.param)
        end
    end
end

local function exportQuotesForSecurity(security)
    for i, securityParams in ipairs(security.params) do
        local paramEx = getParamEx(security.classCode, security.secCode, securityParams.param)
        if paramEx.result == "1" then
            if i > 1 then
                file:write(" ")
            end
            file:write(securityParams.name, " ", string.format(securityParams.format, paramEx.param_value))
        end
    end
    file:write("\n")
end

local function exportQuotes()
    file = io.open(filename, "w+")
    if file then
        for _, security in ipairs(securities) do
            exportQuotesForSecurity(security)
        end
        file:close()
    end
end

local function pause(durationMillis)
    while durationMillis > 0 and not isInterrupted do
        sleep(math.min(durationMillis, sleepDurationMillis))
        durationMillis = durationMillis - sleepDurationMillis
    end
end

function OnStop()
    isInterrupted = true
end

function main()
    requestParams()
    while not isInterrupted do
        exportQuotes()
        pause(pauseDurationMillis)
    end
end

local securities = {
  { classCode = "TQBR", secCode = "SBER", },
  { classCode = "TQBR", secCode = "GAZP", },
  { classCode = "SPBFUT", secCode = "LKZ2", }
}

local param = "last"
local filename = "D:/last_quotes.txt"
local pauseDurationMillis = 10000
local sleepDurationMillis = 100
local isInterrupted = false
local file

local function requestParams()
    for _, security in ipairs(securities) do
        ParamRequest(security.classCode, security.secCode, param)
    end
end

local function exportQuote(security)
    local paramEx = getParamEx(security.classCode, security.secCode, param)
    if paramEx.result == "1" then
        file:write(security.secCode, " ", tostring(paramEx.param_value), "\n")
    end
end

local function exportQuotes()
    file = io.open(filename, "w+")
    if file then
        for _, security in ipairs(securities) do
            exportQuote(security)
        end
        file:close()
    end
end

local function pause(durationMillis)
    while durationMillis > 0 and not isInterrupted do
        sleep(math.min(durationMillis, sleepDurationMillis))
        durationMillis = durationMillis - sleepDurationMillis
    end
end

function OnStop()
    isInterrupted = true
end

function main()
    requestParams()
    while not isInterrupted do
        exportQuotes()
        pause(pauseDurationMillis)
    end
end

local filename = "!outs.txt"

local classCode = "TQBR"
local secCode = "GAZP"
local param = "last"
local filename = "D:/" .. classCode .. "_" .. secCode .. ".txt"
local pauseDurationMillis = 10000
local sleepDurationMillis = 100
local isInterrupted = false

local function printValue(value)
    local file = io.open(filename, "w+")
    if file then
        file:write(tostring(value))
        file:close()
    end
end

local function exportParam()
    local paramEx = getParamEx(classCode, secCode, param)
    if paramEx.result == "1" then
        printValue(paramEx.param_value)
    end
end

local function pause(durationMillis)
    while durationMillis > 0 and not isInterrupted do
        sleep(math.min(durationMillis, sleepDurationMillis))
        durationMillis = durationMillis - sleepDurationMillis
    end
end

function OnStop()
    isInterrupted = true
end

function main()
    ParamRequest(classCode, secCode, param)
    while not isInterrupted do
        exportParam()
        pause(pauseDurationMillis)
    end
end