egghelp.org community

[Zircon]

Hi all

i m lookin for a TCL script that can produce an output file by sorting the lines of an input file. The input file is a Trivia file.

Can some1 help me ? Thanks in advance

[Sir_Fz]

Use the [lsort] Tcl-command to sort a list.
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts

[Zircon]

Hi all

Thanks Sir_Fz for this hint. Unfortnately i don't know tcl, but i have a piece of code that can be a good start if some 1 can help to modify it to what i want. I think this code sorts the input file and make everything in a sigle line, like if we give it a c b in separate lines, it will return a b c in a single line in the output file. Me, i want to sort the file, but keep them in separate lines.


proc trivsort {} {
putlog "starting sorting......."
set f [open "input.txt" r]
set triv [read $f]
close $f
set trivlist [split $triv "\n"]
unset triv
lsort -increasing $trivlist
set f [open "output.txt" w]
puts $f $trivlist
close $f
putlog "sorting done.."
}

Thanks in advance

[Sir_Fz]

[Zircon]

Hello Sir_Fz

Thanks very much for your help, your script is fully working