Changeset 648 for trunk/src/series.m

Timestamp:

Jun 9, 2013, 10:31:58 PM (11 years ago)

Author:

sommeria

Message:

get_field updated, several bugs corrected,open_uvmat suppressd

File:

• trunk/src/series.m (modified) (6 diffs)

trunk/src/series.m

@@ -500 +500 @@
 end
 
+%% detect root name, nomenclature and indices in the input file name:
+[FilePath,FileName,FileExt]=fileparts(fileinput);
+% detect the file type, get the movie object if relevant, and look for the corresponding file series:
+% the root name and indices may be corrected by including the first index i1 if a corresponding xml file exists
+[RootPath,SubDir,RootFile,i1_series,i2_series,j1_series,j2_series,NomType,FileType,FileInfo,MovieObject,i1,i2,j1,j2]=find_file_series(FilePath,[FileName FileExt]);
+if isempty(RootFile)&&isempty(i1_series)
+    errormsg='no input file in the series';
+    return
+end
+if strcmp(FileType,'txt')
+    edit(fileinput)
+    return
+elseif strcmp(FileType,'xml')
+    editxml(fileinput)
+     return
+elseif strcmp(FileType,'figure')
+    open(fileinput)
+     return
+end
+
 %% enable other menus and uicontrols
 set(handles.MenuOpen_insert,'Enable','on')
@@ -512 +532 @@
 drawnow
 
-%% detect root name, nomenclature and indices in the input file name:
-[FilePath,FileName,FileExt]=fileparts(fileinput);
-% detect the file type, get the movie object if relevant, and look for the corresponding file series:
-% the root name and indices may be corrected by including the first index i1 if a corresponding xml file exists
-[RootPath,SubDir,RootFile,i1_series,i2_series,j1_series,j2_series,NomType,FileType,FileInfo,MovieObject,i1,i2,j1,j2]=find_file_series(FilePath,[FileName FileExt]);
-if isempty(RootFile)&&isempty(i1_series)
-    errormsg='no input file in the series';
-    return
-end
+
 
 %% fill the list of file series
@@ -1845 +1857 @@
 end
 set(handles.ActionName,'BackgroundColor',[1 1 0])
-huigetfile=findobj(allchild(0),'tag','status_display')
+huigetfile=findobj(allchild(0),'tag','status_display');
 if ~isempty(huigetfile)
     delete(huigetfile)
@@ -2598 +2610 @@
 set(handles.PairString,'ColumnWidth',{Pos(3)-5})
 
-
+%------------------------------------------------------------------------
 % --- Executes on button press in status.
+%------------------------------------------------------------------------
 function status_Callback(hObject, eventdata, handles)
 
@@ -2628 +2641 @@
 %------------------------------------------------------------------------   
 % launched by selecting a file on the list
+%------------------------------------------------------------------------
 function view_file(hObject, eventdata)
-%------------------------------------------------------------------------
+
 list=get(hObject,'String');
 index=get(hObject,'Value');
@@ -2669 +2683 @@
 %------------------------------------------------------------------------   
 % launched by refreshing the status figure
+%------------------------------------------------------------------------
 function refresh_GUI(hfig)
-%------------------------------------------------------------------------
+
 htitlebox=findobj(hfig,'tag','titlebox');
 hlist=findobj(hfig,'tag','list');