h=0
m=0
s=0

str="This is test/..This is test/.."
str2="This is test/..This is test/..This is test/..This is test/..This is test/..This is test/..This is test/..This is test/"

function OnAllTrade(alltrade)
   h=alltrade.datetime.hour+0
   m=alltrade.datetime.min+0
   s=alltrade.datetime.sec+0
end

function main()
  t_id=AllocTable()
  AddColumn(t_id,1,"QWERTY",true, QTABLE_INT_TYPE,10) --Y
   AddColumn(t_id,2,"Time",true, QTABLE_CACHED_STRING_TYPE, 20)
   AddColumn(t_id,3,"Deals inf and etc.",true, QTABLE_CACHED_STRING_TYPE, 120)
   AddColumn(t_id,4,"Ballance",true, QTABLE_CACHED_STRING_TYPE, 40)
  
  CreateWindow(t_id)
  SetWindowCaption(t_id,"Script message.")
 i=1
while true do
  for j=i,i+10000 do
   tmp=InsertRow(t_id,-1)
   SetCell(t_id,tmp, 1, tostring(j), j)
   SetCell(t_id,tmp, 2, tostring(h)..":"..tostring(m)..":"..tostring(s), j)
   SetCell(t_id,tmp, 3, str2, j)
   SetCell(t_id,tmp, 4, str, j)
  end
  i=i+10000
  sleep(100)
  Clear(t_id)
end
end
 

 function main()
  t_id=AllocTable()
  AddColumn(t_id,1,"QWERTY",true,QTABLE_INT_TYPE,10) --Y
  CreateWindow(t_id)
  SetWindowCaption(t_id,"Script message.")
 i=1
while true do
  for j=i,i+10000 do
   tmp=InsertRow(t_id,-1)
   SetCell(t_id,tmp,1,tostring(j),j)
  end
  i=i+10000
  sleep(1000)
  Clear(t_id)
end
end

t={}

function OnInit()
local d, mn, y
bar=0

   CreateTable()
   
end

function CreateTable()

   t = QTable.new()
   if not t then
      message("error!", 3)
   end
   
   t:AddColumn("Time", QTABLE_CACHED_STRING_TYPE, 20)
   t:AddColumn("Deals inf and etc.", QTABLE_CACHED_STRING_TYPE, 120)
   t:AddColumn("Ballance", QTABLE_CACHED_STRING_TYPE, 40)
   t:SetCaption("Our Deals Table")
   t:Show()   
   for i=1,TotalString do t:AddLine() end

end 

function PrintTable(timestring, comment, txt_balance)
  local tmp_txt=""
   
   if f==TotalString then
      f=0
      t:Clear()
      t:delete()  -- !!! Ранее это строки не было !!!
      CreateTable() -- !!! Ранее это строки не было !!!

   end

   f=f+1

 SetCell(t.t_id, f, 1, timestring)
 SetCell(t.t_id, f, 2, comment)
 SetCell(t.t_id, f, 3, txt_balance)

 if txt_balance==nil or txt_balance=="" then 
    txt_balance=" "
 end
 tmp_txt=tostring(f)..": "..timestring..": "..comment.." : "..txt_balance.."\n"

 file3:write(tmp_txt)

end