Benutzer:TaxonBot

Aus Luke081515BotWiki
Zur Navigation springen Zur Suche springen
#!/shared/tcl/bin/tclsh8.6
#!/usr/bin/tclsh8.6

#exit

source api2.tcl
set lang bottest ; source langwiki.tcl
source procs.tcl

set token [login $wiki]

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
   }
   puts [edit $title {} $itemt]
}