Hilfe beim Speichern / Abrufen einer LUA Tabelle aus einer Datei

[rollback]

Ich komme grad nicht weiter ... ich möchte viele querys innerhalb meiner Quest vermeiden und bin dabei, das Ergebnis der Query in eine Datei zu laden. Klappt auch soweit gut nur an einer Sache komme ich nicht weiter.

Ich hatte in der ersten Quest, wo noch alle Querys drin waren, das so geschrieben:

PHP Code:

mysql_query("USE account; SELECT item_vnum, stackable, price FROM itemshop WHERE category_id = "..shop_main.." ORDER BY id ASC;") 


shop_main steht hier für den select, wo der Spieler die Kategorie ausgewählt hat.
Wenn ich jetzt aber die Items in eine Datei laden möchte, kann ich "shop_main" nicht mehr als Variable nehmen, weil ich die Datei ja für alle Kategorien machen muss. Jetzt habe ich versucht das so zu lösen:



Um dann für jede Kategorie innerhalb der Tabelle eine eigene Tabelle zu haben. Klappt aber leider nicht ... die geschriebene Datei sieht danach so aus:

PHP Code:

return {
-- Table: {1}
{
    {2},
    {3},
    {4},
},
-- Table: {2}
{
    {5},
    {6},
},
-- Table: {3}
{
    {7},
    {8},
},
-- Table: {4}
{
    {9},
    {10},
},
-- Table: {5}
{
    {11},
    {12},
},
-- Table: {6}
{
    {13},
    {14},
},
-- Table: {7}
{
    {15},
    {16},
},
-- Table: {8}
{
    {17},
    {18},
},
-- Table: {9}
{
    {19},
    {20},
},
-- Table: {10}
{
    {21},
    {22},
},
-- Table: {11}
{
    1,
    2,
},
-- Table: {12}
{
    11,
    12,
},
-- Table: {13}
{
    101,
    102,
},
-- Table: {14}
{
    10001,
    1002,
},
-- Table: {15}
{
    1,
    2,
},
-- Table: {16}
{
    11,
    12,
},
-- Table: {17}
{
    101,
    102,
},
-- Table: {18}
{
    10001,
    1002,
},
-- Table: {19}
{
    1,
    2,
},
-- Table: {20}
{
    11,
    12,
},
-- Table: {21}
{
    101,
    102,
},
-- Table: {22}
{
    10001,
    1002,
},
} 


 Save Table To File Funktion

PHP Code:

local function exportstring(s)
    return string.format("%q", s)
end

function table.save(tbl,filename)
    local charS,charE = "    ","\n"
    local file,err = io.open( filename, "wb" )
    if err then return err end

    local tables,lookup = {tbl},{[tbl] = 1}
    file:write("return {"..charE)

    for idx,t in ipairs(tables) do
        file:write("-- Table: {"..idx.."}"..charE)
        file:write("{"..charE)
        local thandled = {}

    for i,v in ipairs(t) do
        thandled[i] = true
        local stype = type( v )

        if stype == "table" then
            if not lookup[v] then
                table.insert( tables, v )
                lookup[v] = table.getn(tables)
            end
            file:write(charS.."{"..lookup[v].."},"..charE)
        elseif stype == "string" then
            file:write(charS..exportstring( v )..","..charE)
        elseif stype == "number" then
            file:write(charS..tostring( v )..","..charE)
        end
    end

    for i,v in pairs(t) do
        if (not thandled[i]) then
        
            local str = ""
            local stype = type(i)
            if stype == "table" then
                if not lookup[i] then
                    table.insert(tables,i)
                    lookup[i] = table.getn(tables)
                end
                str = charS.."[{"..lookup[i].."}]="
            elseif stype == "string" then
                str = charS.."["..exportstring( i ).."]="
            elseif stype == "number" then
                str = charS.."["..tostring( i ).."]="
            end
        
            if str ~= "" then
                stype = type( v )
            
                if stype == "table" then
                    if not lookup[v] then
                        table.insert(tables,v)
                        lookup[v] = table.getn(tables)
                    end
                    file:write(str.."{"..lookup[v].."},"..charE)
                elseif stype == "string" then
                    file:write(str..exportstring(v)..","..charE)
                elseif stype == "number" then
                    file:write(str..tostring(v)..","..charE)
                end
            end
        end
    end
    file:write( "},"..charE )
    end
file:write("}")
file:close()
end

function table.load(sfile)
    local ftables,err = loadfile(sfile)
    if err then return _,err end
    local tables = ftables()
    for idx = 1,table.getn(tables) do
        local tolinki = {}
        for i,v in pairs(tables[idx]) do
            if type(v) == "table" then
                tables[idx][i] = tables[v[1]]
            end
            if type(i) == "table" and tables[i[1]] then
                table.insert(tolinki,{ i,tables[i[1]] })
            end
        end
        for _,v in ipairs(tolinki) do
            tables[idx][v[2]],tables[idx][v[1]] = tables[idx][v[1]],nil
        end
    end
return tables[1]
end