OpenEuphoria

RE: [WIN] recursion? (get two files via open file dialog)

• Posted by Derek Parnell <ddparnell at bigpond.com> May 16, 2002
• 396 views

Dan Moyer wrote:
> Arrgh!  Not sure where/how my code got mangled, but here's what it 
> SHOULD
> have been.  My question is, is there anything wrong with this that I 
> don't
> see?  It works, but I've never deliberately used recursion before.
> 
> Dan Moyer
> 
> -- CODE BEGINS
> 
> --  Get2files.exw
> --  gets just TWO files via open files dialog
> 
> --  by Dan Moyer   May 16, 2002
> --  based on an example by Derek Parnell
> 
> --  code generated by Win32Lib IDE v0.10.6
> --  then hand modified
> 
> include Win32lib.ew
> without warning
> 
> 10, 16, 90, 30, 0 )
> global constant List3 = create( List, "List3", Window1, 10, 104, 396, 
> 160,
> 0 )
> global constant AtextBox = create( LText, "", Window1, 10, 68, 400, 24, 
> 0 )
> 
> 
>  files = {}
>  dirName = {}
>  posSlash = 0
> 
>   files =
> penFileName(  
>                            Window1,                    -- parent window 
>                            "",                         -- no default name 
>                            { "Dialog Flags", {OFN_ALLOWMULTISELECT},
>                            "Text File", "*.TXT",       -- text files    
>                            "All Files", "*.*" } )      -- everything else
> 
>   if length(files) = 0 then
>      return  -- no file(s) selected, so re-ask until either select or close
>   end if
> 
>   if not sequence( files[1]) then  -- just selected ONE file:
>        dirName = files  -- at this point has full pathname
>  
>       posSlash = 0
>        for p = length(dirName) to 1 by -1 do
>            if equal('\\', dirName[p]) then
>               posSlash = p
>               exit
>            end if
>        end for
> 
>        -- separate the dirname from the filename:
>        files = dirName[posSlash+1..length(dirName)] -- the file name
>        dirName = dirName[1..posSlash-1]             -- the dirname
> 
>   else  -- must have selected more than one file:
> 
>        dirName = files[1]                      -- get directory name
>        dirName = dirName[1..length(dirName)-1] -- remove trailing "\"
>        files = files[2 .. length(files)]       -- get all file names
> 
>        -- but only allow TWO to be selected:
>        if length(files) > 2 then
>           setText(AtextBox, "")
>           eraseItems(List3)
>           dirName = {}
>           files = {}
>           setText(Window1, "Select no more than TWO Files")
>           GetFilesButton_onClick ()  -- RECURSION??
>           return
>        end if
>   end if
> 
>   setText(Window1, "Gets one or TWO files")
>   -- now use the info:
>   setText(AtextBox, dirName)
>   eraseItems(List3)
>   addItem(List3, files) -- ONE addItem adds ALL items in "files"!
> 
> end procedure
> 
> onClick[GetFilesButton] = routine_id("GetFilesButton_onClick")
> 
> 
> WinMain( Window1, Normal )
> 
> 
> ----- Original Message -----
> From: "Dan Moyer" <DANIELMOYER at prodigy.net>
> To: "EUforum" <EUforum at topica.com>
> Sent: Thursday, May 16, 2002 6:07 PM
> Subject: [WIN] recursion? (get two files via open file dialog)
> 
<snip>

it might be better to use a WHILE loop rather than recursion, in order 
to reduce potenial memory usage.

Something like...

   files = {}
   while length(files) != 2 do
      Get User Selections
      Grab files from user selections.
      if more than 2 files chosen then
           Message "Please select only two files."
      elsif less than 2 files chosen then
           Message "You must choose two files."
      end if
   end while

--------
Derek