Modul:CSVParser - Laptörténet

Dr. Gyúró Zoltán, 2026. január 4., 20:23-n

2026-01-04T20:23:04Z

← Régebbi változat		A lap 2026. január 4., 20:23-kori változata
28. sor:		28. sor:

	-- A 'data-page-length' attribútum állítja be az alapértelmezett oldalhosszt		-- A 'data-page-length' attribútum állítja be az alapértelmezett oldalhosszt
	local res = '{\| class="wikitable sortable datatable-hook" data-page-length="' .. sor_limit .. '" style="width:100%; font-size:90%;"\n'		-- local res = '{\| class="wikitable sortable datatable-hook" data-page-length="' .. sor_limit .. '" style="width:100%; font-size:90%;"\n'
			-- A 'datatable-hook' mellé bekerült a stripe, hover és compact osztály
			local res = '{\| class="wikitable sortable datatable-hook stripe hover compact" data-page-length="' .. sor_limit .. '" style="width:100%; font-size:90%;"\n'
	local megjelenitett_sorok_szama = 0		local megjelenitett_sorok_szama = 0

Dr. Gyúró Zoltán, 2026. január 4., 19:51-n

2026-01-04T19:51:27Z

← Régebbi változat		A lap 2026. január 4., 19:51-kori változata
2. sor:		2. sor:

	function p.megjelenit(frame)		function p.megjelenit(frame)
	-- ~~Paraméter~~ átvétele a sablonból ~~(vagy közvetlen hívásból)~~		-- Paraméterek átvétele a sablonból
	local ~~szuro~~ = frame.args[1] or frame:getParent().args[1]		local args = frame.args[1] and frame.args or frame:getParent().args

			-- 1. paraméter: Szűrő (pl. Cactaceae)
			local szuro = args[1]
	if szuro then		if szuro then
	szuro = szuro:gsub("^%s(.-)%s$", "%1"):lower() ~~-- Tisztítás és kisbetűssé alakítás~~		szuro = szuro:gsub("^%s(.-)%s$", "%1"):lower()
	if szuro == "" then szuro = nil end		if szuro == "" then szuro = nil end
	end		end

			-- 2. paraméter: Oldalankénti sorok száma (alapértelmezett: 50)
			local sor_limit = tonumber(args[2]) or 50

	local status, adatModul = pcall(require, 'Modul:SzukkulensTaxonok')		local status, adatModul = pcall(require, 'Modul:SzukkulensTaxonok')
21. sor:		27. sor:
	end		end

	local res = '{\| class="wikitable sortable datatable-hook" style="width:100%; font-size:90%;"\n'		-- A 'data-page-length' attribútum állítja be az alapértelmezett oldalhosszt
			local res = '{\| class="wikitable sortable datatable-hook" data-page-length="' .. sor_limit .. '" style="width:100%; font-size:90%;"\n'

	local megjelenitett_sorok_szama = 0		local megjelenitett_sorok_szama = 0

	for i, sor in ipairs(adatok) do		for i, sor in ipairs(adatok) do
	~~-- Szűrés logikája:~~
	~~-- A fejlécet (i=1) mindig megjelenítjük.~~
	~~-- Ha van szűrő, ellenőrizzük, hogy a sor bármelyik cellájában szerepel-e a keresett szó.~~
	local megfelel = false		local megfelel = false
	if i == 1 then		if i == 1 then
35. sor:		39. sor:
	megfelel = true		megfelel = true
	else		else
	~~-- Végigmegyünk a sor minden elemén és keressük a szűrőt~~
	for _, cella in ipairs(sor) do		for _, cella in ipairs(sor) do
	if cella:lower():find(szuro, 1, true) then		if cella:lower():find(szuro, 1, true) then
48. sor:		51. sor:
	local jel = (i == 1) and "!" or "\|"		local jel = (i == 1) and "!" or "\|"

	~~-- 1. Sorszám oszlop (a fejlécben '#' marad, adatoknál az aktuális találat száma)~~
	if i == 1 then		if i == 1 then
	res = res .. "! #\n"		res = res .. "! #\n"
56. sor:		58. sor:
	end		end

	~~-- 2. Összevont oszlopok meghatározása~~
	local oszlop_terv = {		local oszlop_terv = {
	{lat = 1, hun = 2}, ~~-- Rend~~		{lat = 1, hun = 2}, {lat = 3, hun = 4}, {lat = 5, hun = 6},
	{lat = 3, hun = 4}, ~~-- Család~~		{lat = 7, hun = nil}, {lat = 8, hun = nil}, {lat = 9, hun = 10}
	{lat = 5, hun = 6}, ~~-- Alcsalád~~
	{lat = 7, hun = nil}, ~~-- Tribus~~
	{lat = 8, hun = nil}, ~~-- Subtribus~~
	{lat = 9, hun = 10} ~~-- Nemzetség~~
	}		}

