function s = sget4(S, n, B)

%   sget4    picks the nth element s from list S.
%
%   s = sget4(S, n, B)
%
%   in: S   string list. String; elements separated by separators.
%   n   element to get (default 1)
%   B   separator character (default setstr(124))
%
%  out: s   n:th word from list

% (c) Heimo Ihalainen 9.4.1989 (15.4.1989 HI) 
% (Default separator PK 18.11.1993)

if nargin<2; n = 1; end
if nargin<3; B = setstr(124); end

I = [0 find(S==B) length(S)+1];
if n>length(I)-1; error('Not so many elements'); end

s = S(I(n)+1:I(n+1)-1);