Ryan, you actually want:
message-block: copy []
foreach file-name sort/reverse message-directory [
file-contents: read file-name
insert message-block file-contents
]
sorting the message-directory before use, not the message-block
with the contents of each file.
Anton.
> sort/reverse message-block
>
> Did not work. Look at this page to see what I'm talking about.
> The messages
> should be appearing based on time of creation, with the last created
> message at the top of the list. Something is wrong.
>
> http://www.fargonews.com/cgi-bin/messages.cgi?actionType=display&m
essageType=news&messageID=none
> From: <[EMAIL PROTECTED]>
> > I have a directory of XML-formatted messages,
> > each saved with a numeric
> > filename based on the time of creation, for example
> >
> > /news/20010329105032.txt
> > /news/20010329105033.txt
> > /news/20010329105034.txt
> >
> > I use the following function to read the directory
> > and to create a block of file names, with the
> > intention of placing the newest files first in the
> > block (in other words, the files with the highest
> > number first in the block.)
> >
> > read-directory-messages: func [
> > "Read a directory of XML-formatted standard messages with the
> directory
> > determined by messageType."
> > message-directory [block!] "A block of file names corresponding to a
> > directory of XML-formatted standard messages."
> > ][
> > message-block: copy []
> > foreach file-name message-directory [
> > file-contents: read file-name
> > insert message-block file-contents
> > ]
> > ]
> >
> > But using the above function, I get files showing up in the block out of
> > order. Am I doing something wrong?
> >
> > Ryan C. Christiansen
>
> If I understand your intention correctly (which is a big assumption for me
> on some days :-), then I would suggest reverse sorting the file names
> before
> using the foreach block. For example, add this line before the foreach:
> sort/reverse message-block
> The file names should then be sorted largest first, therefore allowing the
> foreach to iterate through the block in this order. Worth a try anyway.
>
> Regards,
> --Scott Jones
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
