function [VC] = VC_uloz(ret)
% function [VC] = VC_uloz(ret)
% Ulozeni velkeho cisla z retezce do pole uint64

% odstraneni mezer na zacatku a na konci
while ret(end)==' '
    ret(end)=[];
end
while ret(1)==' '
    ret(1)=[];
end

% test na cislice
if any(ret<'0') | any(ret>'9')
    error('Neciselny znak na vstupu.')
end

% test na nulovost
if ret=='0'
    VC=zeros(1,1,'uint64');
    return; % vraci se jedna nulova hodnota
end

% odstraneni nul na zacatku
while ret(1)=='0'
    ret(1)=[];
end

n=ceil(length(ret)/9); % pocet pametovych bunek pro ulozeni velkeho cisla
VC=zeros(1,n,'uint64');

for k=1:n-1
    c=uint64(str2num(ret(end-8:end)));
    VC(k)=c;
    ret(end-8:end)=[];
end
VC(n)=uint64(str2num(ret));
while VC(end)==0
    VC(end)=[];
end

end % funkce

