[REBOL] And the last one for today...
From: kpeters-vu::ware::com at: 2-Feb-2005 17:23
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: read levelone
foreach file files [
page: read join levelone file
text: copy ""
parse/all page [thru {: ViewClient('} copy text to {','info');">} ]
l: length? text
either l = 10 [ write/append/lines linkfile mold copy/part text 12 ] [ print l ]
print file
]