function Asort = charsort(A)
K=size(A);
D=[];

for i=1:K(1)
   strlen=0;
   for j=1:K(2)
      if(A(i,j) ~= ' ')
         strlen=strlen+1;
      end
   end
   D=[D;strlen];
end
Asort=D;