Modul:AdressenSort

Vorlagenprogrammierung	Diskussionen	Lua		Unterseiten
		Modul	Deutsch	Modul:	Dokumentation

Diese Seite enthält Code in der Programmiersprache Lua. Einbindungszahl Cirrus

---

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