Dialekttabelle
Zur Navigation springen
Zur Suche springen
Entwickler: Doc Taxon
- Status: 100%
- Version: 2.0
Status: Diese Funktion ist instabil, sie wird daher momentan nicht eingesetzt
Funktion[Bearbeiten | Quelltext bearbeiten]
- Entfernen der leeren Dialekttabelle aus der Vorlage:Ü-Tabelle in de.wiktionary.org
- Entfernen leerer Dialekttabellenzeilen aus der Vorlage:Ü-Tabelle in de.wiktionary.org
Source 2.0[Bearbeiten | Quelltext bearbeiten]
cont {ret1 {
foreach item [embeddedin $ret1] {
dict with item {
lassign {0 0 {} {}} i b validtab validtablines
if {[set tabc [regexp -all -- {Dialekttabelle} [contents id $pageid]]] == 1} {
foreach tabline [split [join [regexp -inline -- {\|Dialekttabelle.*?\n\}\}} $contents]] \n] {
if {[string index $tabline 0] eq {*}} {
if {[regexp -all -- : $tabline] != 1 || [string range $tabline 0 1] eq {**}} {
lappend excludes "cols: $title"
incr b
break
}
set val [string trim [join [dict values [split $tabline :]]]]
if {![empty val] && $val ne {[]}} {
lappend validtablines [string trimright [string map {{* } *} "\n[join [dict keys [split $tabline :]]]: $val"]]
incr i
}
}
}
} elseif {$tabc > 1} {
lappend excludes "tabs: $title"
continue
}
if $b {continue}
if $i {
set validtab [join "|Dialekttabelle=\n[linsert $validtablines [
tcl::mathfunc::round [expr {$i / 2.0}]
] \n|D-rechts=]"]\n
}
if {$contents ne [set newcontents [regsub -- {\|Dialekttabelle.*?\n\}\}} $contents $validtab\}\}]]} {
puts [edid $pageid [expr {!$i?{obsolete Dialekttabelle entfernt}:{Dialekttabelle angepasst}}] $newcontents]
}
}
}
}} {*}$embeddedin / eititle Template:Ü-Tabelle / einamespace 0 / eicontinue 0|0
foreach exclude $excludes {puts $exclude}
Source 1.0[Bearbeiten | Quelltext bearbeiten]
set match "|Dialekttabelle=\n|D-rechts=\n}}"
cont2 {ret1 {
foreach item [embeddedin $ret1] {
dict with item {
set content [content [post $wiki {*}$get / pageids $pageid]]
if {[regexp -- (?q)$match $content] > 0} {
regsub -all -- (?q)$match $content "\}\}" content
puts \n$pageid:$title
puts [edid $pageid {leere Dialekttabelle entfernt} $content]
}
}
}
}} {*}$embeddedin / eititle Template:Ü-Tabelle / einamespace 0 / eicontinue 0|0