http://snippets.dzone.com/posts Sun, 18 May 2008 02:56:32 GMT DZone Snippets: like code http://snippets.dzone.com/posts/show/2752 <code> <br />words-like: func [ <br /> "Returns a block of words in the object that match the given pattern." <br /> object [object!] <br /> pattern [word! any-string!] <br /> ;??? Add an /unbound refinement <br />][ <br /> pattern: join form pattern "*" <br /> collect w [ <br /> foreach word next first object [ <br /> if find/match/any form word pattern [w: bind word in object 'self] <br /> ] <br /> ] <br />] <br /></code> Sun, 01 Oct 2006 22:25:23 GMT http://snippets.dzone.com/posts/show/2752 gregg.irwin (Gregg Irwin)