source: trunk/src/uigetfile_uvmat.m @ 1086

Last change on this file since 1086 was 1084, checked in by sommeria, 4 years ago

various updates

File size: 20.3 KB
RevLine 
[646]1%'uigetfile_uvmat': browser, and display of directories, faster than the Matlab fct uigetfile
[606]2%------------------------------------------------------------------------
[648]3% fileinput=uigetfile_uvmat(title,InputName,FilterExt)
[606]4%
5% OUTPUT:
[609]6% fileinput: detected file name, including path
[606]7%
8% INPUT:
[648]9% title: = displayed title,
10%        if title='status_display': display advancement of a series calculation,
11%        else uigetfile_uvmat used as browser.
12% InputName: initial file or directory selection for the browser
13% FilterExt: string to filter the file display:
14%          '*' (default) all files displayed
15%          'image': any image or movie
16%          '.ext': display only files with extension '.ext'
[651]17%          'uigetdir'; browser used to select a directory (like the matlab browser 'uigetdir')
[606]18
[809]19%=======================================================================
[1071]20% Copyright 2008-2020, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France
[809]21%   http://www.legi.grenoble-inp.fr
22%   Joel.Sommeria - Joel.Sommeria (A) legi.cnrs.fr
23%
24%     This file is part of the toolbox UVMAT.
25%
26%     UVMAT is free software; you can redistribute it and/or modify
27%     it under the terms of the GNU General Public License as published
28%     by the Free Software Foundation; either version 2 of the license,
29%     or (at your option) any later version.
30%
31%     UVMAT is distributed in the hope that it will be useful,
32%     but WITHOUT ANY WARRANTY; without even the implied warranty of
33%     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
34%     GNU General Public License (see LICENSE.txt) for more details.
35%=======================================================================
36
[641]37function fileinput=uigetfile_uvmat(title,InputName,FilterExt)
38if ~exist('FilterExt','var')
39    FilterExt='*';
40end
[609]41fileinput=''; %default file selection
[610]42if strcmp(title,'status_display')
43    option='status_display';
[609]44else
45    option='browser';
[606]46end
[615]47InputDir=pwd;%look in the current work directory if the input file does not exist
48InputFileName='';%default
49if ischar(InputName)
[1022]50    if isempty(regexp(InputName,'^http://'))%usual files
51        if exist(InputName,'dir')
52            InputDir=InputName;
53            InputFileName='';
54        elseif exist(InputName,'file')
55            [InputDir,InputFileName,Ext]=fileparts(InputName);
56            if isempty(InputFileName)% if InputName is already the root
57                InputFileName=InputDir;
58                if  ~isempty(strcmp (computer, {'PCWIN','PCWIN64'}))%case of Windows systems
59                    %                 InputDir=[InputDir '\'];% append '\' for a correct action of dir
60                    InputFileName=[InputFileName '\'];
61                end
[615]62            end
[1022]63            if isdir(InputName)
64                InputFileName=['+/' InputFileName Ext];
65            end
[610]66        end
[1022]67        if  ismember(computer,{'PCWIN','PCWIN64'})%case of Windows systems
68            InputDir=[InputDir '\'];% append '\' for a correct action of dir
[615]69        end
[1022]70    else
71        [InputDir,InputFileName,Ext]=fileparts(InputName);
[610]72    end
[609]73end
[1022]74
[1037]75hfig=findobj(allchild(0),'tag',option);%look for existing browser fig
76if isempty(hfig)% create the browser fig if it does not exist
[609]77    set(0,'Unit','points')
[606]78    ScreenSize=get(0,'ScreenSize');% get the size of the screen, to put the fig on the upper right
[609]79    Width=350;% fig width in points (1/72 inch)
80    Height=min(0.8*ScreenSize(4),500);
[651]81    Left=ScreenSize(3)- Width-40; %right edge close to the right, with margin=40
[609]82    Bottom=ScreenSize(4)-Height-40; %put fig at top right
83    hfig=figure('name',option,'tag',option,'MenuBar','none','NumberTitle','off','Unit','points','Position',[Left,Bottom,Width,Height],'UserData',InputDir);
[611]84    BackgroundColor=get(hfig,'Color');
[651]85    path_title=uicontrol('Style','text','Units','normalized', 'Position', [0.02 0.97 0.9 0.03],'BackgroundColor',BackgroundColor,'Tag','Path_title',...
86        'String','path:','FontUnits','points','FontSize',12,'FontWeight','bold','ForegroundColor','blue','HorizontalAlignment','left');
87    htitlebox=uicontrol('Style','edit','Units','normalized', 'Position', [0.02 0.89 0.96 0.08],'tag','titlebox','Max',2,'BackgroundColor',[1 1 1],'Callback',@titlebox_Callback,...
88        'String',InputDir,'FontUnits','points','FontSize',12,'FontWeight','bold','TooltipString','''titlebox'':current path');
89    uicontrol('Style','pushbutton','Tag','backward','Units','normalized','Position',[0.02 0.77 0.1 0.05],...
90        'String','<--','FontWeight','bold','FontUnits','points','FontSize',12,'Callback',@backward,'TooltipString','move backward');
[653]91    home_button=uicontrol('Style','pushbutton','Units','normalized', 'Position', [0.14 0.77 0.2 0.05],...
92        'String','Work dir','FontWeight','bold','FontUnits','points','FontSize',12,'Callback',@home_dir,'TooltipString','reach the current Matlab working directory');
93    uicontrol('Style','pushbutton','Tag','refresh','Units','normalized','Position', [0.36 0.77 0.2 0.05],'Callback',@refresh_GUI,...
94        'String','Refresh','FontWeight','bold','FontUnits','points','FontSize',12);
[1084]95    uicontrol('Style','popupmenu','Units','normalized', 'Position', [0.75 0.74 0.23 0.05],'tag','sort_option','Callback',@refresh_GUI,'Visible','on',...
[651]96        'String',{'sort name';'sort date'},'FontUnits','points','FontSize',12,'FontWeight','bold','TooltipString','''sort_option'': sort the files by names or dates');
97    uicontrol('Style','listbox','Units','normalized', 'Position',[0.02 0.08 0.96 0.66], 'Callback', @(src,event)list_Callback(option,FilterExt,src,event),'tag','list',...
98        'FontUnits','points','FontSize',12,'TooltipString','''list'':current list of directories, marked by +/, and files');
[653]99   
100    OK_button=uicontrol('Style','pushbutton','Units','normalized', 'Position', [0.58 0.005 0.2 0.07],'BackgroundColor',[0 1 0],...
[651]101        'String','OK','FontWeight','bold','FontUnits','points','FontSize',12,'Callback',@(src,event)OK_Callback(option,FilterExt,src,event));
[653]102    close_button=uicontrol('Style','pushbutton','Units','normalized', 'Position', [0.78 0.005 0.2 0.07],'Callback',@(src,event)close(option,src,event),...
103        'FontWeight','bold','FontUnits','points','FontSize',12);
[610]104    if strcmp(option,'status_display') %put a run advancement display
[635]105        set(hfig,'DeleteFcn',@(src,event)close(option,src,event))
[651]106        uicontrol('Style','frame','Units','normalized', 'Position', [0.02 0.85 0.9 0.04]);
107        uicontrol('Style','frame','Units','normalized', 'Position',[0.02 0.85 0.01 0.04],'BackgroundColor',[1 0 0],'tag','waitbar');
108        delete(home_button)
[653]109        set(OK_button,'String','Open')
110        set(close_button,'String','Close')
[651]111    elseif strcmp(FilterExt,'uigetdir') %pick a  directory
112        set(path_title,'String',title); %show the input title for path (directory)
[653]113        set(OK_button,'String','Select')
114        set(close_button,'String','Cancel')
[609]115    else  %put a title and additional pushbuttons
[651]116        uicontrol('Style','text','Units','normalized', 'Position', [0.02 0.74 0.6 0.03],'BackgroundColor',BackgroundColor,...
[609]117            'String',title,'FontUnits','points','FontSize',12,'FontWeight','bold','ForegroundColor','blue','HorizontalAlignment','left');
[651]118        uicontrol('Style','togglebutton','Units','normalized', 'Position', [0.75 0.78 0.23 0.04],'tag','check_date','Callback',@dates_Callback,...
119            'String','show dates','FontUnits','points','FontSize',12,'FontWeight','bold','TooltipString','''check_date'':press button to display dates');
120%         uicontrol('Style','text','Units','normalized', 'Position', [0.37 0.8 0.35 0.03],'BackgroundColor',BackgroundColor,...
121%             'String','sort: ','FontUnits','points','FontSize',12,'FontWeight','bold','HorizontalAlignment','right');
[653]122         set(OK_button,'String','Open')
123         set(close_button,'String','Cancel')   
[606]124    end
125    drawnow
126end
[651]127refresh_GUI(findobj(hfig,'Tag','refresh'),InputFileName,FilterExt)% refresh the list of content of the current dir
128if ~strcmp(option,'status_display')
[609]129    uiwait(hfig)
[620]130    if ishandle(hfig)
[651]131        htitlebox=findobj(hfig,'Tag','titlebox');
132        fileinput=get(htitlebox,'String');% retrieve the input file selection
133        delete(hfig)
[620]134    end
[609]135end
136
[615]137%------------------------------------------------------------------------   
138% --- launched by refreshing the display figure
[651]139%------------------------------------------------------------------------
[615]140function titlebox_Callback(hObject,event)
141refresh_GUI(hObject)
[651]142
143%------------------------------------------------------------------------   
144% --- launched by selecting OK (relevant for FilterExt='uigetdir')
[615]145%------------------------------------------------------------------------
[651]146function OK_Callback(option,filter_ext,hObject,event)
[714]147set(hObject,'backgroundColor',[1 1 0])% indicate button activation
[1037]148fig_struct=get(hObject,'parent');
149if isstruct(fig_struct);%recent Matlab
150    hfig=fig_struct.Number;
151else
152    hfig=fig_struct;
153end
[651]154htitlebox=findobj(hfig,'tag','titlebox');  % display the current dir name 
155DirName=get(htitlebox,'String');
156if ~strcmp(filter_ext,'uigetdir')% a file is expected as output, not a dir
157    hlist=findobj(hfig,'Tag','list');
158    list=get(hlist,'String');
159    index=get(hlist,'Value');
[664]160    if ~isempty(regexp(list{index},'^\+/'))
161        return % quit if a dir has been opened
162    end
163    %SelectName=regexprep(list{index},'^\+/','');% remove the +/ used to mark dir
164    SelectName=list{index};
[651]165    ind_dot=regexp(SelectName,'\s*\.\.\.');%remove what is beyond  '...'
166    if ~isempty(ind_dot)
167        SelectName=SelectName(1:ind_dot-1);
168    end
[1022]169    if isempty(regexp(DirName,'^http://'))% if the input dir is not a web site (begins by http://)
170        FullSelectName=fullfile(DirName,SelectName);
171        check_exist=exist(FullSelectName,'file');
172    else
173        FullSelectName=[DirName '/' SelectName];
174        check_exist=1;
175    end
176    if check_exist
[651]177        switch option
178            case 'browser'
179                set(htitlebox,'String',FullSelectName);
180                uiresume(hfig)
181            case 'status_display'
[784]182                FileInfo=get_file_info(FullSelectName);
[783]183                if strcmp(FileInfo.FileType,'txt')
[651]184                    edit(FullSelectName)
[783]185                elseif strcmp(FileInfo.FileType,'xml')
[651]186                    editxml(FullSelectName)
[783]187                elseif strcmp(FileInfo.FileType,'figure')
[651]188                    open(FullSelectName)
189                else
190                    uvmat(FullSelectName);
191                end
192        end
193    end
194end
[1031]195set(hObject,'backgroundColor',[0 1 0])% indicate end button activatio
[1050]196fig_struct=get(hObject,'parent');
[1084]197if isstruct(fig_struct)%recent Matlab
[1050]198uiresume(fig_struct.Number)
199else
200   uiresume(fig_struct)
201end
[651]202
[1022]203%------------------------------------------------------------------------
[610]204% --- launched by refreshing the display figure
[641]205function refresh_GUI(hObject,InputFileName,FilterExt)
[610]206%------------------------------------------------------------------------
207if ~exist('InputFileName','var')
208    InputFileName='';
209end
[648]210if ~exist('FilterExt','var')
211    FilterExt='*';
212end
[651]213if strcmp(FilterExt,'uigetdir')
214    FilterExt='*';
215end
[610]216hfig=get(hObject,'parent');
[613]217hlist=findobj(hfig,'tag','list');% find the list object
218set(hlist,'BackgroundColor',[1 1 0])
219drawnow
[611]220htitlebox=findobj(hfig,'tag','titlebox');
221DirName=get(htitlebox,'String');
[612]222hsort_option=findobj(hfig,'tag','sort_option');
[1022]223% use with GUI series
224if strcmp(get(hfig,'Tag'),'status_display') % use with GUI series
[610]225    hseries=findobj(allchild(0),'tag','series');
[635]226    hstatus=findobj(hseries,'tag','status');
[610]227    StatusData=get(hstatus,'UserData');
228    TimeStart=0;
229    if isfield(StatusData,'TimeStart')
230        TimeStart=StatusData.TimeStart;
[635]231    end
[610]232    hlist=findobj(hfig,'tag','list');
[1022]233    testrecent=0;
[610]234    NbOutputFile=[];
[635]235    if isfield(StatusData,'NbOutputFile')
236        NbOutputFile=StatusData.NbOutputFile;
237        NbOutputFile_str=num2str(NbOutputFile);
[610]238    end
[644]239    [ListFiles,NumFiles]=list_files(DirName,1,TimeStart);% list the directory content
[610]240   
[1022]241    % update the waitbar
[610]242    hwaitbar=findobj(hfig,'tag','waitbar');
243    if ~isempty(NbOutputFile)
244        BarPosition=get(hwaitbar,'Position');
[635]245        BarPosition(3)=0.9*max(0.01,NumFiles/NbOutputFile);% the bar width cannot be set to 0, set to 0.01 instead
[610]246        set(hwaitbar,'Position',BarPosition)
247    end
[1022]248else  %use as usual browser
[635]249    sort_option='name';
250    if strcmp(get(hsort_option,'Visible'),'on')&& isequal(get(hsort_option,'Value'),2)
251        sort_option='date';
252    end
253    hcheck_date=findobj(hfig,'tag','check_date');
[641]254    [ListFiles,NumFiles]=list_files(DirName,get(hcheck_date,'Value'),sort_option,FilterExt);% list the directory content
[610]255end
256
[635]257set(hlist,'String',ListFiles)
258Value=[];
259if ~isempty(InputFileName)
260    Value=find(strcmp(InputFileName,ListFiles));
261end
262if isempty(Value)
263    Value=1;
264end
265set(hlist,'Value',Value)
266set(hlist,'BackgroundColor',[0.7 0.7 0.7])
[651]267
[610]268%------------------------------------------------------------------------   
[609]269% --- launched by selecting an item on the file list
[651]270%------------------------------------------------------------------------
[612]271function dates_Callback(hObject,event)
[651]272
[612]273hfig=get(hObject,'parent');
274hsort_option=findobj(hfig,'tag','sort_option');
275if get(hObject,'Value')
276    set(hsort_option,'Visible','on')
277    set(hsort_option,'Value',2)
278else
279    set(hsort_option,'Visible','off')
280end
281refresh_GUI(hObject,[])
282
[651]283
[612]284%------------------------------------------------------------------------   
285% --- launched by selecting an item on the file list
[641]286function list_Callback(option,filter_ext,hObject,event)
[612]287%------------------------------------------------------------------------
[617]288hfig=get(hObject,'parent');%handle of the fig
289set(hObject,'BackgroundColor',[1 1 0])% paint list in yellow to indicate action
[615]290    drawnow
[606]291list=get(hObject,'String');
292index=get(hObject,'Value');
[617]293
[611]294htitlebox=findobj(hfig,'tag','titlebox');  % display the new dir name 
295DirName=get(htitlebox,'String');
[1022]296CheckSubDir=~isempty(regexp(list{index},'^\+'));
[609]297SelectName=regexprep(list{index},'^\+/','');% remove the +/ used to mark dir
[612]298ind_dot=regexp(SelectName,'\s*\.\.\.');%remove what is beyond  '...'
299if ~isempty(ind_dot)
300    SelectName=SelectName(1:ind_dot-1);
301end
[609]302if strcmp(SelectName,'..')% the upward dir option has been selected
[606]303    FullSelectName=fileparts(DirName);
304else
[1022]305    if isempty(regexp(DirName,'^http://'))% usual files
306        FullSelectName=fullfile(DirName,SelectName);
307    else
308        FullSelectName=[DirName '/' SelectName];
309    end
[606]310end
[1022]311if CheckSubDir%exist(FullSelectName,'dir')% a directory has been selected
[613]312    set(hObject,'BackgroundColor',[1 1 0])% paint list in yellow to indicate action
313    drawnow
[609]314    hbackward=findobj(hfig,'Tag','backward');
315    set(hbackward,'UserData',DirName); %store the current dir for future backward action
[612]316    hsort_option=findobj(hfig,'tag','sort_option');
317    sort_option='name';%default
318    if strcmp(get(hsort_option,'Visible'),'on')&& isequal(get(hsort_option,'Value'),2)
319        sort_option='date';
320    end
321    hcheck_date=findobj(hfig,'tag','check_date');
[613]322   
[641]323    ListFiles=list_files(FullSelectName,get(hcheck_date,'Value'),sort_option,filter_ext);% list the directory content
[606]324    set(hObject,'Value',1)
325    set(hObject,'String',ListFiles)
[613]326    set(hObject,'BackgroundColor',[0.7 0.7 0.7])
[611]327    set(htitlebox,'String',FullSelectName)% record the new dir name
[606]328end
[615]329set(hObject,'BackgroundColor',[0.7 0.7 0.7])% paint list in grey to indicate action end
[606]330
[610]331%-------------------------------------------------------------------------   
332% list the content of a directory
[641]333function [ListFiles,NumFiles]=list_files(DirName,check_date,sort_option,filter_ext)
[610]334%-------------------------------------------------------------------------
[1022]335ListStruct=dir_uvmat(DirName);% get structure of the current directory
[1084]336date_index=find(strcmp('datenum',fieldnames(ListStruct)));% find the index of the date displayin the list of fields
[635]337NumFiles=0; %default
[611]338if numel(ListStruct)<1  % case of empty dir
[610]339    ListFiles={};
340    return
341end
342ListCells=struct2cell(ListStruct);% transform dir struct to a cell arrray
343ListFiles=ListCells(1,:);%list of file names
[1030]344index_dir=find(strcmp('isdir',fieldnames(ListStruct)));
345check_dir=cell2mat(ListCells(index_dir,:));% =1 for directories, =0 for files
[1022]346% for ilist=1:numel(check_dir)
347%     if check_dir(ilist)
[610]348ListFiles(check_dir)=regexprep(ListFiles(check_dir),'^.+','+/$0');% put '+/' in front of dir name display
[1022]349%     end
350% end
[651]351if exist('filter_ext','var') && ~strcmp(filter_ext,'*') &&~strcmp(filter_ext,'uigetdir')
[648]352    if strcmp(filter_ext,'image')
353        check_keep=cellfun(@isimage,ListFiles) ;
354    elseif strcmp(filter_ext(1),'.')
355        ind_ext=regexp(ListFiles,[filter_ext '$']);%look for the input file extension
356        check_keep=~cellfun('isempty',ind_ext);
357    end
358    check_keep=check_keep|check_dir;
359    ListFiles=ListFiles(check_keep);
360    ListCells=ListCells(:,check_keep);
361    check_dir=check_dir(check_keep);
362end
[1084]363check_emptydate=cellfun('isempty',ListCells(date_index,:));% = 1 if datenum undefined
364ListCells(date_index,find(check_emptydate))={0}; %set to 0 the empty dates
365ListDates=cell2mat(ListCells(date_index,:));%list of numerical dates
[635]366if isnumeric(sort_option)
367    check_old=ListDates<sort_option-1;% -1 is put to account for a 1 s delay in the record of starting time
368    NumFiles=numel(find(~check_old&~check_dir));
369end
370if ~isempty(find(~check_dir))
371ListDates(check_dir)=max(ListDates(~check_dir))+1000; % we set the dir in front
372end
[641]373
[635]374if isnumeric(sort_option)|| strcmp(sort_option,'date')
[612]375    [tild,index_sort]=sort(ListDates,2,'descend');% sort files by chronological order, recent first, put the dir first in the list
376else
377    [tild,index_sort]=sort(check_dir,2,'descend');% put the dir first in the list
378end
379ListFiles=ListFiles(index_sort);% list of names sorted by alaphabetical order and dir and file
[610]380cell_remove=regexp(ListFiles,'^(-|\.|\+/\.)');% detect strings beginning by '-' ,'.' or '+/.'(dir beginning by . )
[612]381check_keep=cellfun('isempty', cell_remove);
[610]382ListFiles=[{'+/..'} ListFiles(check_keep)];
[612]383if check_date
[1084]384    ListDateString=ListCells(3,:);%list of file dates
[635]385    if isnumeric(sort_option)
386        ListDateString(check_old)={'--OLD--'};
387    end
388    ListDateString(check_dir)={''};
389    ListDateString=ListDateString(index_sort);% sort the corresponding dates
390    ListDateString=[{''} ListDateString(check_keep)];
391    ListFiles=[ListFiles; ListDateString];
392    ListFiles=cell2tab(ListFiles','...');
[612]393end
[610]394
[606]395%------------------------------------------------------------------------   
396% --- launched by selecting home
397function home_dir(hObject,event)
[609]398%------------------------------------------------------------------------
[606]399DirName=pwd;
400hfig=get(hObject,'parent');
[613]401hlist=findobj(hfig,'tag','list');% find the list object
402set(hlist,'BackgroundColor',[1 1 0])
403drawnow
[612]404sort_option='name';%default
405hsort_option=findobj(hfig,'tag','sort_option');
406if strcmp(get(hsort_option,'Visible'),'on')&& isequal(get(hsort_option,'Value'),2)
407    sort_option='date';
408end
409hcheck_date=findobj(hfig,'tag','check_date');
410ListFiles=list_files(DirName,get(hcheck_date,'Value'),sort_option);% list the directory content
[611]411htitlebox=findobj(hfig,'Tag','titlebox');
412set(htitlebox,'String',DirName)% record the new dir name
[613]413set(hlist,'Value',1)
[606]414set(hlist,'String',ListFiles)
[613]415set(hlist,'BackgroundColor',[0.7 0.7 0.7])
[606]416%------------------------------------------------------------------------
417
418%------------------------------------------------------------------------   
[609]419% --- launched by pressing the backward (<--) button
420function backward(hObject,event)
421%------------------------------------------------------------------------
422PrevDir=get(hObject,'UserData');
423if ~isempty(PrevDir)
424hfig=get(hObject,'parent');
425htitlebox=findobj(hfig,'tag','titlebox');  % display the new dir name
426set(htitlebox,'String',PrevDir)
427refresh_GUI(findobj(hfig,'Tag','refresh'))
428end
429
[606]430%-------------------------------------------------------------------------   
[641]431% --- launched by deleting the status figure (only used in mode series status')
432%-------------------------------------------------------------------------
[609]433function close(option,hObject, eventdata)
[641]434
[610]435if strcmp(option,'status_display')
[635]436    hseries=findobj(allchild(0),'Tag','series');
437    hstatus=findobj(hseries,'Tag','status');
438    set(hstatus,'value',0) %reset the status uicontrol in the GUI series
439    set(hstatus,'BackgroundColor',[0 1 0])
[609]440end
[606]441delete(gcbf)
442
[641]443%-------------------------------------------------------------------------
444% --- check whether a file is has an image name extension
445%-------------------------------------------------------------------------
446function CheckImage=isimage(filename)
447
448[pp,name,ext]=fileparts(filename);
[809]449CheckImage=~isempty(ext)&&~strcmp(ext,'.')&&~isempty(imformats(regexprep(ext,'^.','')));
Note: See TracBrowser for help on using the repository browser.