Cambios

6215 bytes añadidos , hace 5 años

sin resumen de edición

local z = {}

-- Código copiado de http://lua-users.org/wiki/SortedIteration
function __genOrderedIndex( t )
local orderedIndex = {}
for key in pairs(t) do
table.insert( orderedIndex, key )
end
table.sort( orderedIndex )
return orderedIndex
end

function orderedNext(t, state)
-- Equivalent of the next function, but returns the keys in the alphabetic
-- order. We use a temporary ordered key table that is stored in the
-- table being iterated.

local key = nil
--print("orderedNext: state = "..tostring(state) )
if state == nil then
-- the first time, generate the index
t.__orderedIndex = __genOrderedIndex( t )
key = t.__orderedIndex[1]
else
-- fetch the next value
for i = 1,table.getn(t.__orderedIndex) do
if t.__orderedIndex[i] == state then
key = t.__orderedIndex[i+1]
end
end
end

if key then
return key, t[key]
end

-- no more value to return, cleanup
t.__orderedIndex = nil
return
end

function orderedPairs(t)
-- Equivalent of the pairs() function on tables. Allows to iterate
-- in order
return orderedNext, t, nil
end

function z.tostringordered(tabla, identacion)
identacion = identacion or '\n'
local identacion2 = identacion .. ' '

if not tabla then
return
end

local valores = {}
local k2, v2

for k,v in orderedPairs(tabla) do
if type(k) == 'string' then
k2 = '"' .. k .. '"'
else
k2 = k
end
if type(v) == 'table' then
v2 = z.tostringordered(v, identacion2)
elseif type(v)=='string' then
v2 = '"' .. v .. '"'
else
v2 = tostring(v)
end

table.insert(valores, '[' .. k2 .. '] = ' .. v2)
end

return '{' .. identacion2 .. (table.concat(valores, ', ' .. identacion2) or '') .. identacion .. '}'
end

function z.tostring(tabla, identacion)
identacion = identacion or '\n'
local identacion2 = identacion .. ' '

if not tabla then
return
end

local valores = {}
local k2, v2

for k,v in pairs(tabla) do
if type(k) == 'string' then
k2 = '"' .. k .. '"'
else
k2 = k
end
if type(v) == 'table' then
v2 = z.tostring(v, identacion2)
elseif type(v)=='string' then
v2 = '"' .. v .. '"'
else
v2 = tostring(v)
end

table.insert(valores, '[' .. k2 .. '] = ' .. v2)
end

return '{' .. identacion2 .. (table.concat(valores, ', ' .. identacion2) or '') .. identacion .. '}'
end

function z.elemento(tabla, indice1, indice2, indice3, indice4, indice5, indice6, indice7)
local resultado

if not tabla or not indice1 then
return
end

resultado = tabla[indice1]

if not indice2 or not resultado then
return resultado
end

resultado = resultado[indice2]

if not indice3 or not resultado then
return resultado
end

resultado = resultado[indice3]

if not indice4 or not resultado then
return resultado
end

resultado = resultado[indice4]

if not indice5 or not resultado then
return resultado
end

resultado = resultado[indice5]

if not indice6 or not resultado then
return resultado
end

resultado = resultado[indice6]

if not indice7 or not resultado then
return resultado
end

resultado = resultado[indice7]

return resultado
end

function z.en(tabla, elemento)
if not elemento then
return
end
for k,v in pairs( tabla ) do
if v == elemento then
return k
end
end
end

function z.copiarElementosConValor(original)
local copia= {}

for k,v in pairs(original) do
if v~='' then
copia[k] = original[k]
end
end

return copia
end

function z.insertar(tabla, elemento)
if not elemento then
return false
end

if not z.en(tabla, elemento) then
table.insert(tabla, elemento)
end

return true
end

function z.insertarElementosConValor(origen, destino)
for k,v in pairs(origen) do
if v~='' then
table.insert(destino, v)
end
end

return copia
end

function z.sonIguales(tabla1, tabla2)
if not tabla1 or not tabla2 then
return false
end

if tabla1 == tabla2 then
return true
end

for k,v in pairs(tabla1) do
if tabla2[k] ~= v then
return false
end
end

for k,v in pairs(tabla2) do
if not tabla1[k] then
return false
end
end

return true
end

function z.ordenarFuncion(tabla, funcion)
local funcionInestable = funcion

-- Añadir a la tabla un campo con el orden
for i,n in ipairs(tabla) do tabla[i].__orden = i end

table.sort(tabla,
function(a,b)
if funcionInestable(a, b) then return true -- a < b
elseif funcionInestable(b, a) then return false -- b < a
elseif a.__orden < b.__orden then return true -- a = b y a aparece antes que b
else return false -- a = b y b aparece antes que a
end
end
)

-- Eliminar de la tabla el campo con el orden
for i,n in ipairs(tabla) do tabla[i].__orden = nil end
end

function z.ordenar(tabla, criterio)
if type(criterio) == 'table' then
z.ordenarFuncion(tabla,
function(a,b)
local valorA, valorB
for i,campo in ipairs(criterio) do
valorA = a[campo]
valorB = b[campo]
if not valorA and not valorA then
-- No hacer nada
elseif not valorA and valorB then
return true
elseif valorA and not valorB then
return false
elseif valorA < valorB then
return true
elseif valorA > valorB then
return false
end
end
return false -- Todos los valores son iguales
end
)
else
z.ordenarFuncion(tabla, criterio)
end
end

function z.agrupar(tabla, clave, campo)
local tabla2 = {}

local v2

for k,v in ipairs(tabla) do
if not v[campo] then
table.insert(tabla2, v)
v2 = nil
elseif v2 and v2[clave] == v[clave] then
-- Agrupar
table.insert(v2[campo], v[campo])
else
v2 = v
v2[campo] = {v[campo]}
table.insert(tabla2, v2)
end
end

return tabla2
end

return z

Usuario anónimo

es>Juan Mayordomo

Cambios

Módulo:Tablas (editar)

Revisión del 20:21 15 nov 2019