[REBOL] Re: truble with " * " all characters recognizing
From: al:bri:xtra at: 11-Dec-2002 19:45
> 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
Thank you, Romano!
ICQ: 26227169 http://valley.150m.com/