Suco

Aus Luke081515BotWiki
Zur Navigation springen Zur Suche springen

Ehemaliger Entwickler: Doc Taxon Mail.svg


  • Status: 100%

  • Version: v 1.0



Status: Dieses Projekt wurde erfolgreich beendet


Funktion[Bearbeiten | Quelltext bearbeiten]

  • tet.wikipedia.org
  • Suco article creating
  • nach Vorlage
  • Parameter nach Tabelle

Source[Bearbeiten | Quelltext bearbeiten]

set t    [read [set tf  [open suku-list-v.txt r]]] ; close $tf
set data [read [set tsv [open suku-list-2.txt r]]] ; close $tsv

foreach ls [lreplace [split $data \n] 0 1] {
   set i 0
   set itemt $t
   foreach item [split $ls \t] {
      if {$i == 0}   {set title $item}
      if {$item eq {-}} {
         switch $i {
            13 {regsub -- {\|-\n\| colspan="2" bgcolor="#000000"\|\[\[COLUMN 13\|300px\]\]\n} $itemt {} itemt}
            14 {regsub -- {\{\{Commons\|Cat.*?\n} $itemt {} itemt}
            16 {regsub -- {\* COLUMN 16\n} $itemt {} itemt}
         }
      }
      set itemt [string map "{COLUMN [format %02.0f $i]} {$item}" $itemt]
      incr i
   }
   if [dict exists [page [post $wiki {*}$query / titles $title]] missing] {
      puts "\n= $title ="
      puts [edit $title {Suco article creating} $itemt]
   }
}