69. sor:		66. sor:
	local latin = sor[mapping.lat] or ""		local latin = sor[mapping.lat] or ""
	local magyar = mapping.hun and sor[mapping.hun] or ""		local magyar = mapping.hun and sor[mapping.hun] or ""

	latin = latin:gsub("^%s(.-)%s$", "%1")		latin = latin:gsub("^%s(.-)%s$", "%1")
	magyar = magyar:gsub("^%s(.-)%s$", "%1")		magyar = magyar:gsub("^%s(.-)%s$", "%1")

	local cella_ertek = ""		local cella_ertek = ""

	if i == 1 then		if i == 1 then
	cella_ertek = latin		cella_ertek = latin
83. sor:		78. sor:
	local link_szoveg = latin		local link_szoveg = latin
	if mapping.lat == 9 then link_szoveg = "''" .. latin .. "''" end		if mapping.lat == 9 then link_szoveg = "''" .. latin .. "''" end

	local link = "[[:Kategória:" .. latin .. "\|" .. link_szoveg .. "]]"		local link = "[[:Kategória:" .. latin .. "\|" .. link_szoveg .. "]]"

	if magyar ~= "" and magyar ~= " " then		if magyar ~= "" and magyar ~= " " then
	cella_ertek = link .. " (" .. magyar .. ")"		cella_ertek = link .. " (" .. magyar .. ")"

Dr. Gyúró Zoltán, 2026. január 4., 19:47-n

2026-01-04T19:47:36Z

Változtatások megtekintése

Dr. Gyúró Zoltán, 2026. január 4., 19:26-n

2026-01-04T19:26:18Z

