OpenEuphoria

Re: Deluxe Slide Show [Attn. Al]

• Posted by Al Getz <Xaxo at aol.com> Nov 16, 2006
• 483 views

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."