-
Notifications
You must be signed in to change notification settings - Fork 0
/
findTfFile.m
98 lines (75 loc) · 2.13 KB
/
findTfFile.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
function PathFileList = findTfFile(indir,stationDeploy)
if (size(stationDeploy,1) > 1 || size(stationDeploy,2) > 1) && iscell(stationDeploy)
stationDeploy = stationDeploy{2}; % skip site name if given
end
if iscell(stationDeploy)
stationDeploy = stationDeploy{:};
end
% select which tf corresponds to station/deployment
switch stationDeploy
% site DT
case {'DT01','DT02','DT03'}
tfnum = 589;
serie = '500_series';
case {'DT04','DT05','DT06','DT07','DT08'}
tfnum = 638;
serie = '600_series';
case 'DT09'
tfnum = 715;
serie = '700_series';
% site MC
case {'MC01','MC02','MC03','MC04','MC05'}
tfnum = 585;
serie = '500_series';
case 'MC06'
tfnum = 651;
serie = '600_series';
case 'MC07'
tfnum = 693;
serie = '600_series';
case 'MC09'
tfnum = 729;
serie = '700_series';
case 'MC10'
tfnum = 718;
serie = '700_series';
case 'MC11'
tfnum = 618;
serie = '600_series';
% site GC
case {'GC01','GC02','GC03','GC04'}
tfnum = 601;
serie = '600_series';
case 'GC05'
tfnum = 656;
serie = '600_series';
case {'GC06','GC07'}
tfnum = 694;
serie = '600_series';
case 'GC08'
tfnum = 719;
serie = '700_series';
case 'GC09'
tfnum = 718;
serie = '700_series';
% 'Antarc01EIE'
case {'Antarc01EIE'}
tfnum = 729;
serie = '700_series';
otherwise
tfnum = [];
disp('Transfer function folder not found or site matches')
end
pathSeries = fullfile(indir,serie);
folders = dir(pathSeries);
folders = ({folders.name})' ;
folders = folders(3:end);
foldNums = cell2mat(strtok(folders,'_')); % get part of number
tfnumFold = find(str2num(foldNums) == tfnum,1,'last');
pathTfFile = fullfile(pathSeries,folders{tfnumFold});
SearchFileMask = {'*.tf'};
SearchPathMask = {pathTfFile};
SearchRecursiv = 1;
[PathFileList, ~, ~] = ...
utFindFiles(SearchFileMask, SearchPathMask, SearchRecursiv);
PathFileList = cell2mat(PathFileList);