lua序列化函数

此函数用来序列化table

function serialze(tbl,filename)
	print (filename)
	file=io.open(filename,'w')
	if file==nil then return end
	function serl(tbl)
		if type(tbl)=="number" then
			file:write(tbl)
		elseif type(tbl)=="string" then
			file:write(string.format("%q",tbl))
		elseif type(tbl)=="table" then
			file:write("{\n")
			for k,v in pairs(tbl) do
				file:write(" [")
				serl(k)
				file:write("] =")
				serl(v)
				file:write(",\n")
			end
			file:write("}\n")
		else error("cannot serialize a"..type(tbl))
		end
	end
	file:write("return ")
	serl(tbl)
end

示例
userObj = {
['id']=1,
['name']='ice',
['grade']=0,
['sumGrade']=0,
}
输出文件内容为：
return {
 ["id"] =1,
 ["sumGrade"] =0,
 ["name"] ="ice",
 ["grade"] =0,
}

具体使用

local file=io.open('aaaa.lua','r')

if not file then print ('open file fail!') end

local tstr=file:read('*all')

local zz=loadstring(tstr)()

print (zz.id)