← Régebbi változat		A lap 2026. január 4., 19:26-kori változata
27. sor:		27. sor:
	end		end

	-- 2. Összevont oszlopok meghatározása ~~(latin indexek az eredeti sorban)~~		-- 2. Összevont oszlopok meghatározása
	~~-- Rend (1+2), Család (3+4), Alcsalád (5+6), Tribus (7), Subtribus (8), Nemzetség (9+10)~~
	~~-- Megjegyzés: A Tribusnak és Subtribusnak az eredetiben nincs külön magyar oszlopa a leírásod szerint.~~
	local oszlop_terv = {		local oszlop_terv = {
	{lat = 1, hun = 2}, -- Rend		{lat = 1, hun = 2}, -- Rend
43. sor:		41. sor:
	local magyar = mapping.hun and sor[mapping.hun] or ""		local magyar = mapping.hun and sor[mapping.hun] or ""

	~~-- Tisztítás~~
	latin = latin:gsub("^%s(.-)%s$", "%1")		latin = latin:gsub("^%s(.-)%s$", "%1")
	magyar = magyar:gsub("^%s(.-)%s$", "%1")		magyar = magyar:gsub("^%s(.-)%s$", "%1")
50. sor:		47. sor:

	if i == 1 then		if i == 1 then
	-- Fejléc ~~esetén csak a latin oszlop nevét használjuk (pl. "Rend")~~		cella_ertek = latin -- Fejléc
	~~cella_ertek = latin~~
	else		else
	~~-- Adatsorok esetén~~		if latin == "" or latin == " " then
	if latin == "" then
	cella_ertek = " "		cella_ertek = " "
	else		else
	-- Ha Nemzetség (9), akkor dőlt		-- Link generálása: [[:Kategória:LatinNév\|LatinNév]]
			local link_szoveg = latin

			-- Ha Nemzetség (9), akkor a látható szöveg dőlt legyen
	if mapping.lat == 9 then		if mapping.lat == 9 then
	~~cella_ertek~~ = "''" .. latin .. "''"		link_szoveg = "''" .. latin .. "''"
	~~else~~
	~~cella_ertek = latin~~
	end		end

	-- ~~Ha van~~ magyar ~~név, zárójelben hozzáfűzzük~~		local link = "[[:Kategória:" .. latin .. "\|" .. link_szoveg .. "]]"

			-- Összefűzés a magyar névvel
	if magyar ~= "" and magyar ~= " " then		if magyar ~= "" and magyar ~= " " then
	cella_ertek = ~~cella_ertek~~ .. " (" .. magyar .. ")"		cella_ertek = link .. " (" .. magyar .. ")"
			else
			cella_ertek = link
	end		end
	end		end

Dr. Gyúró Zoltán, 2026. január 4., 19:21-n

2026-01-04T19:21:10Z

← Régebbi változat		A lap 2026. január 4., 19:21-kori változata
14. sor:		14. sor:
	end		end

	~~-- Osztályok: wikitable (Wiki stílus), sortable (sorba rendezhető), datatable (kereső/lapozó)~~
	local res = '{\| class="wikitable sortable datatable-hook" style="width:100%; font-size:90%;"\n'		local res = '{\| class="wikitable sortable datatable-hook" style="width:100%; font-size:90%;"\n'

	for i, sor in ipairs(adatok) do		for i, sor in ipairs(adatok) do
	res = res .. "\|-\n"		res = res .. "\|-\n"

	local jel = (i == 1) and "!" or "\|"		local jel = (i == 1) and "!" or "\|"

	-- 1. Sorszám oszlop ~~hozzáadása~~		-- 1. Sorszám oszlop
	if i == 1 then		if i == 1 then
	res = res .. "! #\n" ~~-- Fejlécben '#'~~		res = res .. "! #\n"
	else		else
	res = res .. "\| " .. (i - 1) .. "\n" ~~-- Sorokban a sorszám (i-1, mert az 1. a fejléc)~~		res = res .. "\| " .. (i - 1) .. "\n"
	end		end

	-- 2. Az eredeti ~~oszlopok generálása~~		-- 2. Összevont oszlopok meghatározása (latin indexek az eredeti sorban)
	for _, ~~cellatartalom~~ in ipairs(~~sor~~) do		-- Rend (1+2), Család (3+4), Alcsalád (5+6), Tribus (7), Subtribus (8), Nemzetség (9+10)
	local ~~tiszta_cella~~ = ~~cellatartalom~~:gsub("^%s(.-)%s$", "%1")		-- Megjegyzés: A Tribusnak és Subtribusnak az eredetiben nincs külön magyar oszlopa a leírásod szerint.
	if ~~tiszta_cella~~ == "" then ~~tiszta_cella~~ = " " end		local oszlop_terv = {
			{lat = 1, hun = 2}, -- Rend
			{lat = 3, hun = 4}, -- Család
			{lat = 5, hun = 6}, -- Alcsalád
			{lat = 7, hun = nil}, -- Tribus
			{lat = 8, hun = nil}, -- Subtribus
			{lat = 9, hun = 10} -- Nemzetség
			}

			for _, mapping in ipairs(oszlop_terv) do
			local latin = sor[mapping.lat] or ""
			local magyar = mapping.hun and sor[mapping.hun] or ""

			-- Tisztítás
			latin = latin:gsub("^%s(.-)%s$", "%1")
			magyar = magyar:gsub("^%s(.-)%s$", "%1")

			local cella_ertek = ""

			if i == 1 then
			-- Fejléc esetén csak a latin oszlop nevét használjuk (pl. "Rend")
			cella_ertek = latin
			else
			-- Adatsorok esetén
			if latin == "" then
			cella_ertek = " "
			else
			-- Ha Nemzetség (9), akkor dőlt
			if mapping.lat == 9 then
			cella_ertek = "''" .. latin .. "''"
			else
			cella_ertek = latin
			end

			-- Ha van magyar név, zárójelben hozzáfűzzük
			if magyar ~= "" and magyar ~= " " then
			cella_ertek = cella_ertek .. " (" .. magyar .. ")"
			end
			end
			end

	res = res .. jel .. " " .. ~~tiszta_cella~~ .. "\n"		res = res .. jel .. " " .. cella_ertek .. "\n"
	end		end
	end		end

Dr. Gyúró Zoltán, 2026. január 4., 19:12-n

2026-01-04T19:12:31Z

← Régebbi változat		A lap 2026. január 4., 19:12-kori változata
15. sor:		15. sor:

	-- Osztályok: wikitable (Wiki stílus), sortable (sorba rendezhető), datatable (kereső/lapozó)		-- Osztályok: wikitable (Wiki stílus), sortable (sorba rendezhető), datatable (kereső/lapozó)
	local res = '{\| class="wikitable sortable datatable" style="width:100%; font-size:90%;"\n'		local res = '{\| class="wikitable sortable datatable-hook" style="width:100%; font-size:90%;"\n'

	for i, sor in ipairs(adatok) do		for i, sor in ipairs(adatok) do

Dr. Gyúró Zoltán, 2026. január 4., 19:06-n

2026-01-04T19:06:31Z

← Régebbi változat		A lap 2026. január 4., 19:06-kori változata
2. sor:		2. sor:

	function p.megjelenit(frame)		function p.megjelenit(frame)
	~~-- Adatok beolvasása~~
	local status, adatModul = pcall(require, 'Modul:SzukkulensTaxonok')		local status, adatModul = pcall(require, 'Modul:SzukkulensTaxonok')

15. sor:		14. sor:
	end		end

	-- ~~Táblázat kezdete~~		-- Osztályok: wikitable (Wiki stílus), sortable (sorba rendezhető), datatable (kereső/lapozó)
	local res = '{\| class="wikitable sortable" style="width:100%; font-size:90%;"\n'		local res = '{\| class="wikitable sortable datatable" style="width:100%; font-size:90%;"\n'

	for i, sor in ipairs(adatok) do		for i, sor in ipairs(adatok) do
	res = res .. "\|-\n" ~~-- Új sor kezdése~~		res = res .. "\|-\n"

	~~-- Megnézzük, hogy fejlécet (i=1) vagy sima sort generálunk~~		local jel = (i == 1) and "!" or "\|"
	local ~~elvalaszto~~ = (i == 1) and "!" or "\|"

			-- 1. Sorszám oszlop hozzáadása
			if i == 1 then
			res = res .. "! #\n" -- Fejlécben '#'
			else
			res = res .. "\| " .. (i - 1) .. "\n" -- Sorokban a sorszám (i-1, mert az 1. a fejléc)
			end

			-- 2. Az eredeti oszlopok generálása
	for _, cellatartalom in ipairs(sor) do		for _, cellatartalom in ipairs(sor) do
	~~-- Minden cellát ÚJ SORBA teszünk a kódban, hogy a Wiki felismerje~~
	~~-- A cellatartalom végéről levágjuk a maradék elválasztókat~~
	local tiszta_cella = cellatartalom:gsub("^%s(.-)%s$", "%1")		local tiszta_cella = cellatartalom:gsub("^%s(.-)%s$", "%1")
	if tiszta_cella == "" then tiszta_cella = " " end		if tiszta_cella == "" then tiszta_cella = " " end

	res = res .. ~~elvalaszto~~ .. " " .. tiszta_cella .. "\n"		res = res .. jel .. " " .. tiszta_cella .. "\n"
	end		end
	end		end

Dr. Gyúró Zoltán, 2026. január 4., 18:51-n

2026-01-04T18:51:40Z

← Régebbi változat		A lap 2026. január 4., 18:51-kori változata
2. sor:		2. sor:

	function p.megjelenit(frame)		function p.megjelenit(frame)
	-- ~~Próbáljuk meg betölteni a modult~~		-- Adatok beolvasása
	local status, adatModul = pcall(require, 'Modul:SzukkulensTaxonok')		local status, adatModul = pcall(require, 'Modul:SzukkulensTaxonok')

	if not status then		if not status then
	return "Hiba: A 'Modul:SzukkulensTaxonok' ~~lap~~ nem található~~. Ellenőrizd a lap pontos címét~~!"		return "Hiba: A 'Modul:SzukkulensTaxonok' nem található!"
	end		end

12. sor:		12. sor:

	if not adatok or #adatok == 0 then		if not adatok or #adatok == 0 then
	return "Hiba: Az adatok üresek ~~vagy a feldolgozás sikertelen~~!"		return "Hiba: Az adatok üresek!"
	end		end

			-- Táblázat kezdete
	local res = '{\| class="wikitable sortable" style="width:100%; font-size:90%;"\n'		local res = '{\| class="wikitable sortable" style="width:100%; font-size:90%;"\n'

	for i, sor in ipairs(adatok) do		for i, sor in ipairs(adatok) do
	res = res .. "\|-\n"		res = res .. "\|-\n" -- Új sor kezdése
	local ~~jel~~ = (i == 1) and "!" or "\|"
	for _, ~~cella~~ in ipairs(sor) do		-- Megnézzük, hogy fejlécet (i=1) vagy sima sort generálunk
	~~res~~ = ~~res .. jel .~~. " " ~~.. (cella ~~~= "" ~~and cella or~~ " ") .. " "		local elvalaszto = (i == 1) and "!" or "\|"

			for _, cellatartalom in ipairs(sor) do
			-- Minden cellát ÚJ SORBA teszünk a kódban, hogy a Wiki felismerje
			-- A cellatartalom végéről levágjuk a maradék elválasztókat
			local tiszta_cella = cellatartalom:gsub("^%s(.-)%s$", "%1")
			if tiszta_cella == "" then tiszta_cella = " " end

			res = res .. elvalaszto .. " " .. tiszta_cella .. "\n"
	end		end
	~~res = res .. "\n"~~
	end		end

Dr. Gyúró Zoltán, 2026. január 4., 18:42-n

2026-01-04T18:42:47Z

← Régebbi változat		A lap 2026. január 4., 18:42-kori változata
2. sor:		2. sor:

	function p.megjelenit(frame)		function p.megjelenit(frame)
	-- ~~Itt átírtuk~~ a ~~nevet a Te modulodra:~~		-- Próbáljuk meg betölteni a modult
	local ~~success~~, ~~adatok~~ = pcall(~~function() return~~ require('Modul:SzukkulensTaxonok'~~).getAdatok() end~~)		local status, adatModul = pcall(require, 'Modul:SzukkulensTaxonok')

	if not ~~success~~ then		if not status then
	return "Hiba: A Modul:SzukkulensTaxonok nem található ~~vagy hiba van benne~~!"		return "Hiba: A 'Modul:SzukkulensTaxonok' lap nem található. Ellenőrizd a lap pontos címét!"
	end		end
	if #adatok == 0 then
	return "Hiba: Az adatok üresek ~~(nem sikerült~~ a ~~sorokat szétvágni)~~!"		local adatok = adatModul.getAdatok()

			if not adatok or #adatok == 0 then
			return "Hiba: Az adatok üresek vagy a feldolgozás sikertelen!"
	end		end

	local res = '{\| class="wikitable sortable ~~datatable~~" style="width:100%; font-size:90%;"\n'		local res = '{\| class="wikitable sortable" style="width:100%; font-size:90%;"\n'

	for i, sor in ipairs(adatok) do		for i, sor in ipairs(adatok) do
	res = res .. "\|-\n"		res = res .. "\|-\n"
	local ~~elvalaszto~~ = (i == 1) and "!" or "\|"		local jel = (i == 1) and "!" or "\|"
	for _, ~~tartalom~~ in ipairs(sor) do		for _, cella in ipairs(sor) do
	~~local szoveg~~ = (~~tartalom =~~= "" or ~~tartalom == nil) and~~ " " ~~or tartalom~~		res = res .. jel .. " " .. (cella ~= "" and cella or " ") .. " "
	~~res = res .. elvalaszto .. " " .. szoveg~~ .. "\n"
	end		end
			res = res .. "\n"
	end		end

Dr. Gyúró Zoltán, 2026. január 4., 18:40-n

2026-01-04T18:40:25Z

← Régebbi változat		A lap 2026. január 4., 18:40-kori változata
2. sor:		2. sor:

	function p.megjelenit(frame)		function p.megjelenit(frame)
	-- ~~Beolvassuk az adatokat~~ a ~~másik modulból~~		-- Itt átírtuk a nevet a Te modulodra:
	local success, adatok = pcall(function() return require('Modul:~~Adatok~~').getAdatok() end)		local success, adatok = pcall(function() return require('Modul:SzukkulensTaxonok').getAdatok() end)

	if not success or #adatok == 0 then		if not success then
	return "Hiba: Az adatok nem ~~tölthetők be vagy üresek~~!"		return "Hiba: A Modul:SzukkulensTaxonok nem található vagy hiba van benne!"
			end
			if #adatok == 0 then
			return "Hiba: Az adatok üresek (nem sikerült a sorokat szétvágni)!"
	end		end

13. sor:		16. sor:
	for i, sor in ipairs(adatok) do		for i, sor in ipairs(adatok) do
	res = res .. "\|-\n"		res = res .. "\|-\n"
	~~-- Első sor legyen fejléc (!)~~
	local elvalaszto = (i == 1) and "!" or "\|"		local elvalaszto = (i == 1) and "!" or "\|"

	for _, tartalom in ipairs(sor) do		for _, tartalom in ipairs(sor) do
	~~-- Ha a cella üres, teszünk bele egy szóközt, hogy ne essen szét a keret~~		local szoveg = (tartalom == "" or tartalom == nil) and " " or tartalom
	local szoveg = (tartalom == "") and " " or tartalom
	res = res .. elvalaszto .. " " .. szoveg .. "\n"		res = res .. elvalaszto .. " " .. szoveg .. "\n"
	end		end