Changeset 372 for trunk/src/find_file_series.m

Timestamp:

Jan 16, 2012, 12:28:26 AM (13 years ago)

Author:

sommeria

Message:

many bugs repaired.

File:

• trunk/src/find_file_series.m (modified) (3 diffs)

trunk/src/find_file_series.m

@@ -37 +37 @@
 %AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
 
-function [RootFile,i1_series,i2_series,j1_series,j2_series,NomType,FileType,Object]=find_file_series(RootPath,fileinput)
+function [RootFile,i1_series,i2_series,j1_series,j2_series,NomType,FileType,Object]=find_file_series(RootPath,fileinput,option)
 %------------------------------------------------------------------------
-
+if ~exist('option','var')
+    option='all';
+end
 %% get input root name and nomenclature type
 [tild,tild,RootFile,tild,i2_input,j1_input,j2_input,FileExt,NomType]=fileparts_uvmat(fileinput);
@@ -103 +105 @@
 end
 
-if strcmp(NomType,'')||strcmp(NomType,'*')
+if strcmp(NomType,'')||strcmp(NomType,'*')||strcmp(option,'filetype')
     if exist(fullfileinput,'file')
         [tild,RootFile]=fileparts(fileinput);% case of constant name (no indexing)
@@ -251 +253 @@
         NomType='';
     else
-        [tild,tild,tild,tild,tild,tild,tild,tild,NomType]=fileparts_uvmat(dirpair(ifile_min).name);
-    end
+        [tild,tild,tild,tild,tild,tild,tild,tild,NomType]=fileparts_uvmat(dirpair(ifile_min).name);% update the representation of indices (number of 0 before the number)
+    end
+end
+
+%% update the file type if the input file does not exist (pb of 0001)
+if strcmp(option,'filetype')
+    return
+elseif isempty(FileType)
+    [tild,tild, tild,tild,tild,tild,FileType,Object]=find_file_series(RootPath,dirpair(ifile_min).name,'filetype');
 end