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

function main()

   S = "Hello,World";
   
   res = S:split(",");
   message(res[1]);
   message(res[2]);
   
end;

function string:split(delimiter)
    local result = { }
    local from  = 1
    local delim_from, delim_to = string.find( self, delimiter, from  )
    while delim_from do
        table.insert( result, string.sub( self, from , delim_from-1 ) )
        from  = delim_to + 1
        delim_from, delim_to = string.find( self, delimiter, from  )
    end
    table.insert( result, string.sub( self, from  ) )
    return result
end

function main()
    local s1={};
    S = "Hello//World";
    s1=S:split("//");
    message(sl[1]);
    message(sl[2]);
end

function string:split(delimiter)  
    local result = { }  
    local from  = 1  
    local delim_from, delim_to = string.find( self, delimiter, from  )  
    while delim_from do    
        table.insert( result, string.sub( self, from , delim_from-1 ) )    
        from  = delim_to + 1    
        delim_from, delim_to = string.find( self, delimiter, from  )  
    end  
    table.insert( result, string.sub( self, from  ) )  
    return result
end

function string:split(delimiter)  
    local result = { }  
    local from  = 1  
    local delim_from, 
    delim_to = string.find( self, delimiter, from  )  
    while delim_from do    
        table.insert( result, string.sub( self, from , delim_from-1 ) )    
        from  = delim_to + 1    
        delim_from, delim_to = string.find( self, delimiter, from  )  
    end  
    table.insert( result, string.sub( self, from  ) )  
    return result
end

S = "Hello//World";
S.split("//");

for i = 1,#S
    message(S[i]);
end

local T = {
       TRANS_ID = tostring(math.random(1,1000000)),
       CLASSCODE = class_code,
       SEC_CODE = sec_code,
       ACCOUNT = account,
       ACTION = "NEW_STOP_ORDER",
       QUANTITY = tostring(T_position.qty),
       EXPIRY_DATE = "GTC",
       IS_ACTIVE_IN_TIME = "NO",
            OPERATION = "B",
            OFFSET = "0",
            OFFSET_UNITS = "PRICE_UNITS"
     }

-- SL

T["COMMENT"] = "SL";
T["STOPPRICE"] = tostring(SL);
T['MARKET_STOP_LIMIT'] = 'NO'
T["PRICE"] = tostring(getPrice(T["OPERATION"],SL));


--TP

T["COMMENT"] = "TP";
T["STOP_ORDER_KIND"] = "TAKE_PROFIT_STOP_ORDER";
T["STOPPRICE"] = tostring(TP);
T['MARKET_TAKE_PROFIT'] = 'NO'
T["PRICE"] = tostring(getPrice(T["OPERATION"],TP));

select_CurrentDeals = function(account,class_code,sec_code,limit_kind)
      
      isPosition = false;
      T_position={};
      T_position.class_code = class_code;
      T_position.sec_code = sec_code;
      T_position.account = account;
            
      close_price = getParamEx(class_code,sec_code,"last").param_value;
      
      if class_code == "SPBFUT" then
      
      T_position.position_type = 0;
      
         for i = getNumberOf("futures_client_holding")-1,0,-1 do
            T = getItem("futures_client_holding",i);
            
            if T.sec_code == sec_code and
               T.totalnet ~= 0 then
               
               if T.totalnet > 0 then
                  T_position.position_type = 1;
               else
                  T_position.position_type = -1;
               end;
               
               T_position.qty = math.abs(T.totalnet);
               T_position.price = T.avrposnprice;
               
               if T_position.position_type > 0 then
                  T_position.current_PL = close_price - T_position.price;
               else
                  T_position.current_PL =  T_position.price - close_price;
               end;
               
               break;
            end;
         end;
      else
      T_shares = {};
         for i = getNumberOf("depo_limits")-1,0,-1 do
            T = getItem("depo_limits",i);
            
            if T.sec_code == sec_code and 
               T.limit_kind == limit_kind and
               T.trdaccid == account and
               T.currentbal ~= 0 then
               
               isPosition = true;
               T_shares = T;
               break;
            end;
         end;
      
         if isPosition then
            lotSize = 1;
            for i = getNumberOf("securities")-1,0,-1 do
               T = getItem("securities",i);
               if T.code == sec_code and T.class_code == class_code then
                  lotSize = T.lot_size;
                  break;
               end;
            end;
            
            T_position.price = (T_shares.awg_position_price*100); -- Уточнить нужно ли умножать на 100
            T_position.qty = math.abs(T_shares.currentbal/lotSize);
            
            if T_shares.currentbal > 0 then
               T_position.position_type = 1;
            else
               T_position.position_type = -1;
            end;
         
            if T_position.position_type > 0 then
               T_position.current_PL = close_price - T_position.price;
            else
               T_position.current_PL =  T_position.price - close_price;
            end;
         else
            T_position.position_type = 0;
         end;
      end;
      
      return T_position;
   end;

L_ptr = lua_newthread(L);

lua_State *L_ptr;
L_ptr = lua_open();//Создаем стэк
luaL_openlibs(L_ptr);