Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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 ]