local Misc = require("Misc")

local function writeTtoFile(fn)
    local f = io.open(fn,"w+")
    for i=0,getNumberOf("FUTURES_CLIENT_HOLDING")-1 do
        local t = getItem("FUTURES_CLIENT_HOLDING",i)
        f:write(Misc.asString(t),"\n")
    end
    f:close()
end

local function run()
    local _c 
    local _t = os.time()
    local c_err = 0
    while true do
        local c = getNumberOf("FUTURES_CLIENT_HOLDING") 
        if _c ~= c then
            message("c = "..tostring(c),1)
            if _c then c_err = c_err + 1 end
            _c = c
            --message( "_c ~= c "..tostring(_c).." ~= "..tostring(c), 3 )
            local fn = getScriptPath().."\\FUTURES_CLIENT_HOLDING\\FUTURES_CLIENT_HOLDING_"..os.date("%Y%m%d_%H%M%S")..".lua"
            writeTtoFile(fn)
        end
        sleep(10)
        local time = os.time() 
        if time - _t > 10 then
            message("Количество неправильных количеств: "..tostring(c_err).."  (_c = "..tostring(_c)..")",1)
            _t = time
        end
    end
end

function main()
    local ok,res = pcall(run)
    if not ok then
        message( tostring(res),3 )
        message( tostring(debug.traceback()),3 )
    end
end

function main()
    local t = {
        ["A"] = 1,
        ["B"] = 1,
        ["C"] = 1,
        ["D"] = 1,
    }
    
    local _c 
    local _t = os.time()
    local c_err = 0
    while true do
        local c = 0
        for k,v in pairs(t) do
            c = c + 1
        end
        if not _c then
            _c = c 
            message("c = "..tostring(c),1)
        else
            if _c ~= c then
                c_err = c_err + 1
                message( "_c ~= c "..tostring(_c).." ~= "..tostring(c), 3 )
            end
        end
        sleep(10)
        local time = os.time() 
        if time - _t > 10 then
            message("Количество неправильных количеств: "..tostring(c_err).."  (_c = "..tostring(_c)..")",1)
            _t = time
        end
    end
end