[REBOL] Re: Newbie problem
From: kpeters-vu:ware at: 3-Feb-2005 9:11
(Repost - sent the first one out 16 hours ago only to not see it again...)
Thanks guys!
REBOL leaves me breathless - just about everything is at least 10 times simpler and faster
than I typically imagine...
Here's my final question:
The script below finds every *first* occurrence per file - how do I make it find *multiple*
occurrences?
Also, if anyone sees parts of my code that could be improved upon, please do not hesitate
to teach
me a lesson or two - thanks!
Kai
rebol[]
levelone: %/c/arm/level1/
linkfile: %/c/arm/level2/links
files: =A0 =A0read levelone
foreach file files [
=A0 page: read join levelone file
=A0 text: copy ""
=A0 parse/all page [thru {: ViewClient('} copy text to {','info');">} ]
=A0 l: length? text
=A0 either l = 10 [ write/append/lines linkfile mold copy/part text 12 ] [ print l ]
=A0 print file
]