%TaBortBlanka: Radera blanktecken från en sträng
%
% Anrop
%   >> [Ut]=TaBortBlanka( In )
% där både In och Ut är strängar.
%
function [UtStr]=TaBortBlanka( InStr )

n=length( InStr );
UtStr=blanks( n );
j=0;
for i=1:n
    if InStr(i) ~= ' '
        j=j+1;     % Plats att kopiera nästa tecken till!
        UtStr(j)=InStr(i);
    end
end
UtStr=UtStr(1:j);
end