Dialekttabelle

Aus Luke081515BotWiki
Zur Navigation springen Zur Suche springen

Entwickler: Doc Taxon Mail.svg


  • 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