source: trunk/src/fullfile_uvmat.m

Last change on this file was 1157, checked in by sommeria, 4 months ago

filter_time added

File size: 7.2 KB
Line 
1%'fullfile_uvmat': creates a file name from a root name and indices.
2%------------------------------------------------------------------------
3% filename=fullfile_uvmat(RootPath,SubDir,RootFile,FileExt,NomType,i1,i2,j1,j2)
4%------------------------------------------------------------------------           
5% In the absence of input argument this function tests itself on a set of
6% examples
7%------------------------------------------------------------------------
8% OUTPUT:
9%  filename: string representing the full file name (including path)
10%
11% INPUT:
12%  RootPath: path to the base file
13%  SubDir: name of the SubDirectory for netcdf files (relevant for NomTypes with index pairs 1-2 or ab )
14%  RootFile: FileName without appendix
15%  FileExt: file extension
16%  NomType: char chain characterizing the file nomenclature, made as
17%   nom_type='': constant name [filebase ext] (default output if 'nom_type' is undefined)
18%   nom_type='*':constant name for a file representing a series (e.g. avi movie)
19%   nom_type='1','01',or '001'...': series of files with a single index i without separator(e.g. 'aa045.png').
20%   nom_type='_1','_01','_001'...':  series of files with a single index i with separator '_'(e.g. 'aa_045.png').
21%   nom_type='1a','1A','01a','01A',... with a numerical index and an index letter(e.g.'aa45b.png') (lower or upper case)
22%   nom_type='_1a','_1A','_01a','_01A',...: idem, with a separator '_' before the index
23%   nom_type='_1_1','_01_1',...: matrix of files with two indices i and j separated by '_'(e.g. 'aa_45_2.png')
24%   nom_type='_1-2': from pairs from a single index (e.g. 'aa_45-47.nc')
25%   nom_type='_1_1-2': pairs of j indices (e.g. 'aa_45_2-3.nc')
26%   nom_type='_1-2_1': pairs of i indices (e.g. 'aa_45-46_2.nc')
27%   nom_type='_1_ab','1_ab','01_ab'..., from pairs of '#' images
28%   (e.g.'aa045bc.nc'), ext='.nc'
29%  i1: first number i
30%  i2: second number i (only for .nc files)
31%  j1: first number j
32%  j2: second number j (only for .nc files)
33%
34% RELATED FUNCTIONS:
35%  fileparts_uvmat, num2stra, stra2num.
36
37%=======================================================================
38% Copyright 2008-2024, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France
39%   http://www.legi.grenoble-inp.fr
40%   Joel.Sommeria - Joel.Sommeria (A) univ-grenoble-alpes.fr
41%
42%     This file is part of the toolbox UVMAT.
43%
44%     UVMAT is free software; you can redistribute it and/or modify
45%     it under the terms of the GNU General Public License as published
46%     by the Free Software Foundation; either version 2 of the license,
47%     or (at your option) any later version.
48%
49%     UVMAT is distributed in the hope that it will be useful,
50%     but WITHOUT ANY WARRANTY; without even the implied warranty of
51%     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
52%     GNU General Public License (see LICENSE.txt) for more details.
53%=======================================================================
54
55function filename=fullfile_uvmat(RootPath,SubDir,RootFile,FileExt,NomType,i1,i2,j1,j2)
56   
57%% display help and test function in the absence of input argument
58if ~exist('RootPath','var')
59    help fullfile_uvmat;
60    test;
61    return
62end
63
64%% default input
65if iscell(NomType)
66NomType=NomType{1}
67end
68if ~exist('j2','var')
69    j2=[];
70end
71if ~exist('j1','var')
72    j1=[];
73end
74if isequal(j1,j2)
75    j2=[];% suppress the secodn index if equal to the first
76end
77if ~exist('i2','var')
78    i2=[];
79end
80if isequal(i1,i2)
81    i2=[];% suppress the second index if equal to the first
82end
83if ~exist('i1','var')
84    i1=1;
85end
86
87%% default output
88sep1='';
89i1_str='';
90sep2='';
91i2_str='';
92sep3='';
93j1_str='';
94sep4='';
95j2_str='';
96
97%% look for NomType with pairs (separator '-' or terminasion ab or AB
98% if strcmp(NomType,'level')% organisation with a sub-folder for the files of each index i
99%     filename=fullfile(RootPath,SubDir,['level' num2str(j1)],[RootFile num2str(i1) FileExt]);
100% else
101    if ~isempty(regexp(NomType,'^_\d'))
102        sep1='_';
103        NomType(1)=[];%remove '_' from the beginning of NomType
104    end
105    r=regexp(NomType,'^(?<num1>\d+)','names');%look for a number at the beginning of NomType
106    if ~isempty(r)
107        i1_str=num2str(i1,['%0' num2str(length(r.num1)) 'd']);
108        NomType=regexprep(NomType,['^' r.num1],'');
109        r=regexp(NomType,'^-(?<num2>\d+)','names');%look for a pair i1-i2
110        if ~isempty(r)
111            if ~isempty(i2)
112                sep2='-';
113                i2_str=num2str(i2,['%0' num2str(length(r.num2)) 'd']);
114            end
115            NomType=regexprep(NomType,['^-' r.num2],'');
116        end
117        if ~isempty(regexp(NomType,'^_'));
118            sep3='_';
119            NomType(1)=[];%remove '_' from the beginning of NomType
120        end
121        if ~isempty(regexp(NomType,'^[a|A]'));
122            j1_str=num2stra(j1,NomType);
123            if ~isempty(regexp(NomType,'[b|B]$'))&& ~isempty(j2);
124                j2_str=num2stra(j2,NomType);
125            end
126        else
127            r=regexp(NomType,'^(?<num3>\d+)','names');
128            if ~isempty(r)
129                j1_str=num2str(j1,['%0' num2str(length(r.num3)) 'd']);
130                NomType=regexprep(NomType,['^' r.num3],'');
131            end
132            if ~isempty(j2)
133                r=regexp(NomType,'-(?<num4>\d+)','names');
134                if ~isempty(r)
135                    sep4='-';
136                    j2_str=num2str(j2,['%0' num2str(length(r.num4)) 'd']);
137                end
138            end
139        end
140    end
141    if isempty(regexp(RootPath,'^http://'))
142    filename=fullfile(RootPath,SubDir,RootFile);
143    else
144        filename=[RootPath '/' SubDir '/' RootFile];
145    end
146    filename=[filename sep1 i1_str sep2 i2_str sep3 j1_str sep4 j2_str];
147    filename=[regexprep(filename,'_$','') FileExt];%suppress possible '_' at the end of the string and add the extension
148% end
149
150function test
151fprintf([...
152    '######################################################\n'...
153    '               Test for fullfile_uvmat                  \n'...
154    '######################################################\n'...
155    ]);
156
157    FileName_list={...
158        'Image1a.png'...
159        'toto'...
160        'B011_1.png'...
161        'B001.png'...
162        'B55a.tif'...
163        'B002B.tiff'...
164        'B_001.png'...
165        'B_3331AB.png'...
166        'aa45_2.png'...
167        'B005.png'...
168        'Image_3.jpg'...
169        'Image_3-4.jpg'...
170        'Image_3-4_2.jpg'...
171        'Image_5_3-4.jpg'...
172        'Image_3_ab.jpg'...
173        'Image005AD.jpg'...
174        'Image_3_ac.jpg'...
175        'Image_3a-b.jpg'...
176        'Image3_a.jpg'...
177        'movie57.avi'...
178        'merged_20_12_1.png'...
179        };
180size(FileName_list)
181for ilist=1:numel(FileName_list)
182    [RootPath,SubDir,RootFile,i1,i2,j1,j2,FileExt,NomType]=...
183        fileparts_uvmat(FileName_list{1,ilist});
184    FileName_list{2,ilist}=['NomType=' NomType];
185    FileName_list{3,ilist}=['i+1,j+1->' fullfile_uvmat(RootPath,SubDir,RootFile,FileExt,NomType,i1+1,i2+1,j1+1,j2+1)];
186%     fprintf(['File name  : ' FileName{1} '\n FileName_rebuilt  : '    FileName_rebuilt '\n'])
187end
188  Tabchar=cell2tab(FileName_list',' ');
189  display(Tabchar)
190 % fprintf(Tabchar);
191
192
193
Note: See TracBrowser for help on using the repository browser.