source: trunk/src/fileparts_uvmat.m @ 334

Last change on this file since 334 was 334, checked in by sommeria, 13 years ago

bugs corrected in fileparts_uvmat and find_file_series
name2dispaly replaced by fileparts_uvmat in uvmat, but not in other functions
bug corrected in plot_field, introduction of FileType? in read_field

File size: 8.5 KB
Line 
1%'fileparts_uvmat': Splits a file name and recognize file naming convention
2%--------------------------------------------------------------------
3%[RootPath,SubDir,RootFile,i1,i2,j1,j2,Ext,NomType]=fileparts_uvmat(FileInput)
4%
5%OUTPUT:
6%RootPath: path to the base file
7%SubDir: name of the SubDirectory for netcdf files (NomTypes with index pairs 1-2 or ab )
8%RootFile: FileName without appendix
9%i1: first number i
10%i2: second number i (only for .nc files)
11%j1: first number j
12%j2: second number j (only for .nc files)
13%FileExt: file Extension
14%NomType: char chain characterizing the file nomenclature: with values
15%   NomType='': constant name [filebase FileExt] (default output if 'NomType' is undefined)
16%   NomType='*':constant name for a file representing a series (e.g. avi movie)
17%   NomType='1','01',or '001'...': series of files with a single index i without separator(e.g. 'aa045.png').
18%   NomType='1a','1A','01a','01A','1_a','01_A',... with a numerical index and an index letter(e.g.'aa45b.png') (lower or upper case)
19%   NomType='1_1','01_1',...: matrix of files with two indices i and j separated by '_'(e.g. 'aa45_2.png')
20%   NomType='1-1': from pairs from a single index (e.g. 'aa_45-47.nc')
21%   NomType='1_1-2': pairs of j indices (e.g. 'aa_45_2-3.nc')
22%   NomType='1-2_1': pairs of i indices (e.g. 'aa_45-46_2.nc')
23%   NomType='1_ab','01_ab','01ab'..., from pairs of '#' images (e.g.'aa045bc.nc'), FileExt='.nc'
24%SubDir: name of the SubDirectory for netcdf files
25%
26%INPUT:
27%FileInput: complete name of the file, including path
28
29function [RootPath,SubDir,RootFile,i1,i2,j1,j2,FileExt,NomType]=fileparts_uvmat(FileInput)
30RootPath='';
31SubDir='';
32RootFile='';
33i1=[];
34i2=[];
35j1=[];
36j2=[];
37FileExt='';
38NomType='';
39
40
41
42%% display help and test function in the absence of input arument
43if ~exist('FileInput','var')
44    help fileparts_uvmat;
45    test();
46    return
47end
48
49[RootPath,FileName,FileExt]=fileparts(FileInput);
50RootFile=FileName;%default
51% switch FileExt
52%     case '.avi'
53%         NomType='*';
54%         return
55%     case {'.tif','.tiff'}
56%         if exist(FileInput,'file')
57%             info=iminfo(FileInput);
58%             if length(info)>1
59%                 NomType='*';
60%                 return
61%             end
62%         end
63% end
64
65% \D not a digit
66% \d digit
67
68
69%% recursive test on FileName starting from the end
70% case of pure number
71if ~isnan(str2double(FileName))
72    RootFile='';
73    i1=str2double(FileName);
74    return
75end
76% test whether FileName ends with a number or not
77r=regexp(FileName,'.*\D(?<num1>\d+)$','names');% \D = not a digit, \d =digit
78
79if ~isempty(r)% FileName end matches num1
80    num1=r.num1;
81    r=regexp(FileName,['.*\D(?<num2>\d+)(?<delim1>[-_])' num1 '$'],'names');
82    if ~isempty(r)% FileName end matches num2+delim1+num1
83        delim1=r.delim1;
84        num2=r.num2;
85        r=regexp(FileName,['.*\D(?<num3>\d+)(?<delim2>[-_])' num2 delim1 num1 '$'],'names');
86        if ~isempty(r) % FileName end matches delim2 num2 delim1 num1
87            delim2=r.delim2;
88            num3=r.num3;
89            switch delim1
90                case '_'
91                    j1=str2double(num1);
92                    switch delim2
93                        case '-'
94                            i1=str2double(num3);
95                            i2=str2double(num2);
96                    end
97                case '-'
98                    j1=str2double(num2);
99                    j2=str2double(num1);
100                    switch delim2
101                        case '_'
102                            i1=str2double(num3);
103                    end
104            end
105            NomType=[get_type(num3) delim2 get_type(num2) delim1 get_type(num1)];
106            RootFile=regexprep(FileName,[num3 delim2 num2 delim1 num1],'');
107        else
108            switch delim1
109                case '_'
110                    i1=str2double(num2);
111                    j1=str2double(num1);
112                case '-'
113                    i1=str2double(num2);
114                    i2=str2double(num1);
115            end
116            NomType=[get_type(num2) delim1 get_type(num1)];
117            RootFile=regexprep(FileName,[num2 delim1 num1],'');
118        end
119        NomType=regexprep(NomType,'-1','-2'); %set 1-2 instead of 1-1
120    else% only one number at the end
121        i1=str2double(num1);
122        NomType=get_type(num1);
123        RootFile=regexprep(FileName,num1,'');
124    end
125else% FileName ends with a letter
126    %r=regexp(FileName,'.*[^a^b^A^B](?<end_string>ab|AB|[abAB])\>','names');
127    NomType='';
128    r=regexp(RootFile,'\D(?<num1>\d+)(?<end_string>[a-z]|[A-Z]|[a-z][a-z]|[A-Z][A-Z])$','names');
129    if ~isempty(r)
130        NomType=get_type(r.end_string);
131        RootFile=regexprep(RootFile,[r.num1 r.end_string '$'],'');
132    else % case with separator '_'
133        r=regexp(RootFile,'\D(?<num1>\d+)_(?<end_string>[a-z]|[A-Z]|[a-z][a-z]|[A-Z][A-Z])$','names');
134        if ~isempty(r)
135            NomType=['_' get_type(r.end_string)];
136            RootFile=regexprep(RootFile,[r.num1 '_' r.end_string '$'],'');
137        end
138    end
139    if ~isempty(NomType)
140        [j1,j2]=get_value(r.end_string);
141        i1=str2double(r.num1);
142        NomType=[get_type(r.num1) NomType];
143        r=regexp(RootPath,'\<(?<newrootpath>.+)(\\|/)(?<subdir>[^\\^/]+)(\\|/)*\>','names');
144        if ~isempty(r)
145            SubDir=r.subdir;
146            RootPath=r.newrootpath;
147        end
148    end
149end
150
151%% suppress '_' at the end of RootFile, put it on NomType
152if strcmp(RootFile(end),'_')
153    RootFile(end)=[];
154    NomType=['_' NomType];
155end
156
157% if ~isempty(regexp(NomType,'-|ab|AB'))
158%     r=regexp(RootPath,'\<(?<newrootpath>.+)(\\|/)(?<subdir>[^\\^/]+)(\\|/)*\>','names');
159%     if ~isempty(r)
160%     SubDir=r.subdir;
161%     RootPath=r.newrootpath;
162%     end
163% end
164
165
166
167
168function type=get_type(s)
169% returns the type of a label string:
170%   for numbers, whether filled with 0 or not.
171type='';%default
172
173if ~isempty(regexp(s,'\<\d+\>','ONCE'))
174    type=num2str(1,['%0' num2str(length(s)) 'd']);
175else
176    code=double(s); % ascii code of the input string
177    if code >= 65 & code <= 90 % test on ascii code for capital letters
178        if length(s)==1
179            type='A';
180        elseif length(s)==2
181            type='AB';
182        end
183    elseif  code >= 97 & code <= 122 % test on ascii code for small letters
184        if length(s)==1
185            type='a';
186        elseif length(s)==2
187            type='ab';
188        end
189    end
190end
191
192
193
194function [j1,j2]=get_value(s)
195% returns the value of a label string:
196%   for numbers, whether filled with 0 or not.
197%   for letters, either a, A or ab, AB.
198j1=[];
199j2=[];
200code=double(s); % ascii code of the input string
201if code >= 65 & code <= 90 % test on ascii code for capital letters
202    index=double(s)-64; %change capital letters to corresponding number in the alphabet
203elseif code >= 97 & code <= 122 % test on ascii code for small letters
204    index=double(s)-96; %change small letters to corresponding number in the alphabet
205else
206    index=str2num(s);
207end
208if ~isempty(index)
209    j1=index(1);
210    if length(index)==2
211        j2=index(2);
212    end
213end
214
215
216function test(name)
217fprintf([...
218    '######################################################\n'...
219    '               Test for fileparts_uvmat                  \n'...
220    '######################################################\n'...
221    ]);
222
223if exist('name','var')
224    FileName_list={name};
225else
226    FileName_list={...
227        'Image1a.png'...
228        'toto'...
229        'B011_1.png'...
230        'B001.png'...
231        'B55a.tif'...
232        'B002B.tiff'...
233        'B_001.png'...
234        'B_3331AB.png'...
235        'aa45_2.png'...
236        'B005.png'...
237        'Image_3.jpg'...
238        'Image_3-4.jpg'...
239        'Image_3-4_2.jpg'...
240        'Image_5_3-4.jpg'...
241        'Image_3_ab.jpg'...
242        'Image005AD.jpg'...
243        'Image_3_ac.jpg'...
244        'Image_3a-b.jpg'...
245        'Image3_a.jpg'...
246        'movie57.avi'...
247        };
248end
249
250for FileName=FileName_list
251%     [RootPath,RootFile,i1,i2,str_a,str_b,FileExt,NomType,SubDir]=name2display(FileName{1});
252    [~,SubDir,RootFile,i1,i2,j1,j2,~,NomType]=...
253        fileparts_uvmat(FileName{1});
254    fprintf([...
255        'File name  : ' FileName{1}  '\n'...
256        '  NomType  : '    NomType '\n'...
257        '  RootFile : '    RootFile '\n'...
258        '  i1 / i2     : '     num2str(i1) ' / ' num2str(i2) '\n'...
259        '  j1 / j2      : '    num2str(j1) ' / ' num2str(j2) '\n'...
260        ]);
261end
262
263
Note: See TracBrowser for help on using the repository browser.