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

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