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
|
## Copyright (C) 2015-2025 Philip Nienhuis
##
## This program is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 3 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program. If not, see <http://www.gnu.org/licenses/>.
## -*- texinfo -*-
## @deftypefn {Function File} [ @var{range}, @var{wsh}, @var{xls}] = chkrange (@var{xls}, @var{range}, @var{wsh})
## Internal function. Checks if range is Named range & act accordingly
##
## @seealso{}
## @end deftypefn
## Author: Philip Nienhu01 <pr.nienhuis@users.sf.net>
## Created: 2015-09-29
function [datrange, wsh, xls] = chknmrange (xls, datrange, wsh)
idx = find (strcmpi (datrange, xls.nmranges(:, 1)));
if (! isempty (idx))
if (numel (idx) > 1)
## Multiple sheets with same Named range
if (isnumeric (wsh))
## No way to assess worksheet name here. Just take the first match
idx = idx(1);
printf ("multiple Range name matches for '%s', but no sheet *name* specified\n", ...
datrange);
warning ("Data read from first match = sheet '%s'\n", xls.nmranges{idx, 2});
elseif (ischar (wsh))
jdx = find (strncmpi (wsh, xls.nmranges(idx, 2), numel (wsh)));
if (isempty (jdx))
## No match with specified wsh => just pick the first
idx = idx(1);
warning ("Named Range '%s' not defined in sheet '%s'\n Sheet '%s' taken\n", ...
datrange, wsh, xls.nmranges{idx, 2});
else
## In case of multiple matches, just pick the first
idx = idx(jdx(1));
endif
else
error ("Illegal sheet name or index specified\n");
endif
endif
## Get range and -optionally- sheet it refers to
datrange = xls.nmranges{idx, 3};
if (! isempty (xls.nmranges{idx, 2}))
wsh = xls.nmranges{idx, 2};
endif
else
mtch = cell2mat (regexp (datrange, ...
'(^[A-Za-z]{1,3}[0-9]+){1}(:[A-Za-z]{1,3}[0-9]+$)?', "tokens"));
if (isempty (mtch) || ! strcmp ([mtch{:}], datrange))
error ("Unknown Named Range or unrecognizable cell range")
endif
endif
endfunction
|
