imported>Herzi Pinki: fix für Umbrüche in Adressen (erzeugen linter errors)

2018-01-18T11:48:03Z

fix für Umbrüche in Adressen (erzeugen linter errors)

Neue Seite

local p = {}

function p.convert(frame)
-- Lade externe Module
local Sort = require( "Module:Sort" ).Sort()
local Text = require( "Module:Text" ).Text()
local WLink = require( "Module:WLink" ).WLink()
local hausnummer, sortadresse, strasse, ziffernzahl
-- Lese Parameter und entferne sämtliche Wiki-Syntax
local rohadresse = WLink.getPlain(Text.getPlain(frame.args[1]))
-- Entferne alle bis auf die erste Hausnummer einer Aufzählung
-- 1. Entferne alles nach Umbrüchen
local adresse = rohadresse:gsub("\n.*",""):gsub(" /.*",""):gsub("/.*",""):gsub(", %d*%a*",""):gsub(" bis %d*%a*", ""):gsub(" und %d*%a*", ""):gsub("; %d%a*", ""):gsub("(%d.*) %(.*%)","%1")
-- Suche nach der Hausnummer = finde letztes Auftreten eines Ziffer-"Wortes"
strasse, hausnummer = mw.ustring.match(adresse, "^(.+) (%d[%-–/%d]*%a?)$")
if hausnummer then
-- Prüfe, ob die Nummer vom Format "10-12" ist
local punctuation = mw.ustring.find(hausnummer,'%p')
-- Prüfe, ob die Nummer vom Format "10a" ist
local alpha = mw.ustring.find(hausnummer,'%a')
-- Werte das aus und reduziere ggf. die beachtete Ziffernzahl
ziffernzahl = 0
if punctuation then
ziffernzahl = punctuation - 1
-- Falls zuerst ein Buchstabe kommt
if alpha and (alpha-punctuation < 0) then
ziffernzahl = alpha - 1
end
elseif alpha then
ziffernzahl = alpha - 1
-- Falls zuerst ein Satzzeichen kommt
if punctuation and (punctuation-alpha < 0) then
ziffernzahl = punctuation - 1
end
else
-- Wenn es keine Spezialfälle gibt, bestimme einfach die Länge
ziffernzahl = mw.ustring.len(hausnummer)
end
end
-- Ersetze Sonderzeichen usw.
if hausnummer then
sortadresse = Sort.lex(strasse, "latin") .. " " ..
mw.ustring.rep('0',5-ziffernzahl) .. hausnummer
else
sortadresse = Sort.lex(adresse, "latin")
end
-- Gebe den SortKey zurück
return sortadresse
end
return p

Modul:AdressenSort - Versionsgeschichte

imported>Herzi Pinki: fix für Umbrüche in Adressen (erzeugen linter errors)