function [b] = contains(STR,PATTERN) b = false; if iscell(STR) for iSTR = 1:length(STR) b = b || findPattern(STR{iSTR},PATTERN); end elseif isvector(STR) for iSTR = 1:length(STR) b = b || findPattern(STR(iSTR),PATTERN); end elseif isstr(STR) b = b || findPattern(STR{iSTR},PATTERN); else error('STR must be either string, cell or vector'); endif endfunction function [b] = findPattern(STR,PATTERN) b = false; if iscell(PATTERN) for iPATTERN = 1:length(PATTERN) b = b || ~isempty(strfind(STR,PATTERN{iPATTERN})); end elseif isvector(PATTERN) for iPATTERN = 1:length(PATTERN) b = b || ~isempty(strfind(STR,PATTERN(iPATTERN))); end elseif isPATTERN(PATTERN) b = b || ~isempty(strfind(STR,PATTERN{iPATTERN})); else error('PATTERN must be either string, cell or vector'); endif endfunction