_sk_ (Все сообщения пользователя)

function OnAllTrade(t)
    message("OnAllTrade", 1)
end

function OnStop(flag)
    message("OnStop executed", 1)
    pcall(closeWindow)
    interrupted = true
end

local flag = true -- если установить в false, то при остановке скрипта происходит зависание (убирается sleep(0) в функции main)

local foregroundColor = RGB(0, 0, 0)
local backgroundColor = RGB(192, 255, 192)

local interrupted = false
local tableId

local function setTableColors(foregroundColor, backgroundColor)
    local nRows, nCols = GetTableSize(tableId)
    if nRows and nCols then
        for row = 1, nRows do
            for col = 1, nCols do
                SetColor(tableId, row, col,
                        backgroundColor, foregroundColor,
                        backgroundColor, foregroundColor)
            end
        end
    end
end

local function ensureWindowOpened()
    if tableId == nil then
        return
    end
    if IsWindowClosed(tableId) then
        CreateWindow(tableId)
        SetWindowPos(tableId, 0, 0, 300, 100)
        SetWindowCaption(tableId, "hang_test")
        InsertRow(tableId, 1)
        InsertRow(tableId, 2)
        SetCell(tableId, 1, 1, "11")
        SetCell(tableId, 1, 2, "12")
        SetCell(tableId, 2, 1, "21")
        SetCell(tableId, 2, 2, "22")
        SetSelectedRow(tableId, 1)
    end
    setTableColors(foregroundColor, backgroundColor)
end

local function closeWindow()
    local t = tableId
    tableId = nil
    if t then
        DestroyTable(t)
    end
end

function OnInit(scriptPath)
    tableId = AllocTable()
    AddColumn(tableId, 1, "col1", true, QTABLE_STRING_TYPE, 5)
    AddColumn(tableId, 2, "col2", true, QTABLE_STRING_TYPE, 5)
    SetTableNotificationCallback(tableId, function(tId, msg, par1, _)
        if msg == QTABLE_SELCHANGED then
            SetSelectedRow(tId, 1)
        end
    end)
    ensureWindowOpened()
end

local function run()
    ensureWindowOpened()
    if tableId then
        SetSelectedRow(tableId, 2)
    end
end

function OnStop(flag)
    pcall(closeWindow)
    interrupted = true
end

function main()
    message("STARTED", 1)
    while not interrupted do
        run()
        if flag then
            sleep(0)
        end
    end
    pcall(closeWindow)
    message("SHUTDOWN", 1)
end

my_table1:Size()

SearchItems("trades", 0, getNumberOf("trades"),
        function(_class_code, _trade_num)
            return _class_code == classCode and _trade_num == tradeNum
        end,
        "class_code,trade_num")

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 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

function main()  while true do    local t1 = os.time()    local dt = os.sysdate()
    local t2 = os.time(dt)    if math.abs(t1 - t2) > 1 then        message(tostring(t1) .. "; " .. tostring(t2), 2)
    end
  end
end

---
--- Настройки заданы в переменной config, которая к моменту запуска уже определена.
---

local interrupted = false
local tableId
local timeout = 20 -- можно уменьшать, чтобы проблема стала более явной
local nRow = 30 -- количество строк в таблице, можно увеличивать, чтобы проблема стала более явной
local nCol = 10 -- количество столбцов в таблице, можно увеличивать, чтобы проблема стала более явной

function OnInit(scriptPath)
    tableId = AllocTable()
    for colId = 1, nCol do
        AddColumn(tableId, colId, "#" .. colId, true, QTABLE_STRING_TYPE, 20)
    end
end

function OnStop()
    interrupted = true
    local tId = tableId
    tableId = nil
    if tId then
        DestroyTable(tId)
    end
end

function updateTable()
    if tableId == nil then
        return
    end
    if IsWindowClosed(tableId) then
        CreateWindow(tableId)
        SetWindowPos(tableId, config.x, config.y, config.dx, config.dy)
        for rowId = 1, nRow do
            InsertRow(tableId, rowId)
        end
    end
    local dt = os.date(" %Y-%m-%d %X", os.time())
    SetWindowCaption(tableId, config.name .. dt)
    for rowId = 1, nRow do
        for colId = 1, nCol do
            SetCell(tableId, rowId, colId, dt)
        end
    end
end

function main()
    while not interrupted do
        updateTable()
        sleep(timeout)
    end
end

---
--- Этот скрипт нужно запустить.
---

config = {
    name = "RunDemo1",
    x = 0,
    y = 0,
    dx = 1400,
    dy = 100,
}
dofile(getScriptPath() .. "/Demo.lua")

---
--- Этот скрипт нужно запустить.
---

config = {
    name = "RunDemo2",
    x = 0,
    y = 100,
    dx = 1400,
    dy = 100,
}
dofile(getScriptPath() .. "/Demo.lua")

datetime = { year = 2021, month = 12, day = 30, hour = 11, min = 0, sec = 0, ms = 0, mcs = 0, ... }