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

  today =  os.time ()  --получаем текущее время 
need_day = today +  30  *  24  *  60  *  60   --прибавляем 30 дней (24*60*60 одни сутки) 
date =  os.date ( "%Y%m%d" ,need_day)  --получаем дату (%Y%m%d формат получаемой даты ГодМесяцДень) 
  

   if   string.find (package.path,'C:\\Program Files (x86)\\Lua\\ 5.1 \\lua\\?.lua') =  =  nil   then 
   package.path = package.path .. ';C:\\Program Files (x86)\\Lua\\ 5.1 \\lua\\?.lua;'
 end 
 if   string.find (package.path,'C:\\Program Files\\Lua\\ 5.1 \\lua\\?.lua') =  =  nil   then 
   package.path = package.path .. ';C:\\Program Files\\Lua\\ 5.1 \\lua\\?.lua;'
 end 

require  "socket" 
is_run =  true 
http  =  require  'socket.http' 
 local  address  =   'http://smart-lab.ru/dividends/index/order_by_t2_date/desc/' 
 local  ts = {"tr","strong","span"}
 local  lMax =  91   --число строк в таблице 


 function  do_smart ()
    local  body  =   http.request (address)
    ---------------------- 
    for  i =  1 , # ts  do 
      body  =  string.gsub (body,"( < %s * " .. ts[i] .. "[^ > ] *  > )","")
      body  =  string.gsub (body,"( < %s * /" .. ts[i] .. "[^ > ] *  > )","")
    end 
   body  =  string.gsub (body,"  ","   ")
   local t={}  -- результат
   local j=0; local k=0; local text=0;
   local m=1; 
   local n=string.find(body," td > ",m, # body, true );
    local  x =  string.byte (body,n -  1 ); 
   m = m +  3 ;
    ----------------- 
     while   # body > m  do 
      n =  string.find (body,  "td>" ,m, # body, true );
       if  n  then    local  n1 = n;
         if  x~ =  47   then 
          x =  string.byte (body,n -  1 );  if  x =  =  47   then  n = n -  1 ;  end 
          text  =   string.sub (body, m,n -  2 ); text  =  nkdelspace(text);
           local  len =  string.len (text);
           if  len <  20   then 
            j = j +  1 ;  if  j =  =  1   then  k = k +  1 ; t[k] = {}  end 
             local  tt = t[k]; tt[ # tt +  1 ] = text;
             if  j =  =  8   then       if  k =  = lMax  then   break   end 
            j =  0   end 
           end 
         else 
          x =  string.byte (body,n -  1 );
         end 
      m = n1 +  3 ;
       else   break ;
       end 
    end 

   trade_date =  getParamEx ( "TQBR" ,"GAZP","TRADE_DATE_CODE").param_image
   prev_date =  getParamEx ( "TQBR" ,"GAZP","PREVDATE").param_image
    for  k,v  in  ipairs (t)  do 
       local  td = trade_date .. "  "
      local pd=prev_date.."   "
      if td==t[k][2] then
         message (" Zavtra GAP  "..t[k][1].."  div =  "..t[k][6].."   |   "..t[k][8],1)
      end
      
      if pd==t[k][2] then
         message (" Segodnya GAP  "..t[k][1].."  div =  "..t[k][6].."   |   "..t[k][8],1)
      end
      
   end

end
function OnCleanUp ()
sleep (700000)
do_smart ()
end

function OnConnected ()
do_smart ()
end

function OnStop ()
   return 100
end

--------------------
function nkdelspace(s)
   local len=string.len(s); local z=" ";  local  x1 =  32 ;
    for  i =  1 ,len  do   local  x =  string.byte (s,i);  if  x <  32   then  x =  32   end 
       if  (x~ =  32   or  x1~ =  32 )  then 
          if  z =  =  ""   then  z =  string.char (x)  else  z = z ..  string.char (x)  end 
         x1 = x;  end 
    end      --убираем проблелы 
 return  z;
 end 

do_smart ()

 function  main ()
    while  is_run  do 
       sleep  ( 1000 )
    end 
 end   

   function   FindSecCode (class_code,pref,dtmd)  -- Определяем инструмент для торговли 
   local  sec_list =  getClassSecurities (class_code)  -- Получаем список инструментов 
   for  test_sec_code  in   string.gmatch (sec_list,"( "..pref.." [^,] + )")  do   -- Перебираем список 
     local  param =  getParamEx (class_code,test_sec_code,"DAYS_TO_MAT_DATE")
     if (param.result =  =  "1" ) and (param.param_image~ =  "" ) and (param.param_type~ =  "0" ) then   -- Параметр получен корректно? 
       if (tonumber(param.param_value) >  = dtmd) then   return  test_sec_code  end   -- Проверяем дни до экспирации 
     end 
   end 
 end 

sec_code = FindSecCode( "SPBFUT" ,"BR", 3 )
 if (sec_code) then   message ( "actual futures is "  .. sec_code)  end   

   local  imap4      =  require  'imap4'  

 local  ssl        =   require ( "ssl" )   

   local  socket  =  require  'socket'   

   local  version      =   getInfoParam ( "VERSION" )
 local  bits         =  version:sub( 1 ,  2 )  =  =   '7.'   and   'x86'   or   'x64' 

 local  gSPath       =   getScriptPath ()
 local  libs_Path  =   getScriptPath () .. '\\clibs_' .. bits
package.cpath      =  libs_Path .. "\\?.dll;" .. libs_Path .. "\\?\\?.dll;" .. package.cpath
package.path       =  gSPath  .. "\\?.lua;" .. gSPath  .. "\\?\\?.lua;" .. gSPath  .. "\\?\\init.lua;" .. package.path

 local  imap4      =  require  'imap4' 
 local  ssl        =   require ( "ssl" )

 local  imapServer     =   'imap.yandex.com' 
 local  serverPort     =   993 
 local  login             =   'login' 
 local  password         =   'pass' 

 -- If in doubt, see RFC 3501: 
 -- https://tools.ietf.org/html/rfc3501#section-6 

 -- Create new imap4 connection. 
 -- Port is optional and defaults to 143. 
 local  connection  =  imap4(imapServer, serverPort, {protocol  =   'tlsv1' })

 -- If you are connecting to gmail, yahoo or any other server that needs a SSL 
 -- connection before accepting commands, uncomment this line: 
 -- 
 -- connection:enabletls{protocol = 'sslv3'} 
 -- 
 -- You can skip this step by creating the connection using 
 -- 
 -- local connection = imap4('imap.gmail.com', 993, {protocol = 'sslv3'}) 

 -- Print the servers capabilities. 
 print ( table.concat (connection:capability(),  ', ' ))

 -- Make sure we can do what we came for. 
assert(connection:isCapable( 'IMAP4rev1' ))

 -- Login. Warning: The credentials are sent in plaintext unless you 
 -- tunnel the connection over ssh, or use SSL (either via the method shown 
 -- above or calling connection:starttls(params) before logging in). 
connection:login(login, password)

 -- connection:lsub() lists all subscribed mailboxes. 
 for  mb, info  in  pairs(connection:lsub())  do 
     -- connection:status(mailbox, items) queries status of a mailbox. 
     -- Note: The mailbox name may contain unescaped whitespace. You are 
     --       responsible to escape it properly - try ("%q"):format(mb). 
     local  stat  =  connection:status(mb, {'MESSAGES',  'RECENT' ,  'UNSEEN' })
     print (mb, stat.MESSAGES, stat.RECENT, stat.UNSEEN)
 end 

 -- Sel ect INBOX with read only permissions. 
 local  info  =  connection:examine( 'INBOX' )
 print (info.exist, info.recent)

 -- List info on the 4 most recent mails. 
 -- See https://tools.ietf.org/html/rfc3501#section-6.4.5 
 for  _,v  in  pairs(connection:fetch( '(UID BODY.PEEK[HEADER.FIELDS (From Date Subject)])' , (info.exist) .. ': * '))  do 
     -- `v' contains the response as mixed (possibly nested) table. 
     -- Keys are stored in the list part. In this example: 
     -- 
     --    v[1] = "UID", v[2] = BODY 
     -- 
     -- `v[key]' holds the value of that part, e.g. 
     -- 
     --    v.UID = 10 
     -- 
     -- `v.BODY' is the only exception and returns a table of the format 
     -- 
     --    {parts = part-table, value = response} 
     -- 
     -- For example: 
     -- 
     --    v.BODY = { 
     --        parts = {"HEADER.FIELDS", {"From", "Date", "Subject"}}, 
     --        value = "Fr om: Foo <foo@bar.baz>\r\nDate:..." 
     --    } 
     print (v.id, v.UID, v.BODY.value)
   local  txt  =  connection:fetch( '(BODY.PEEK[TEXT])' , v.id)
   if   # txt  >   0   then 
     print (txt[ 1 ].BODY.value)
   end 
 end 

 -- close connection 
connection:logout()