findkeyword2

FINDKEYWORD - Finds a keyword with a cell of strings

 INPUTS
 1. varargin Cell of strings
 2. keyword 

 OUTPUTS
 1. varargin - cell of string without keyword
 2. OutputFlag cell number if keywork found

0001 function [varargin, OutputFlag]=findkeyword2(varargin,keyword)
0002 %FINDKEYWORD - Finds a keyword with a cell of strings
0003 %
0004 % INPUTS
0005 % 1. varargin Cell of strings
0006 % 2. keyword
0007 %
0008 % OUTPUTS
0009 % 1. varargin - cell of string without keyword
0010 % 2. OutputFlag cell number if keywork found
0011 
0012 % Adapted from findkeyword by Laurent S. Nadolski
0013 
0014 OutputFlag = 0;
0015 if ~isempty(varargin)
0016   for i = 1:length(varargin)
0017     if ischar(varargin{i})
0018         if strcmpi(varargin{i},keyword)
0019             OutputFlag = i;
0020             varargin(i) = [];
0021             break
0022         end
0023     end
0024   end
0025 end
0026