removeleadingspaces.m

来自「这个是时间序列分析的可视化工具」· M 代码 · 共 22 行

function nameout=removeleadingspaces(namein);
%REMOVELEADINGSPACES    remove leading spaces from a single line character array
%
% nameout=removeleadingspaces(namein);
%
% Scott Hirsch
% 5/99

blks=findstr(' ',namein);
nameout=namein;
if ~isempty(blks) & blks(1)==1		%at least one leading blank
   if length(blks)>1
      diffblks=diff(blks);
      lastleadingblank=min(find(diffblks>1));
   else
      lastleadingblank=1;
   end;
   nameout=namein(lastleadingblank+1:end);
end;