...
f = io.open(getScriptPath().."\\spisnakc.txt","r+");
  
  while 1 do
      f:flush();   f:seek("set",0);
      for line in f:lines() do
         
       for word in string.gmatch(line, "%a+") do
       message(word);
          f1 = io.open(getScriptPath().."\\F_"..word..os.date("_%d.%m.%Y.%H.%M")..".txt","w");    --.%S
          
                DS = CreateDataSource("TQBR", word, INTERVAL_M1)
            
         if DS:Size() == 0 then 
              DS:SetEmptyCallback()
              sleep(200)
         end
          sleep(100) v4=DS:Size();
...