source: trunk/src/uigetfile_uvmat.m @ 888

Last change on this file since 888 was 824, checked in by sommeria, 10 years ago

message

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