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

[REBOL] Re: truble with " * " all characters recognizing

From: al:bri:xtra at: 11-Dec-2002 19:45

Romano wrote:
> Sorry, wrong post. The right routine: > > sfx: func [x /local h][parse/all x [some [thru #"."][thru #"/" | h: to end
(h: to file! back h)]] h] That passes all my tests and is noticably faster over a million iterations, than the other versions. Here's the version I'm using of Romano's function using slightly longer words to make it clear. Extension?: Suffix?: function [File [url! file! string!]] [Ext] [ parse/all File [ some [thru #"."] [ thru #"/" | Ext: to end ( Ext: to file! back Ext ) ] ] Ext ] Thank you, Romano! Andrew Martin ICQ: 26227169