Suco
Zur Navigation springen
Zur Suche springen
Ehemaliger Entwickler: Doc Taxon
- 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]
}
}