Benutzer:TaxonBot
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]
}