Re: reversing html

On Sep 29, 7:18 am, Aric Bills <aric.bi...@xxxxxxxxx> wrote:
On Sep 28, 3:17 pm, Aric Bills <aric.bi...@xxxxxxxxx> wrote:



Here's a solution off the top of my head. It can probably be made
more elegant, but it will do the job.

package require tdom

set file [open $inputfile r]
# fconfigure $file as necessary
set doc [dom parse -html -channel $file]
close $file

foreach row [$doc selectNodes {//tr}] {
set children [$row childNodes]
foreach child $children {
$row removeChild $child
}
foreach child [lreverse $children] {
$row appendChild $child
}

}

set file [open $outputfile w]
# fconfigure $file as necessary
puts $file [$doc asHTML]
close $file

Forgot to mention that this requires Tcl 8.5, or else that you write
your own [lreverse] command.

That's not too hard though:

proc lreverse {thelist} {
set ret {}
set llen [llength $thelist]
for {set x $llen} {[incr x -1] >= 0} {} {
lappend ret [lindex $thelist $x]
}
return $ret
}

.