Modul:Geo

getPLZ() / GetPLZ()

Liefert die Postleitzahl einer Straße mit Hausnummer zurück.

Test

-getPLZ(Königstraße)- ergibt -90762-	-getPLZ(Königstraße|1)- ergibt -90762-	-getPLZ(Königstraße|1000)- ergibt -90762-
-getPLZ(Breslauer Straße)- ergibt -90766-	-getPLZ(Breslauer Straße|1)- ergibt -90766-	-getPLZ(Breslauer Straße|1000)- ergibt -90766-
-getPLZ(Brunnenweg)- ergibt -0-	-getPLZ(Brunnenweg|1)- ergibt -0-	-getPLZ(Brunnenweg|1000)- ergibt -0-
-getPLZ(Brückenstraße)- ergibt -90768-	-getPLZ(Brückenstraße|1)- ergibt -90768-	-getPLZ(Brückenstraße|1000)- ergibt -90768-
-getPLZ(Frankenschnellweg)- ergibt -0-	-getPLZ(Frankenschnellweg|1)- ergibt -0-	-getPLZ(Frankenschnellweg|1000)- ergibt -0-
-getPLZ(Fuchsstraße)- ergibt -90768-	-getPLZ(Fuchsstraße|1)- ergibt -90768-	-getPLZ(Fuchsstraße|1000)- ergibt -90768-
-getPLZ(Heckenweg)- ergibt -90762-	-getPLZ(Heckenweg|1)- ergibt -90762-	-getPLZ(Heckenweg|1000)- ergibt -90762-
-getPLZ(Höfener Straße)- ergibt -90763-	-getPLZ(Höfener Straße|1)- ergibt -90763-	-getPLZ(Höfener Straße|1000)- ergibt -90763-
-getPLZ(Käppnerweg)- ergibt -0-	-getPLZ(Käppnerweg|1)- ergibt -0-	-getPLZ(Käppnerweg|1000)- ergibt -0-
-getPLZ(Schwabacher Straße)- ergibt -90762-	-getPLZ(Schwabacher Straße|1)- ergibt -90762-	-getPLZ(Schwabacher Straße|2)- ergibt -90762-
	-getPLZ(Schwabacher Straße|51)- ergibt -90762-	-getPLZ(Schwabacher Straße|53)- ergibt -90763-
	-getPLZ(Schwabacher Straße|62)- ergibt -90762-	-getPLZ(Schwabacher Straße|66)- ergibt -90763-
	-getPLZ(Schwabacher Straße|1000)- ergibt -90763-	-getPLZ(Schwabacher Straße|1001)- ergibt -90763-
-getPLZ(Stadelner Straße)- ergibt -90768-	-getPLZ(Stadelner Straße|1)- ergibt -90768-	-getPLZ(Stadelner Straße|1000)- ergibt -90768-
-getPLZ(Südwesttangente)- ergibt -0-	-getPLZ(Südwesttangente|1)- ergibt -0-	-getPLZ(Südwesttangente|1000)- ergibt -0-
-getPLZ(Vacher Straße)- ergibt -90766-	-getPLZ(Vacher Straße|1)- ergibt -90766-	-getPLZ(Vacher Straße|2)- ergibt -90766-
	-getPLZ(Vacher Straße|221)- ergibt -90766-	-getPLZ(Vacher Straße|227)- ergibt -90768-
	-getPLZ(Vacher Straße|226)- ergibt -90766-	-getPLZ(Vacher Straße|250)- ergibt -90768-
	-getPLZ(Vacher Straße|1000)- ergibt -90768-	-getPLZ(Vacher Straße|1001)- ergibt -90768-
-getPLZ(Würzburger Straße)- ergibt -90762-	-getPLZ(Würzburger Straße|1)- ergibt -90762-	-getPLZ(Würzburger Straße|2)- ergibt -90762-
	-getPLZ(Würzburger Straße|7)- ergibt -90762-	-getPLZ(Würzburger Straße|9)- ergibt -90766-
	-getPLZ(Würzburger Straße|34)- ergibt -90762-	-getPLZ(Würzburger Straße|36)- ergibt -90766-
	-getPLZ(Würzburger Straße|398)- ergibt -90766-	-getPLZ(Würzburger Straße|400)- ergibt -90768-
	-getPLZ(Würzburger Straße|399)- ergibt -90766-	-getPLZ(Würzburger Straße|401)- ergibt -90768-
	-getPLZ(Würzburger Straße|1000)- ergibt -90768-	-getPLZ(Würzburger Straße|1001)- ergibt -90768-
