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

   local  Run  =   nil ;  -- флаг работы цикла в main 
 local  DataFolder  =   '' ;  -- Полный путь к папке "Данные(c)quikluacsharp.ru" 
 local  TradesFiles  =  {}; -- Массив дескрипторов файлов 

 -- Создает каталоги по всем найденным счетам 
 function   CreateAccountsFolders ()
    -- Перебирает все счета 
    for  i =  0 ,  getNumberOf ( "trade_accounts" ) -  1   do 
       -- Получает номер счета 
       local  Account  =   getItem ( "trade_accounts" , i).trdaccid;
       -- Получает путь 
       local  Path  =   '"'  .. DataFolder .. Account .. '\\"';
       -- Если каталог не существует 
       if   os.execute ( 'cd '  .. Path)  =  =   1   then 
          -- Создает каталог 
          os.execute ( 'mkdir '  .. Path); 
       end ;
    end ;
 end ;
 -- Проверяет записана ли данная сделка в файл истории 
 function   CheckTradeInFile (trade)
    -- Получает путь к файлу инструмента в папке торгового счета 
    local  PathAccountSec  =  DataFolder .. trade.account .. '\\' .. trade.sec_code .. '.csv';
    -- Пытается открыть файл текущего инструмента в режиме "чтения" 
    local  TradesFile  =   io.open (PathAccountSec,"r");
    -- Если файл не существует, то сделка не записана 
    if  TradesFile  =  =   nil   then   return   false ;
    else   -- Если файл существует 
       -- Получает индекс файла 
       local  FileIndex  =  trade.account .. '_' .. trade.sec_code;
       -- Если файл еще не открыт для дописывания 
       if  TradesFiles[FileIndex]  =  =   nil   then 
          -- Открывает файл текущего инструмента в режиме "дописывания" 
         TradesFiles[FileIndex]  =   io.open (PathAccountSec,"a + ");
       end ;
       -- Перебирает строки файла 
       local  Count  =   0 ;  -- Счетчик строк 
       for  line  in  TradesFile:lines()  do 
         Count  =  Count  +   1 ;
          if  Count  >   1   and  line ~ =   ""   then 
             -- Если номера сделок совпадают, то сделка записана 
             local  i  =   0 ;
             for  str  in  line:gmatch( "[^;^\n]+" )  do 
               i  =  i  +   1 ;
                if  i  =  =   3   and  tonumber(str)  =  =  trade.trade_num  then 
                  TradesFile:close();
                   return   true ; 
                end ;
             end ;
          end ;      
       end ;
    end ;
   TradesFile:close();
    return   false ;
 end ;
 -- Записывает все ранее не записанные сделки из таблицы "Сделки" в файлы 
 function   CheckAndSaveTerminalTrades ()
    local  trade  =   nil ;
    -- Перебирает все сделки в таблице "Сделки" 
    for  i =  0 , getNumberOf ( "trades" ) -  1 , 1   do       
      trade  =   getItem  ( "trades" , i);
       -- Если данная сделка еще не записана в файл истории 
       if   not  CheckTradeInFile(trade)  then         
          -- Добавляет сделку в файл истории 
         AddTradeInFile(trade);
       end ;
    end ;
 end ;
 -- Добавляет новую сделку в файл истории 
 function   AddTradeInFile (trade)
    local  DateTime  =  trade  and  trade.datetime;
    local  Date  =  tonumber(DateTime.year);
    local  month  =  tostring(DateTime.month);
    if   # month  =  =   1   then  Date  =  Date .. " 0 " .. month;  else  Date  =  Date .. month;  end ;
    local  day  =  tostring(DateTime.day);
    if   # day  =  =   1   then  Date  =  Date .. " 0 " .. day;  else  Date  =  Date .. day;  end ;
   Date  =  tonumber(Date);
    local  Time  =   "" ;
    local  hour  =  tostring(DateTime.hour);
    if   # hour  =  =   1   then  Time  =  Time .. " 0 " .. hour;  else  Time  =  Time .. hour;  end ;
    local  minute  =  tostring(DateTime.min);
    if   # minute  =  =   1   then  Time  =  Time .. " 0 " .. minute;  else  Time  =  Time .. minute;  end ;
    local  sec  =  tostring(DateTime.sec);
    if   # sec  =  =   1   then  Time  =  Time .. " 0 " .. sec;  else  Time  =  Time .. sec;  end ;
   Time  =  tonumber(Time);
    -- Если ночная сделка, смещает дату на 1 день вперед 
    if  Time  <   90000   then 
       local  seconds  =   os.time (DateTime);
      seconds  =  seconds  +   24  *  60  *  60 ;
      DateTime  =   os.date ( "*t" ,seconds);
      Date  =  tonumber(DateTime.year);
      month  =  tostring(DateTime.month);
       if   # month  =  =   1   then  Date  =  Date .. " 0 " .. month;  else  Date  =  Date .. month;  end ;
      day  =  tostring(DateTime.day);
       if   # day  =  =   1   then  Date  =  Date .. " 0 " .. day;  else  Date  =  Date .. day;  end ;
      Date  =  tonumber(Date);
    end ;
    local  Operation  =   "" ;
    if  CheckBit(trade.flags,  2 )  =  =   1   then  Operation  =   "S" ;  else  Operation  =   "B" ;  end ;
   
    -- Добавляет сделку в массив 
    local  Trade  =  {};
   Trade.Account  =  trade.account;
   Trade.Sec_code  =  trade.sec_code;
   Trade.Num  =  trade.trade_num;
   Trade.Date  =  Date;
   Trade.Time  =  Time;
   Trade.Operation  =  Operation;
   Trade.Qty  =  tonumber(trade.qty);
   Trade.Price  =  tonumber(trade.price);
   Trade.Hint  =   "Счет: "  .. Trade.Account .. "_Номер:  "..trade.trade_num.." _Дата:  ";
   if #day == 1 then Trade.Hint = Trade.Hint.."  0 " .. day .. "/";  else  Trade.Hint  =  Trade.Hint .. day .. "/";  end ;
    if   # month  =  =   1   then  Trade.Hint  =  Trade.Hint .. " 0 " .. month .. "/" .. DateTime.year;  else  Trade.Hint  =  Trade.Hint .. month .. "/" .. DateTime.year;  end ;
    if   # hour  =  =   1   then  Trade.Hint  =  Trade.Hint .. "_Время:  0 " .. hour .. ":";  else  Trade.Hint  =  Trade.Hint .. "_Время:  "..hour.." :";  end ;
    if   # minute  =  =   1   then  Trade.Hint  =  Trade.Hint .. " 0 " .. minute .. ":";  else  Trade.Hint  =  Trade.Hint .. minute .. ":";  end ;
    if   # sec  =  =   1   then  Trade.Hint  =  Trade.Hint .. " 0 " .. sec;  else  Trade.Hint  =  Trade.Hint .. sec;  end ;
   Trade.Hint  =  Trade.Hint .. "_Количество:  "..trade.qty;
   Trade.Hint = Trade.Hint.." _Цена:  "..trade.price;
   
   -- Получает путь к файлу инструмента в папке торгового счета
   local PathAccountSec = DataFolder..Trade.Account..'\ \' ..Trade.Sec_code..'.csv';
   local FileIndex = Trade.Account..'_'..Trade.Sec_code;
   -- Если файл еще не открыт, или не существует
   if TradesFiles[FileIndex] == nil then
      -- Пытается открыть файл текущего инструмента в режиме " дописывания"
      TradesFiles[FileIndex]  =   io.open (PathAccountSec,"a + ");
       -- Если файл не существует, то сделка не записана 
       if  TradesFiles[FileIndex]  =  =   nil   then  
          -- Создает файл в режиме "записи" 
         TradesFiles[FileIndex]  =   io.open (PathAccountSec,"w");
          -- Закрывает файл 
          message ( 'Закрывает файл: '   .. tostring(FileIndex))
         TradesFiles[FileIndex]:close();
          -- Открывает уже существующий файл в режиме "дописывания" 
         TradesFiles[FileIndex]  =   io.open (PathAccountSec,"a + ");
       end ;
    end ;
    -- Встает в начало файла 
   TradesFiles[FileIndex]:seek( "set" , 0 );
    -- Если файл пустой 
    if  TradesFiles[FileIndex]:read()  =  =   nil   then 
       -- Добавляет строку заголовков 
      TradesFiles[FileIndex]:write( "Счет;Код бумаги;Номер сделки;Дата сделки;Время сделки;Операция;Количество;Цена;Текст подсказки" ,  "\n" );
    end ;
    -- Встает в конец файла 
   TradesFiles[FileIndex]:seek( "end" , 0 );
    -- Записывает сделку в файл 
   TradesFiles[FileIndex]:write(Trade.Account .. ";" .. Trade.Sec_code .. ";" .. Trade.Num .. ";" .. Trade.Date .. ";" .. Trade.Time .. ";" .. Trade.Operation .. ";" .. Trade.Qty .. ";" .. Trade.Price .. ";" .. Trade.Hint,  "\n" );TradesFiles[FileIndex]:flush();
 end ;
 -- Функция возвращает значение бита (число 0, или 1) под номером bit (начинаются с 0) в числе flags, если такого бита нет, возвращает nil 
 function   CheckBit (flags, bit)
    -- Проверяет, что переданные аргументы являются числами 
    if  type(flags) ~ =   "number"   then  error( "Ошибка!!! Checkbit: 1-й аргумент не число!" );  end ;
    if  type(bit) ~ =   "number"   then  error( "Ошибка!!! Checkbit: 2-й аргумент не число!" );  end ;
    local  RevBitsStr   =   "" ;  -- Перевернутое (задом наперед) строковое представление двоичного представления переданного десятичного числа (flags) 
    local  Fmod  =   0 ;  -- Остаток от деления  
    local  Go  =   true ;  -- Флаг работы цикла 
    while  Go  do 
      Fmod  =   math.fmod (flags,  2 );  -- Остаток от деления 
      flags  =   math.floor (flags/ 2 );  -- Оставляет для следующей итерации цикла только целую часть от деления            
      RevBitsStr  =  RevBitsStr  .. tostring(Fmod);  -- Добавляет справа остаток от деления 
       if  flags  =  =   0   then  Go  =   false ;  end ;  -- Если был последний бит, завершает цикл 
    end ;
    -- Возвращает значение бита 
    local  Result  =  RevBitsStr:sub(bit +  1 ,bit +  1 );
    if  Result  =  =   "0"   then   return   0 ;     
    elseif  Result  =  =   "1"   then   return   1 ;
    else   return   nil ;
    end ;
 end ;
 -- Функция возвращает значение бита (0 или 1) под номером bit в числе flags 
 function   CheckBit1 (flags, bit)
     -- Проверяет, что переданные аргументы являются числами 
     if  type(flags) ~ =   "number"   or  type(bit) ~ =   "number"   then 
        error( "Ошибка!!! CheckBit: оба аргумента должны быть числами!" )
     end 

     -- Проверяет, что бит под номером bit существует в числе flags 
     if  bit  <   0   or  bit  >  =  ( 8   *  sizeof(flags))  then 
         return   nil 
     end 

     -- Извлекает значение бита с помощью побитовой операции 
     local  bitValue  =  ( bit32.band (flags,  bit32.lshift ( 1 , bit))  >   0 )  and   1   or   0 

     return  bitValue
 end 

 ----------------- 
 function   OnTrade (trade)
    -- Если данная сделка еще не записана в файл истории 
    if   not  CheckTradeInFile(trade)  then         
       -- Добавляет сделку в файл истории 
      AddTradeInFile(trade);
    end ;
 end ;
 function   OnStop ()
    -- Закрывает все файлы 
    for  key,Handle  in  pairs(TradesFiles)  do 
       if  Handle ~ =   nil   then  Handle:close();  end ;
    end ;
   Run  =   false ;
 end ;
 function   OnInit ()
   Run  =   true ;
    -- Получает полный путь к папке "Данные(c)quikluacsharp.ru" 
   DataFolder  =   getWorkingFolder () .. '\\Данные(c)quikluacsharp.ru\\';
    -- Создает папки по всем найденным счетам 
   CreateAccountsFolders();
    -- Записывает все ранее не записанные сделки из таблицы "Сделки" в файлы 
   CheckAndSaveTerminalTrades();
 end ;
 function   main ()
    while  Run  do 
       sleep ( 1 );
    end ;   
 end ;