2011-07-05 37 views

Respuesta

2

No hay una función incorporada, pero hay ejemplos en la web.

This is a decent one actually.

+1

¿cuál es el guión bajo usado aquí? No he visto esto antes: a _, p en pares (tt) hacen s = s .. "" .. escapeCSV (p) final – clua7

+1

puesto pares (tabla) devuelve un valor de la clave y, al indica _ no te importa la llave. – Alan

+0

Escriba la respuesta completa en la respuesta en sí misma en lugar de solo vincularla a un recurso externo. –

0

No, no es un "construido en" función para esto. Pero no es difícil hacerlo tú mismo. Mantengo un script para recursivamente escribir tablas Lua directamente a los archivos como scripts Lua, que luego se pueden cargar y ejecutar como scripts Lua.

--This file exports a function, WriteTable, that writes a given table out to a given file handle. 

local writeKey = {}; 

function writeKey.string(hFile, value, iRecursion) 
    WriteFormatted(hFile, "[\"%s\"]", value); 
end 

function writeKey.number(hFile, value, iRecursion) 
    WriteFormatted(hFile, "[%i]", value); 
end 

local writeValue = {}; 

function writeValue.string(hFile, value, iRecursion) 
    WriteFormatted(hFile, "[==[%s]==]", value); 
end 

function writeValue.number(hFile, value, iRecursion) 
    WriteFormatted(hFile, "%i", value); 
end 

function writeValue.boolean(hFile, value, iRecursion) 
    if(value) then hFile:write("true"); else hFile:write("false"); end; 
end 

function writeValue.table(hFile, value, iRecursion) 
    WriteTable(hFile, value, iRecursion) 
end 

local function WriteFormatted(hFile, strFormat, ...) 
    hFile:write(string.format(strFormat, ...)); 
end 

local function WriteForm(hFile, strFormat, ...) 
    hFile:write(string.format(strFormat, ...)); 
end 

local function WriteTabs(hFile, iRecursion) 
    for iCount = 1, iRecursion, 1 do 
     hFile:write("\t"); 
    end 
end 

function WriteTable(hFile, outTable, iRecursion) 
    if(iRecursion == nil) then iRecursion = 1; end 

    hFile:write("{\n"); 

    local bHasArray = false; 
    local arraySize = 0; 

    if(#outTable > 0) then bHasArray = true; arraySize = #outTable; end; 

    for key, value in pairs(outTable) do 
     if(writeKey[type(key)] == nil) then print("Malformed table key."); return; end 
     if(writeValue[type(value)] == nil) then 
      print(string.format("Bad value in table: key: '%s' value type '%s'.", key, type(value))); 
      return; 
     end 

     --If the key is not an array index, process it. 
     if((not bHasArray) or 
       (type(key) ~= "number") or 
       not((1 <= key) and (key <= arraySize))) then 
      WriteTabs(hFile, iRecursion); 
      writeKey[type(key)](hFile, key, iRecursion + 1); 
      hFile:write(" = "); 
      writeValue[type(value)](hFile, value, iRecursion + 1); 

      hFile:write(",\n"); 
     end 
    end 

    if(bHasArray) then 
     for i, value in ipairs(outTable) do 
      WriteTabs(hFile, iRecursion); 
      writeValue[type(value)](hFile, value, iRecursion + 1); 
      hFile:write(",\n"); 
     end 
    end 

    WriteTabs(hFile, iRecursion - 1); 
    hFile:write("}"); 
end 
11

Si la tabla es una matriz, se puede utilizar para imprimir table.concat CSV:

t={10,20,30} 
print(table.concat(t,",")) 

salidas 10,20,30.

Cuestiones relacionadas