Modul:Geo: Unterschied zwischen den Versionen

← Zum vorherigen Versionsunterschied

Modul:Geo (Quelltext anzeigen)

Version vom 27. Oktober 2025, 09:46 Uhr

4.984 Bytes hinzugefügt , 27 Oktober

K

Entfernte den Schutz von „Modul:Geo“

HeikoBot

Bots, SMW-Administratoren, SMW-Kuratoren, SMW-Editoren, Administratoren

15.101

Bearbeitungen

@@ Zeile 1: / Zeile 1: @@
 local p = {}
-local c = require( "Module:Common" )
+local com = require("Modul:Common")
+local que = require("Modul:Queries")
+local str = require("Modul:String")
 function p.OSMlink(frame)
-	dms_coords = frame.args[1] -- Degree, Minute, Second format
+	local dms_coords = frame.args[1] -- Degree, Minute, Second format
-	float_coords = frame:callParserFunction('#coordinates', {dms_coords, format='float', directional='no'})
+	return p.osmLink(frame, dms_coords)
-	coords = split(float_coords, ', ')
-	dms_split = split(dms_coords, ', ')
-	url = '[https://www.openstreetmap.org/?' ..
-		'mlat=' .. coords[0] .. '&' ..
-		'mlon=' .. coords[1] .. '#' ..
-		'map=18/' .. coords[0] .. '/' .. coords[1] .. ' ' ..
-		dms_split[0] .. '<br>' .. dms_split[1] .. ']'
-	return float_coords, '----', url
 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] or "")
+end
+function p.getHausnummerZahl(hausnummer)
+	-- Hausnummer ohne Buchstaben extrahieren, um damit PLZ zu ermitteln
+	return tonumber(string.match("0" .. (hausnummer or ""), "%d+"))
+end
+function p.GetPLZ(frame)
+	-- Vorlage zum Testen in Konsole: =p.GetPLZ({args={["Straße"]="",["Hausnummer"]=""}})
+	local plz = ""
+	local strasse = frame.args["Straße"] or ""
+	local hausnummer = frame.args["Hausnummer"] or ""
+	-- Nur die erste Hausnummer aus einer eventuellen Liste extrahieren
+	-- Bei Gebäude-Komplexen mit mehreren Hausnummern ist in Fürth nicht unbedingt anzunehmen,
+	-- dass diese sich auf mehrere PLZs verteilen
+	hausnummer = str.splitAndStrip(hausnummer, ";")
+	if #hausnummer > 0 then
+		hausnummer = hausnummer[1]
+	else
+		hausnummer = ""
+	end
+	plz = p.getPLZ(strasse, hausnummer)
+	return plz
+end
+function p.getPLZ(strasse, hausnummer)
+--	mw.log("getPLZ(" .. (strasse or "nil") .. ", " .. (hausnummer or "nil") .. ")")
+	local plz = ""
+	local hausnummer = p.getHausnummerZahl(hausnummer) -- Buchstaben hinter der Nummer abschneiden
+	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						-- 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				-- 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						-- 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				-- momentan gibt es keine Gebäude und eine Hausnummer-Grenze nicht bekannt
+	elseif strasse == "Südwesttangente" then				-- momentan gibt es keine Gebäude und eine Hausnummer-Grenze nicht bekannt
+	elseif strasse == "Schwabacher Straße" then
+		if hausnummer % 2 == 0 then	if hausnummer < 66 then plz = 90762 else plz = 90763 end -- gerade H.nr.
+		elseif						   hausnummer < 53 then	plz = 90762	else plz = 90763 end -- ungerade H.nr.
+	elseif strasse == "Vacher Straße" then
+		if hausnummer % 2 == 0 then	if hausnummer < 250 then plz = 90766 else plz = 90768 end -- gerade H.nr.
+		elseif						   hausnummer < 225 then plz = 90766 else plz = 90768 end -- ungerade H.nr.
+	elseif strasse == "Würzburger Straße" then
+		if hausnummer % 2 == 0 then	if hausnummer < 36 then plz = 90762 elseif hausnummer < 400 then plz = 90766 else plz = 90768 end -- gerade H.nr.
+		elseif						   hausnummer <	 9 then plz = 90762 elseif hausnummer < 401 then plz = 90766 else plz = 90768 end -- ungerade H.nr.
+	else
+		local plz_ask = que.getValues(strasse, "PLZ", true) -- alle anderen Straßen haben nur eine PLZ, die auf deren Seite vemerkt ist
+		if #plz_ask == 1 then -- mehr als eine oder keine PLZ?
+			plz = plz_ask[1]
+		end
+	end
+--	mw.log("plz = " .. plz)
+	return plz
+end
+function p.GetPLZList(frame)
+	return table.concat(p.getPLZList(), frame.args.sep or ";")
+end
+function p.getPLZList()
+	return {90705, 90762, 90763, 90765, 90766, 90768}
+end
+function p.Stadtteil2PLZ(frame)
+--	mw.logObject(frame)
+	local plz = ""
+	local stadtteile = frame.args[1] or ""
+	if stadtteile ~= "" then
+		local stadtteile = str.splitAndStrip(stadtteile, ";")
+		plz = p.stadtteil2PLZ(stadtteile)
+		plz = table.concat(plz, ";")
+	end
+--	mw.log(plz)
+	return plz
+end
+function p.stadtteil2PLZ(stadtteile)
+	-- gibt die Postleitzahlen der Stadtteile als table zurück
+	local plz_table = {}
+	if type(stadtteile) == "table" then
+		for _, s in pairs(stadtteile) do
+			for _, p in pairs(que.getValues(s, "PLZ", true)) do -- p ist string
+				plz_table[tonumber(p)] = true -- diese Mechanik verhindert mehrfaches Einfügen der gleichen PLZ
+			end
+		end
+	elseif stadtteile ~= nil and stadtteile ~= "" then
+		plz_table[tonumber(que.getValues(stadtteile, "PLZ", true)[1])] = true
+	end
+--	mw.logObject(plz_table)
+	local plz = {} -- Tabelle in sortierte Liste überführen
+	for p, _ in pairs(plz_table) do
+		table.insert(plz, p)
+	end
+	table.sort(plz)
+--	mw.logObject(plz)
+	return plz
+end
 return p
---{{#coordinates:{{#show:Innenstadt|?Geokoordinate}}|format=float|directional=no}}