egghelp/eggheads community

"Sort" a file!

2003-06-14T18:01:55-04:00

Thx user. It works great, even if the syntax is weird

Statistics: Posted by cerberus_gr — Sat Jun 14, 2003 6:01 pm

"Sort" a file!

2003-06-14T14:35:40-04:00

Since the output will be the exact same size as the input you don't need to create a new file (using 'open' twice).

Open it using r+ and seek back to the start before writing the output:

Code:

set file "sortme.txt"puts -nonewline [set f [open $file r+]] [join [lsort -dict -decr [split [read $f][seek $f 0] \n]] \n]close $f

excuse my weird syntax

Statistics: Posted by user — Sat Jun 14, 2003 2:35 pm

"Sort" a file!

2003-06-14T12:03:35-04:00

Thank you both guys. The procedure that I have written was 46 lines and now it's 10 lines only and of course works better

Statistics: Posted by cerberus_gr — Sat Jun 14, 2003 12:03 pm

"Sort" a file!

2003-06-13T17:39:01-04:00

yeah, go with stdragons solution, forgot about the blank lines

Statistics: Posted by Papillon — Fri Jun 13, 2003 5:39 pm

"Sort" a file!

2003-06-13T17:22:28-04:00

You're right, -dict works too, I was just thinking of using the lsort -command option instead. You write a proc to compare 2 list items, returning -1, 0, or 1 (less than, equal, greater than). It's handy when you want to do complex sorting (like maybe you want to sort user handles by their flag levels, +n at the top etc).

You might want to change the way you read in the file though, because it will keep adding a new blank line at the end. This works a bit better:

Code:

set fid [open $file r]set somelist [split [read -nonewline $fid] \n]close $fid

Statistics: Posted by stdragon — Fri Jun 13, 2003 5:22 pm

"Sort" a file!

2003-06-13T16:20:13-04:00

Code:

set fid [open $file r]while {"[eof $fid]} {  gets $fid line  lappend somelist $line}catch {close $fid}set xid [open $file w]set somelist [lsort -dict -decreasing $somelist]foreach x $somelist {  puts $xid $x}catch {close $xid}

something like this

Statistics: Posted by Papillon — Fri Jun 13, 2003 4:20 pm

"Sort" a file!

2003-06-13T14:39:34-04:00

Papillon a bit more help? does it works if the numbers are:
3, 12, 32 or I should have 03, 12, 32?

Statistics: Posted by cerberus_gr — Fri Jun 13, 2003 2:39 pm

"Sort" a file!

2003-06-13T14:36:05-04:00

You mean that when I read a line to put in the right position in another file??
smt like this:

set a [open $file1 r]
set b [open $file1 w+]

while {![eof $a]} {
gets $a linea
set numa [lindex [split $linea] 0]

while {![eof $fileb]} {
gets $b lineb
set numb [lindex [split $lineb] 0]
if {$numa > $numb} { puts $numb $linea }
# Here I lose the content of previous line?
}
}

Could you help me a little more with the lsort command?

Statistics: Posted by cerberus_gr — Fri Jun 13, 2003 2:36 pm

"Sort" a file!

2003-06-13T14:27:31-04:00

why would he need to compare the lines? all he wants to do is sort them by decreasing order

Statistics: Posted by Papillon — Fri Jun 13, 2003 2:27 pm

"Sort" a file!

2003-06-13T14:16:29-04:00

Sure... open the file, read in everything, close it, split it by line, then write a proc to compare two lines (using lindex like you have), and sort the whole thing with lsort -command yourcommand. Then open the file again for writing, write the new list.

Statistics: Posted by stdragon — Fri Jun 13, 2003 2:16 pm

"Sort" a file!

2003-06-13T14:06:44-04:00

Hello,

I have a .txt file which looks like this:

3 abcdsaaa
15 kljsfdfdfd
32 jdksdsds
6 khjaasa
15 dsdjsd

(it has some lines and the first [lindex [split $text] 0]] of all lines is a number)

Now I want to create a new .txt file where the first line would be this with the largest number, the second line would be this with the next number etc. For this example the file I want to be:

32 jdksdsds
15 dsdjsd
15 kljsfdfdfd
6 khjaasa
3 abcdsaaa

(If two numbers are the same I don't have any problem which line would be upper than other.

Any ideas?

Statistics: Posted by cerberus_gr — Fri Jun 13, 2003 2:06 pm