Андрей 77 (Все сообщения пользователя)

function cb(o,i)
     message(string.format("%s : %.3f",o.sec_code,o:C(i))) 
end

   class_code = "SPBFUT"
   sec_code = "RIZ6"
   interval = INTERVAL_M1

   ds  = CreateDataSource(class_code, sec_code, interval)
   assert(ds)
   ds.class_code = class_code
   ds.sec_code = sec_code
   ds:SetUpdateCallback(function(index) cb(ds,index) end)

security='LKOH'

   ds1 = CreateDataSource(class,security,INTERVAL_M1)
   ds1:SetUpdateCallback(function(index) cb(index,class,security) end)

sleep(10000)

security='SBER'

   ds2 = CreateDataSource(class,security,INTERVAL_M1)
   ds2:SetUpdateCallback(function(index) cb(index,class,security) end)

-- SelectItems
-- Возвращает таблицу с номерами элементов в 'tables', удовлетворяющих 
-- набору критериев вида p = { par1=val1, par2=val2, ... }
-- s - start, e - end
--

function SelectItems(tables,s,e,p)

local t,fields={},""

    for key,val in pairs(p) do
        fields = fields .. "," .. tostring(key)                    
        t[#t+1] = val
    end

local function fn(...)

local args = {...}
    for key,val in ipairs(args) do
        if t[key] ~= val then
            return false
        end
    end
    return true
end
    return SearchItems(tables,s,e,fn,fields)
end


-- ---------------------------------------------------------------------
-- Пример использования SelectItems
-- ---------------------------------------------------------------------

function main()

local table,n,N,params

    table = "all_trades"
    n = getNumberOf(table)-1
    params = {sec_code='RIM6',class_code='SPBFUT',qty=1}

    N = 100
    
    message("Selecting from "..table.." ("..n..") "..N.." times")
    _start = os.clock()

    for i = 1, N do
        st = SelectItems(table,0,n,params)
    end

    _end = os.clock()

    time = _end - _start
    message("Found: "..#st..",time: "..string.format("%.1f",time),1)

end

table.insert(f,k,n)

--
-- SearshTables
--


--
-- Универсальная функция обратного вызова для SearchTables. 
-- Реализует проверку условий для переменного набора параметров 
-- Возвращает true если удовлетворены ВСЕ условия (AND), иначе - false
-- 

function fn(t,...)

    local arg = {...}

    for k,v in ipairs(arg) do

        if k % 2 == 1 then
            key = v
        else
            val = v
            if t[key] ~= val then
                return false
            end

        end

    end

    return true

end 


--
-- Функция поиска элементов (таблиц) удовлетворяющих набору критериев. 
-- Переменное число параметров и соответствующих значенией, например :
-- 
-- SearchTables("trades",0,getNumberOf("trades")-1,fn,"seccode","SBER","qty",1,"price",120)
--
-- Возвращает таблицу, сожержащую сделки (таблицы) по SBER с qty=1 И price=120.


function SearchTables(tables,s,e,fn,...)

local f = {},k
local arg = {...}

    k = 0
    for n = s,e do

        local t = getItem(tables,n)

        if fn(t,...) then  
            k = k+1
            table.insert(f,k,t)
        end

    end

        return f
end


--
-- Пример использования SearchTables
--

function main()


    st =  SearchTables("trades",0,getNumberOf("trades")-1,fn,"seccode","SRM6","price",12138,"qty",1)

    message("Found trades: "..#st,1)


end

function fn(t,...)
    local arg = {...}
    for k,v in ipairs(arg) do
        if k % 2 == 1 then
            key = v
        else
            val = v
            if t[key] ~= val then
                return false
            end
        end
    end
    return true
end 

function fn(t)
if t.qty == 103 then

function fn(par1, par2, par3)
if par1 == 103 and par2 == “SPBFUT” and par3 == “RIM3” then

st =  SearchTables("trades",0,getNumberOf("trades")-1,fn,"price",119.35,"qty",10)