diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci new file mode 100755 index 00000000..d006f3ec --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci @@ -0,0 +1,34 @@ +// 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;
\ No newline at end of file |