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

[REBOL] Selects

From: andrew::martin::colenso::school::nz at: 13-Aug-2003 12:12

Nifty function of the day strikes again! Selects: function [ "Repeatedly finds a value in the series and returns the value or series after it." Series [series! port!] Values [block!] /Part "Limits the search to a given length or position." Range [number! series! port!] /Only "Treats a series value as a single value." /Case "Characters are case-sensitive." /Any "Enables the * and ? wildcards." /With "Allows custom wildcards." Wild [string!] {Specifies alternates for "*" and "?".} /Skip "Treat the series as records of fixed size." ] [ Body ] [ Body: reduce [ foreach Refinement first :Selects collect/initial [ if equal? /local Refinement [ break ] all [ refinement? Refinement get bind Refinement: to word! Refinement 'Body Refinement ] ] to path! 'Select 'Series 'Value ] all [ Part insert/only tail Body Range ] all [ With insert/only tail Body Wild ] foreach Value Values collect Body ] And it's used like:
>> selects/only [Pupil "Andrew Martin" DoB 25/10/2003 Foo "baa"] [Pupil
DoB] == ["Andrew Martin" 25-Oct-2003] Andrew J Martin Attendance Officer & Information Systems Trouble Shooter Colenso High School Arnold Street, Napier. Tel: 64-6-8310180 ext 826 Fax: 64-6-8336759 DISCLAIMER: Colenso High School and its Board of Trustees is not responsible (or legally liable) for materials distributed to or acquired from user e-mail accounts. You can report any misuse of an e-mail account to our ICT Manager and the complaint will be investigated. (Misuse can come in many forms, but can be viewed as any material sent/received that indicate or suggest pornography, unethical or illegal solicitation, racism, sexism, inappropriate language and/or other issues described in our Acceptable Use Policy.) All outgoing messages are certified virus-free by McAfee GroupShield Exchange Phone: +64 6 843 5095 or Fax: +64 6 833 6759 or E-mail: [postmaster--colenso--school--nz]