1. Deluxe Slide Show [Attn. Al]
- Posted by don cole <doncole at pacbell.net>
Nov 15, 2006
-
Last edited Nov 16, 2006
Hello Al,
I changed line 45 of the slide show to:
global function get_ext(sequence file)
integer last last=0
for x=1 to length(file) do
if equal(".",file[x..x]) then
last=x
end if
end for
return file[last+1..length(file)]
end function
Because some of the files like:
hello.000567.jpg
where being ignored.
Thought you might like to know.
Don Cole
2. Re: Deluxe Slide Show [Attn. Al]
don cole wrote:
>
> Hello Al,
>
> I changed line 45 of the slide show to:
> }}}
<eucode>
> global function get_ext(sequence file)
> integer last last=0
> for x=1 to length(file) do
> if equal(".",file[x..x]) then
> last=x
> end if
> end for
> return file[last+1..length(file)]
> end function
>
> </eucode>
{{{
>
> Because some of the files like:
>
> hello.000567.jpg
>
> where being ignored.
>
> Thought you might like to know.
>
>
> Don Cole
Hi Don,
Did i or someone else make a mistake there?
I would have done it like this if i was awake that night...
function SplitFileNameExt(filename)
sequence ext
ext=""
for k=length(filename) to 1 by -1 do
if filename[k]='.' then
ext=filename[k..length(filename)] --or k+1 instead of k
filename=filename[1..k-1]
exit
end if
end for
return {filename,ext}
end function
Take care,
Al
E boa sorte com sua programacao Euphoria!
My bumper sticker: "I brake for LED's"
From "Black Knight":
"I can live with losing the good fight,
but i can not live without fighting it".
"Well on second thought, maybe not."
