// 10.01.02 for v5 function Putrowstr(varargin) Tb=varargin(1); Nr=varargin(2); Pos=varargin(3); Str=varargin(4); Sep=''; if length(varargin)>4 Sep=varargin(5); end; if Sep=='' for I=1:length(Str) Tmp=part(Str,I); Putcell(Tb,I,Nr,Pos,Tmp); end; else Ltr=''; K=1; for I=1:length(Str) Tmp=part(Str,I); if Tmp==Sep Putcell(Tb,K,Nr,Pos,Ltr); K=K+1; Ltr=''; else Ltr=Ltr+Tmp; end; end; if Ltr~='' Putcell(Tb,K,Nr,Pos,Ltr); end; end; endfunction;