[REBOL] Re: Sort by first part of line

From: al:bri:xtra at: 7-Sep-2002 23:25

With Joel's script, slightly modified:

buffer: []
t0: now/time/precise
foreach item read/lines %test.txt [
    nr: to-integer copy/part next item 3
    while [
        nr > length? buffer
    ][
        insert/only tail buffer copy []
    ]
    append buffer/:nr item
]
t1: now/time/precise
print to-decimal t1 - t0
halt

I unfortunately, get:

** Script Error: Invalid argument:
** Where: to-integer
** Near: to integer! :value
>>

I think that's because of the couple of empty lines at the end.

Andrew Martin
ICQ: 26227169 http://valley.150m.com/

1 · 2 · 3 · 4 · 5 ... 34 · 35 · [36] · 37 · 38 ... 58 · 59 · 60 · 61 · 62 · See whole thread