about summary refs log tree commit diff
path: root/sourcecodes/bnt-master/KPMtools/strmatch_multi.m
blob: c29f326d099c7a946beda476521e36dc1ed953f7 (plain)
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
function [posns] = strmatch_multi(keys, strs)
% STRMATCH_MULTI Find where each key occurs in list of strings.
% [pos] = strmatch_multi(key, strs) where key is a string and strs is a cell array of strings
% works like the built-in command sequence pos = strmatch(key, strs, 'exact'),
% except that pos is the first occurrence of key in strs; if there is no occurence, pos is 0.
%
% [posns] = strmatch_multi(keys, strs), where keys is a cell array of strings, 
% matches each element of keys. It loops over whichever is shorter, keys or strs.

if ~iscell(keys), keys = {keys}; end
nkeys = length(keys);
posns = zeros(1, nkeys);
if length(keys) < length(strs)
  for i=1:nkeys
    %pos = strmatch(keys{i}, strs, 'exact');
    ndx = strcmp(keys{i}, strs); % faster
    pos = find(ndx);
    if ~isempty(pos)
      posns(i) = pos(1);
    end
  end
else
  for s=1:length(strs)
    %ndx = strmatch(strs{s}, keys, 'exact');
    ndx = strcmp(strs{s}, keys);
    ndx = find(ndx);
    posns(ndx) = s;
  end
end