[REBOL] problem with sort a file Re:(3)

[Al . Bri]

Try this:

write %foo.txt
{2-Feb-2000  1   2
1-Feb-2000  2   1
6-Feb-2000  3   5
24-Feb-2000 4   6}

Lines: read/lines %foo.txt
Block: make block! 100
foreach Line Lines [
 append/only Block load Line
 ]

print mold Block
sort Block
print mold Block

delete %foo.txt
foreach Line Block [
 write/append %foo.txt rejoin ["" line newline]
 ]

print read %foo.txt

Andrew Martin
REBOLutionary in NZ...
ICQ: 26227169
http://members.xoom.com/AndrewMartin/
-><-