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

require "socket"
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 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
----------------------
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

require "socket"

http = require 'socket.http'
html = http.request 'http://smart-lab.ru/dividends/'

print(html)

local t=container[sec]; --это таблица цен по данному инструменту
local len=#t -- это текущее количество цен в контейнере
local n=len-N; if n<1 then n=1; end -- это номер первого из N значений цен т е Ваши цены в t[n] до t[len]

--title="<Nikolay Kamynin> kamnik@mail.ru"
Settings={
f1 ="fractals",  -- это идентификатор индикатора фрактал его надо записать в дополнительные параметры индикатора
Name = "*nk_fr_get", --имя этого индикатора
mline=0, --номер линии с графиком фрактал
}
-- выбираем фракталы в результате будет создана таблица tf
-- tf - таблица номеров свечей с фракталами
path = "./LuaIndicators/"
package.path =package.path..";"..path.."?.luac;"
require "nk_get_fr";
----------------
function Init()
 Settings.line={}; Settings.line[1]={Name = "A",Color = RGB(0,255,0),Type =1,Width = 2   };
return #Settings.line;
end
---------------
function OnCalculate(i)
  nk_get_fr.get_fractals(i);
  if i==Size() then
   local m=1; while #tf>m do  message(tostring(tf[m]),1);    m=m+1; end
  end
end

function mycallbackforallstocks(class,sec,index) 
  if container==nil then container={} end
  if container[sec]==nil then container[sec]={} end
-----------------------------
  local close=ds[sec]:C(index)
  local open=ds[sec]:O(index)
  local high=ds[sec]:H(index)
  local low=ds[sec]:L(index)
  container[sec][index]=(close+open+high+low)/4
end