[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 http://valley.150m.com/
