[REBOL] Re: Line reduction - /direct ?
From: arolls:bigpond:au at: 6-Jul-2001 4:44
Try adding direct refinement:
read/direct/lines to-file input_file
> input_file: ask "Enter the source file name: "
> output_file: ask "Enter the output file name: "
> skip_amount: ask "Remove line after every X lines: "
> datafile: read/lines to-file input_file
>
> use [len skp] [
> len: length? datafile
> skp: 1 + to-integer skip_amount
> for rem len - (len // skp) skp (- skp) [
> remove at datafile rem
> ]
> ]
>
> write/lines to-file output_file datafile
Does it speed up?