lua序列化table表到文件中

先上代码

 

function luautil.serialize(t, sort_parent, sort_child)

	local mark={}

	local assign={}

	

	local function ser_table(tbl,parent)

		mark[tbl]=parent

		local tmp={}

		local sortList = {};

		for k,v in pairs(tbl) do

			sortList[#sortList + 1] = {key=k, value=v};

		end



		if tostring(parent) == "ret" then

			if sort_parent then table.sort(sortList, sort_parent); end

		else

			if sort_child then table.sort(sortList, sort_child); end

		end



		for i = 1, #sortList do

			local info = sortList[i];

			local k = info.key;

			local v = info.value;

			local key= type(k)=="number" and "["..k.."]" or k;

			if type(v)=="table" then

				local dotkey= parent..(type(k)=="number" and key or "."..key)

				if mark[v] then

					table.insert(assign,dotkey.."="..mark[v])

				else

					table.insert(tmp, "\n"..key.."="..ser_table(v,dotkey))

				end

			else

				if type(v) == "string" then

					table.insert(tmp, key..'="'..v..'"');

				else

					table.insert(tmp, key.."="..tostring(v));

				end

			end

		end



		return "{"..table.concat(tmp,",").."}";

	end

 

	return "do local ret=\n\n"..ser_table(t,"ret")..table.concat(assign," ").."\n\n return ret end"

end



function luautil.split(str, delimiter)

    if (delimiter=='') then return false end

    local pos,arr = 0, {}

    -- for each divider found

    for st,sp in function() return string.find(str, delimiter, pos, true) end do

        table.insert(arr, string.sub(str, pos, st - 1))

        pos = sp + 1

    end

    table.insert(arr, string.sub(str, pos))

    return arr

end



function luautil.writefile(str, file)

	os.remove(file);

	local file=io.open(file,"ab");



	local len = string.len(str);

	local tbl = luautil.split(str, "\n");

	for i = 1, #tbl do

		file:write(tbl[i].."\n");

	end

	file:close();

end

1、基础功能抄自云风早期的代码。  这里稍微添加了排序功能，可以传入排序函数，否则表是按哈希排序的，输出后会乱掉。

 

2、添加了writefile函数，因为lua的文件写入有最大字节数限制，所以一行一行写入。