Mercurial > octave-nkf
view scripts/strings/split.m @ 5307:4c8a2e4e0717
[project @ 2005-04-26 19:24:27 by jwe]
author | jwe |
---|---|
date | Tue, 26 Apr 2005 19:24:47 +0000 |
parents | 96661dd79291 |
children | 2a16423e4aa0 |
line wrap: on
line source
## Copyright (C) 1996 Kurt Hornik ## ## This file is part of Octave. ## ## Octave 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 2, or (at your option) ## any later version. ## ## Octave 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 Octave; see the file COPYING. If not, write to the Free ## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA ## 02110-1301, USA. ## -*- texinfo -*- ## @deftypefn {Function File} {} split (@var{s}, @var{t}) ## Divides the string @var{s} into pieces separated by @var{t}, returning ## the result in a string array (padded with blanks to form a valid ## matrix). For example, ## ## @example ## split ("Test string", "t") ## @result{} "Tes " ## " s " ## "ring" ## @end example ## @end deftypefn ## Author: Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at> ## Adapted-By: jwe function m = split (s, t) if (nargin == 2) if (isstr (s) && isstr (t)) l_s = length (s); l_t = length (t); if (l_s == 0) m = ""; return; elseif (l_t == 0) m = s'; return; elseif (l_s < l_t) error ("split: s must not be shorter than t"); endif if (min (size (s)) != 1 || min (size (t)) != 1) error("split: multi-line strings are not supported"); endif ind = findstr (s, t, 0); if (length (ind) == 0) m = s; return; endif ind2 = [1, ind+l_t]; ind = [ind, l_s+1]; ind_diff = ind-ind2; ## Create a matrix of the correct size that's filled with spaces. m_rows = length (ind); m_cols = max (ind_diff); m = repmat (" ", m_rows, m_cols); ## Copy the strings to the matrix. for i = 1:length (ind) tmp = ind2(i):(ind(i)-1); m(i,1:length(tmp)) = s(tmp); endfor else error ("split: both s and t must be strings"); endif else usage ("split (s, t)"); endif endfunction