-- et modul til at ændre indholdet eller udseendet af en tabel i en wikiartikel
-- der findes i øjeblikket to tilgængelige funktioner: procentkolonne og sletkolonne
local p = {}
local function inlist (name, list)
for n in mw.text.gsplit(list, '%s*,%s*') do
if n == name then return true end
end
return false
end
local function konstruer_tabel (args)
local tabel = ''
local start = true
for key, arg in pairs(args) do
if tonumber(key) then
if not start then
tabel = tabel..'|'..arg
else
tabel = arg
start = false
end
end
end
tabel = string.gsub(tabel,'@@','=')
tabel = mw.text.trim(tabel)
return tabel
end
local function opdel_tabel_i_raekker (tabel)
local rowtabel = {}
local k, i = 1, 1
local row, rowtotal
-- find første række:
k = string.find(tabel,"^|%-%s*\n|.-\n|%-")
if k then
row = string.match(tabel,"^|%-%s*\n(|.-)\n|%-")
rowtabel[1] = row
i = 2
k = k + 3
else
error("Inputtet skal starte med: |-", 0)
end
-- find de næste rækker:
repeat row = string.match(tabel,"\n|%-%s*\n(|.-)\n|%-", k)
if row then
rowtabel[i] = row
i = i+1
k = string.find(tabel,"\n|%-%s*\n|.-\n|%-",k) + 3
end
until not row
local rk = i - 1 -- antal rækker
-- find sidste række:
row = string.match(tabel,"\n|%-%s*\n(|.-)$", k )
if row then
rowtabel[i] = row
rk = i
end
return rowtabel, rk
end
function celler_i_tabel(rowtabel)
local i,j,k,l,c,m = 0,0,0,0,0,0
celletabel = {}
local celle
-- find indholdet af cellerne
for key, row in pairs(rowtabel) do
celletabel[key] = {}
k = 1 -- position 1
c = 1 -- celle 1
repeat
i = string.find(row,'|[^\n]-||',k)
if i ~= k then
j = string.find(row,'|.-\n',k)
end
if i ~= k and j ~= k then
m = string.find(row,'|.-$',k)
end
if i==k then
celle = string.match(row,'|([^\n]-)||',k)
l = k + string.len(celle) + 2
if string.match(celle,'|') then
local attribut = string.match(celle,'(.-)|')
local indhold = string.match(celle,'|(.+)')
table.insert(celletabel[key], { ['attribut'] = attribut, ['indhold'] = indhold } )
else
local indhold = celle
table.insert(celletabel[key], { ['indhold'] = indhold } )
end
elseif j==k then -- sidste celle på linjen med linjeskift
celle = string.match(row,'|(.-)\n',k)
l = k + string.len(celle) + 2
if string.match(celle,'|') then
local attribut = string.match(celle,'(.-)|')
local indhold = string.match(celle,'|(.+)')
local ctabel = { ['attribut'] = attribut, ['indhold'] = indhold, ['lskift'] = true }
table.insert(celletabel[key], ctabel )
else
local indhold = celle
table.insert(celletabel[key], { ['indhold'] = indhold, ['lskift'] = true } )
end
elseif m==k then -- sidste celle på linjen og i rækken
celle = string.match(row,'|(.-)$',k)
l = k + string.len(celle) + 2
if string.match(celle,'|') then
local attribut = string.match(celle,'(.-)|')
local indhold = string.match(celle,'|(.+)')
table.insert(celletabel[key], { ['attribut'] = attribut, ['indhold'] = indhold } )
else
local indhold = celle
table.insert(celletabel[key], { ['indhold'] = indhold } )
end
else
error('Der er noget galt nær række '..key, 0)
end
c = c + 1
k = l
until l>string.len(row) or ((not i) and (not j) and (not m))
end
local kol = c - 1 -- antal kolonner
return celletabel, kol
end
local function laes_tabel (args)
local tabel = konstruer_tabel(args)
local rowtabel, rk = opdel_tabel_i_raekker(tabel)
rk = tonumber(args["antal talrækker"]) or tonumber(rk)
if not rk then
error('Skabelonen kan ikke fastslå antallet af rækker', 0)
end
local celletabel, kol = celler_i_tabel(rowtabel)
kol = tonumber(args["totalt antal kolonner"]) or tonumber(kol)
if not kol then
error('Skabelonen kan ikke fastslå antallet af kolonner', 0)
end
return celletabel, rk, kol
end
function p.procentkolonne (frame)
p.frame = frame
local args
if frame == mw.getCurrentFrame() then
args = frame:getParent().args
else
args = frame.args
end
local frakol = tonumber(args.frakolonne)
local tilkol = tonumber(args.tilkolonne)
local procentkol = tonumber(args.procentkolonne)
if not (procentkol and tilkol and frakol) then
error("Der mangler en eller flere af parametrene: ''frakolonne'', ''tilkolonne'', ''procentkolonne''", 0)
end
local celletabel, rk, kol = laes_tabel(args)
local tester = args.test or ''
local tilkoltal, frakoltal
local wikitext = ''
for row = 1, rk do
for col = 1, kol do
if col == 1 then wikitext = wikitext..'|-\n|'
else
if celletabel[row][col-1] and celletabel[row][col-1].lskift then
wikitext = wikitext .. '|'
else
wikitext = wikitext .. '||'
end
end
if celletabel[row][col] and celletabel[row][col].attribut then
wikitext = wikitext .. celletabel[row][col].attribut .. '|'
end
if celletabel[row][col] and celletabel[row][col].indhold then
if tester~='ja' and procentkol and frakol and tilkol and col==procentkol then
tilkoltal = celletabel[row][tilkol].indhold
frakoltal = celletabel[row][frakol].indhold
tilkoltal = string.gsub(tilkoltal, '%.', '')
frakoltal = string.gsub(frakoltal, '%.', '')
local tal = 100 * (tilkoltal - frakoltal) / frakoltal
tal = string.format('%.2f', tal)
if tonumber(tal) > 0 then tal = '+'..tal end
tal = string.gsub(tal, '%.', ',')
wikitext = wikitext .. tal .. '%'
else
wikitext = wikitext .. celletabel[row][col].indhold
end
end
if celletabel[row][col] and celletabel[row][col].lskift then
wikitext = wikitext .. '\n'
end
if col==kol then wikitext=wikitext..'\n' end
end
end
return wikitext
end
function p.sletkolonne (frame)
p.frame = frame
local args
if frame == mw.getCurrentFrame() then
args = frame:getParent().args
else
args = frame.args
end
local celletabel, rk, kol = laes_tabel(args)
local sletkolonne = args.sletkolonne
local tester = args.test or ''
local wikitext = ''
for row = 1, rk do
for col = 1, kol do
if not sletkolonne or not inlist(tostring(col), sletkolonne ) then
if col == 1 then wikitext = wikitext..'|-\n|'
else
if celletabel[row][col-1] and celletabel[row][col-1].lskift then
wikitext = wikitext .. '|'
else
wikitext = wikitext .. '||'
end
end
if celletabel[row][col] and celletabel[row][col].attribut then
wikitext = wikitext .. celletabel[row][col].attribut .. '|'
end
if celletabel[row][col] and celletabel[row][col].indhold then
wikitext = wikitext .. celletabel[row][col].indhold
end
if celletabel[row][col] and celletabel[row][col].lskift then
wikitext = wikitext .. '\n'
end
if col==kol then wikitext=wikitext..'\n' end
end
end
end
return wikitext
end
return p