-getPLZ(Fürther Straße)- ergibt --	-getPLZ(Fürther Straße|1)- ergibt --
-getPLZ(BlaBla)- ergibt --	-getPLZ(BlaBla|1)- ergibt --

getHausnummerZahl() / GetHausnummerZahl()

Unterfunktion, die die Zahl einer Hausnummer ohne Buchstaben rückliefert

Test

• -getHausnummerZahl(123a)- ergibt -123-
• -getHausnummerZahl(123 a)- ergibt -123-
• -getHausnummerZahl(123a4)- ergibt -123-
• -getHausnummerZahl(123 4)- ergibt -123-
• -getHausnummerZahl(123½)- ergibt -123-
• -getHausnummerZahl(123)- ergibt -123-
• -getHausnummerZahl()- ergibt --

getPLZList() / GetPLZList()

Liefert eine Liste aller Postleitzahlen in Fürth zurück. Query: [[Kategorie:Postleitzahlen]] [[PLZ::+]]

GetPLZList() ergibt

stadtteil2PLZ() / Stadtteil2PLZ()

Liefert die Postleitzahlen von Stadtteilen zurück. Syntax:

• stadtteil2PLZ(stadtteile) mit stadtteile als table
• Stadtteil2PLZ(frame) mit Stadtteile als Argument 1 (Beispiel: {{#invoke:Geo|Stadtteil2PLZ|Innenstadt}})

Test

• -stadtteil2PLZ("Innenstadt")- ergibt --
• -stadtteil2PLZ("Innenstadt;Ronhof")- ergibt --
• -stadtteil2PLZ("")- ergibt --
• -stadtteil2PLZ()- ergibt --

Unterseiten

• Geo/Doku

Siehe auch

• Modul:Common
• Modul:String
• Modul:Queries

---

local p = {}
local com = require("Module:Common")
local que = require("Module:Queries")
local str = require("Modul:String")

function p.OSMlink(frame)
	local dms_coords = frame.args[1] -- Degree, Minute, Second format
	return p.osmLink(frame, dms_coords)
end

function p.osmLink(frame, dms_coords)
	local float_coords = frame:callParserFunction('#coordinates', {dms_coords, format='float', directional='no'})
	local coords = str.split(float_coords, ', ')
	local dms_split = str.split(dms_coords, ',')
	local url = '[https://www.openstreetmap.org/?' ..
		'mlat=' .. coords[1] .. '&' ..
		'mlon=' .. coords[2] .. '#' ..
		'map=18/' .. coords[1] .. '/' .. coords[2] .. ' ' ..
		dms_split[1] .. '<br>' .. dms_split[2] .. ']'
	return url
end

function p.GetHausnummerZahl(frame)
	-- #invoke wrapper
	return p.getHausnummerZahl(frame.args[1])
end

function p.getHausnummerZahl(hausnummer)
	-- Hausnummer ohne Buchstaben extrahieren, um damit PLZ zu ermitteln
	local hausnr = ""
	
	if not com.isEmpty(hausnummer) then
		hausnr = tonumber(string.match("0" .. hausnummer, "%d+"))
	end
	return hausnr
end

function p.GetPLZ(frame)
	local strasseArg = frame.args["Straße"] or ""
	local hausnrArg = tostring(frame.args["Hausnummer"]) or ""

	local strassen = str.split(strasseArg, ";") or {}
	local hausnummern = str.split(hausnrArg, ";") or {}

	-- Ned schön, funktioniert aber. Iterative Multistraßen-Lösung wäre fein!
	-- Bei Gebäude-Komplexen mit mehreren Straßen ist in Fürth nicht unbedingt anzunehmen,
	-- dass diese sich auf mehrere PLZs verteilen
	local strasse = str.strip(strassen[1])
	local hausnummer = str.strip(hausnummern[1])

	return p.getPLZ(strasse, hausnummer)
end

function p.getPLZ(strasse, hausnummer)
	local plz = 0;

	if not com.isEmpty(strasse) then

		local hausnummerZahl = 0;
		if not com.isEmpty(hausnummer) then
			hausnummerZahl = p.getHausnummerZahl(hausnummer)
		end
	
		if     strasse == "Breslauer Straße" then	plz = 90766 -- momentan gibt es keine Gebäude in 90768 Unterfürberg und eine Hausnummer-Grenze nicht bekannt
		elseif strasse == "Brunnenweg" then			plz = 0		-- momentan gibt es keine Gebäude und eine Hausnummer-Grenze nicht bekannt
		elseif strasse == "Brückenstraße" then		plz = 90768 -- momentan gibt es keine Gebäude in 90765 Mannhof und eine Hausnummer-Grenze nicht bekannt
		elseif strasse == "Frankenschnellweg" then	plz = 0		-- momentan gibt es keine Gebäude und eine Hausnummer-Grenze nicht bekannt
		elseif strasse == "Fuchsstraße" then		plz = 90768 -- momentan gibt es keine Gebäude in 90763 Südstadt und eine Hausnummer-Grenze nicht bekannt
		elseif strasse == "Heckenweg" then			plz = 90762 -- momentan gibt es keine Gebäude in 90766 Schwand/Eigenes Heim und eine Hausnummer-Grenze nicht bekannt
		elseif strasse == "Höfener Straße" then		plz = 90763 -- momentan gibt es keine Gebäude in 90762 Stadtgrenze und eine Hausnummer-Grenze nicht bekannt
		elseif strasse == "Käppnerweg" then			plz = 0		-- momentan gibt es keine Gebäude und eine Hausnummer-Grenze nicht bekannt
		elseif strasse == "Stadelner Straße" then	plz = 90768 -- momentan gibt es keine Gebäude in 90765 Mannhof und eine Hausnummer-Grenze nicht bekannt
		elseif strasse == "Südwesttangente" then	plz = 0		-- momentan gibt es keine Gebäude und eine Hausnummer-Grenze nicht bekannt
		elseif strasse == "Südwesttangente" then	plz = 0		-- momentan gibt es keine Gebäude und eine Hausnummer-Grenze nicht bekannt
		elseif strasse == "Schwabacher Straße" then
			if hausnummerZahl % 2 == 0 then	if hausnummerZahl < 66 then plz = 90762 else plz = 90763 end -- gerade H.nr.
			elseif							   hausnummerZahl < 53 then	plz = 90762	else plz = 90763 end -- ungerade H.nr.
		elseif strasse == "Vacher Straße" then
			if hausnummerZahl % 2 == 0 then	if hausnummerZahl < 250 then plz = 90766 else plz = 90768 end -- gerade H.nr.
			elseif							   hausnummerZahl < 225 then plz = 90766 else plz = 90768 end -- ungerade H.nr.
		elseif strasse == "Würzburger Straße" then
			if hausnummerZahl % 2 == 0 then	if hausnummerZahl < 36 then plz = 90762 elseif hausnummerZahl < 400 then plz = 90766 else plz = 90768 end -- gerade H.nr.
			elseif							   hausnummerZahl <	 9 then plz = 90762 elseif hausnummerZahl < 401 then plz = 90766 else plz = 90768 end -- ungerade H.nr.
		else
			plz = que.getValues(strasse, "PLZ", true)[1] -- alle anderen Straßen haben nur eine PLZ, die auf deren Seite vemerkt ist
		end
	end
	
	return plz
end

function p.GetPLZList(frame)
	-- Gets the values from an attribute on a page to be called from Wikitext by #invoke
	local sep = frame.args.sep or ";"

	local plzTable = p.getPLZList()
	local plzList = str.list(plzTable, sep)
--	mw.log("GetValues(frame)=" .. plzList)
--	mw.log("frame=")
--	mw.logObject(frame)
	return plzList
end

function p.getPLZList()
	local plzlist = que.getPages("[[Kategorie:Postleitzahlen]] [[PLZ::+]]", true)
	table.sort(plzlist)
--	mw.logObject(plzlist)
	return plzlist
end

function p.Stadtteil2PLZ(frame)
	mw.logObject(frame)
	local plzlist = ""
	local stadtteile = frame.args[1]
	if not com.isEmpty(stadtteile) then
		local stadtteilTable = str.split(stadtteile, ";")
		local plztable = p.stadtteil2PLZ(stadtteilTable)
		plzlist = str.list(plztable, ";")
	end
--	mw.log(plzlist)
	return plzlist
end

function p.stadtteil2PLZ(stadtteile)
	-- gibt die Postleitzahlen der Stadtteile als table zurück
	local plztable = {}
	if not com.isEmpty(stadtteile) then
		if type(stadtteile) == "table" then
			for _, s in pairs(stadtteile) do
				for _, p in pairs(que.getValues(s, "PLZ", true)) do -- p ist string
					plztable[tonumber(p)] = true -- diese Mechanik verhindert mehrfaches Einfügen der gleichen PLZ
				end
			end
		else
			plztable[tonumber(que.getValues(stadtteile, "PLZ", true)[1])] = true
		end
	end
--	mw.logObject(plztable)

	local plzlist = {} -- Tabelle in sortierte Liste überführen
	for p, _ in pairs(plztable) do
		table.insert(plzlist, p)
	end
	table.sort(plzlist)
--	mw.logObject(plzlist)
	return plzlist
end

return p