Re: reversing html

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.

.

Relevant Pages

  • Re: reversing html
    ... package require tdom ... # fconfigure $file as necessary ... foreach child { ... set file ...
    (comp.lang.tcl)
  • Re: reversing html
    ... # fconfigure $file as necessary ... foreach child { ... your own [lreverse] command. ... lappend ret ...
    (comp.lang.tcl)