[REBOL] Re: How to change a file extension ?

From: joel:neely:fedex at: 14-Jan-2002 9:50

Hi, Patrick,

If you like shuffling cards, you'll love this solution:

Patrick Philipot wrote:
> How to change a file extension ?
>
> Example:
> Changing from %program.r to %program.bak
>
> Pitfall:
> It cannot be done with a simple find and replace. Find and replace
> will fail in some case like the following:
>
> /d/rebol/prog.r/program.r -> /d/rebol/prog.bak/program.r
> /d/rebol/prog.r/program.r -> /d/rebol/prog.bak/program.bak
>

    change-tail: func [s [string!] t [string!] r [string!]] [

        if (head reverse copy t)             copy/part head reverse copy s length? t [
            s: head reverse head
                change/part
                    head reverse s
                    head reverse copy r
                    length? t
        ]
        s
    ]

>> change-tail "/d/rebol/prog.r/program.r" ".r" ".bak"
== "/d/rebol/prog.r/program.bak"

Just for fun!!!

-jn-

1 · 2 · 3 · 4 · 5 · 6 · 7 · [8] · 9 · See whole thread