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

ticker_list = {{"SiM1"},{"SiU1"},{"FIVE","TQBR"},{"TCSG","TQBR"}}
function OnInit()
  if(isConnected()==1)then
    for key,value in pairs(ticker_list) do --в цикле перебираем бумаги из ticker_list
      local n=10
      while (getSecurityInfo((ticker_list[key][2] or ""),ticker_list[key][1])==nil)and(n>0) do sleep(1000) n=n-1 end -- Ждем загрузки данных по инструменту 10 секунд
      if(n==0)then message("Инструмент "..ticker_list[key][1].." не найден") ticker_list[key]=nil break end
      ticker_list[key][2]=getSecurityInfo((ticker_list[key][2] or ""),ticker_list[key][1]).class_code --получаем класс бумаги (TQBR,SPBFUT,CETS,ect.) по ее тикеру
      ticker_list[key][3]=CreateDataSource(ticker_list[key][2],ticker_list[key][1],iNterval) --создаем источник данных
    end
  end
end

message(string.upper('привет'))
message(os.setlocale(''))
message(string.upper('привет'))

function upper(s)
  local str=""
  for i=1,string.len(s) do
    local byte=string.byte(s,i)
    local char=string.char(byte)
    if(byte>= 97)and(byte<=122)then char=string.char(byte-32) end -- Латинские буквы
    if(byte>=224)and(byte<=255)then char=string.char(byte-32) end -- Русские буквы
    if(byte==184)              then char=string.char(byte-16) end -- Русская ё
    str=str..char
  end
  return str
end

ds=CreateDataSource(class_code,sec_code,interval)
ds:SetEmptyCallback()

is_run=true
function main()
  ds=CreateDataSource("SPBFUT","EuM1",INTERVAL_M5)
--  ds:SetEmptyCallback()
  while(ds:Size()==0) do sleep(100) end
  while is_run do
    message("C="..ds:C(ds:Size()))
    sleep(1000)
  end
end
function OnStop()
  is_run=false
  return 100
end

sTime=os.time(T)
datetime=os.date("!*t",sTime)
out_file:write(tostring(datetime.year)..tostring(strText(datetime.month))..tostring(strText(datetime.day))..","..tostring(strText(datetime.hour + corrTime))..tostring(strText(datetime.min))..tostring(strText(datetime.sec))..","..tostring(O)..","..tostring(H)..","..tostring(L)..","..tostring(C)..","..tostring(V).."\n")

datetime=os.date("!*t",os.time(T)+corrTime*3600)
out_file:write(string.format("%04d%02d%02d,%02d%02d%02d,%s,%s,%s,%s,%s\n",datetime.year,datetime.month,datetime.day,datetime.hour,datetime.min,datetime.sec,O,H,L,C,V))

ticker_list = {{"EUR_RUB__TOM"},{"USD000UTSTOM"},{"SiM1"},{"SiU1"}}

function OnInit()
  if(isConnected()==1)then
    for key,value in pairs(ticker_list) do --в цикле перебираем бумаги из ticker_list
      while(getSecurityInfo("",ticker_list[key][1])==nil)do sleep(100) end -- Ждем загрузки данных по инструменту
      ticker_list[key][2]=getSecurityInfo("",ticker_list[key][1]).class_code --получаем класс бумаги (TQBR,SPBFUT,CETS,ect.) по ее тикеру
      ticker_list[key][3]=CreateDataSource(ticker_list[key][2],ticker_list[key][1],iNterval) --создаем источник данных
    end
  end
end

function main()
  while is_run do
    for key,value in pairs(ticker_list) do --в цикле перебираем бумаги из ticker_list
      instrument=value[1]
      classcode=value[2]
      ds=value[3]
      while(ds:Size()==0) do sleep(100) end -- Ждем загрузки данных графика
--ТУТ ВАШ КОД--
    end
    sleep(3000)   -- приостановка на 3 секунды
  end
end

classcode=getSecurityInfo("",instrument).class_code

function main()
  while is_run do
    if(isConnected()==1)then
--- ТУТ ВАШ КОД --
    end
    sleep(3000)
  end
end

      classcode=getSecurityInfo("",instrument).class_code --получаем класс бумаги (TQBR,SPBFUT,CETS,ect.) по ее тикеру

C:\Scripts\Testers\1.lua:27: attempt to index a nil value

trans_id=1

function cut_zero(str)
  local num=tonumber(str)
  local zero=string.byte("0",1)
  local point=string.byte(".",1)
  if(string.find(num,'%.')) then -- Имеется точка в числе
    for n=string.len(num),1,-1 do -- Перебор справа налево
      if(string.byte(num,n)==point) then return string.sub(num,1,n-1) end
      if(string.byte(num,n)~=zero)  then return string.sub(num,1,n) end
    end
  end
  return num
end