local function exportstring(s)
	s=string.format("%q",s)
	s=string.gsub(s,"\\\n","\\n")
	s=string.gsub(s,"\r","\\r")
	s=string.gsub(s,string.char(26),"\"..string.char(26)..\"")
	return s
end

function table.count(tbl)
	if tbl == nil then return 0 end
	c = 0
	for _,_ in pairs(tbl) do c = c + 1 end
	return c
end

function table.load(sFile)
    local data, err = loadfile(sFile)
    if err then
        return nil
    else
        return data()
    end
end

function table.save(tbl,sFile)
	local count = table.count(tbl)
	local index = 0
	local f = io.open(sFile,"w")
	f:write("return {\n")
	for k,v in pairs(tbl) do
		index = index + 1
		if type(v) == "table" then
			f:write("\n}")
			f:close()
			return false,"SERVER: Error saving table, it has more than one dimension"
		end
		f:write('   [')
		if type(k) ~= "number" then f:write('\"') end
		f:write(k)
		if type(k) ~= "number" then f:write('\"') end
		f:write(']=')
		if v == nil then
			f:write("nil")
		elseif type(v) == "boolean" then
			if v == true then f:write("true") else f:write("false") end
		elseif type(v) == "number" then
			f:write(v)
		else
			f:write(exportstring(v))
		end
		if index < count then
			f:write(",\n")
		else
			f:write("\n")
		end
	end
	f:write("}")
	f:close()
	return true
end