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

function main()
local FileName=getScriptPath().."\\" .. "FILE.csv"
   local file=io.open(FileName, "a+")
   if file~=nil then
      file:write("Hello World;Hello World;Hello World;" .. "\n")
      file:flush()
   end
   file:close()
   
   message("File Saved: "..FileName)
end

tbl_depo=getDepoEx ("NC0007900000" , "21455" , "GAZP" , "L01+00000F00", 2)

function main()
  t_id=AllocTable()
  AddColumn(t_id,1,"top",true,QTABLE_INT_TYPE,10) --Y
  AddColumn(t_id,2,"left",true,QTABLE_INT_TYPE,10) --X
  AddColumn(t_id,3,"bottom",true,QTABLE_INT_TYPE,10) --Y
  AddColumn(t_id,4,"right",true,QTABLE_INT_TYPE,10) --X
  AddColumn(t_id,5,"width",true,QTABLE_INT_TYPE,10) --dx
  AddColumn(t_id,6,"height",true,QTABLE_INT_TYPE,10) --dy
  CreateWindow(t_id)
  SetWindowCaption(t_id,"Script message.")
 
while true do
  top, left, bottom, right = GetWindowRect(t_id)
  width=right-left
  height=bottom-top
  tmp=InsertRow(t_id,-1) 
  SetCell(t_id,tmp,1,tostring(top),top)
  SetCell(t_id,tmp,2,tostring(left),left)
  SetCell(t_id,tmp,3,tostring(bottom),bottom)
  SetCell(t_id,tmp,4,tostring(right),right)
  SetCell(t_id,tmp,5,tostring(width),width)
  SetCell(t_id,tmp,6,tostring(height),height)
SetWindowPos(t_id, left, top, width, height)
  sleep(1000)
end

end

  top, left, bottom, right = GetWindowRect(t_id)
  width=right-left
  height=bottom-top