string.split = function(str, pattern)
  pattern = pattern or "[^%s]+"
  if pattern:len() == 0 then pattern = "[^%s]+" end
  local parts = {__index = table.insert}
  setmetatable(parts, parts)
  str:gsub(pattern, parts)
  setmetatable(parts, nil)
  parts.__index = nil
  return parts
end


local pubs = {}
local lineNum = 0

local
function loadBigData()
    local path = script.path .. "/iv04/additional/tableform_data/"
    print("path  ", path)
    
    local fileN = "Big_data.txt"
    
	local fname = LuaAV.findfileinpath(path, fileN, true)
	local f = io.open(fname, "r")
	
	print("fio: ?? ", f)
	
	
	if f then
		print("file open")
		for line in f:lines() do 
	    	lineNum = lineNum + 1
	    	local parts = line:split( "[^,\t]+" )
	    	pubs[lineNum] = {parts[1], parts[2], parts[3], parts[4]}
	    	
	    	--print(parts[3], parts[4])
	    	
	    end
	end
	
	f:close()
end

loadBigData()


local
function saveArticles()
    local path = script.path .. "/iv04/additional/tableform_data/"
    
    local fileN = "articlesInfo.txt"
	local fname = LuaAV.findfileinpath(path, fileN, true)
	local f = io.open(fname, "w")
	print("fio write: ", f)
	
	for l=1, lineNum do
		local p = pubs[l]
        f:write(l,"\t", p[1],"\t", p[2],"\t",  p[3],"\t",  p[4],"\n")
	end
	f:close()
end

saveArticles()