strcomp(s1, s2)

function  r = strcomp(s1, s2)
%STRCOMP    comparaison de deux chanes pour l'ordre  ASCII
%           r = strcomp(s1, s2)
%           s1 et s2 sont des chanes et r vaut
%           0  si s1 == s2,  -1  si s1 < s2, 1  si s1 > s2

l1 = length(s1);
l2 = length(s2);
% on complte la plus courte avec des 0 ASCII (nul)
if l1 < l2, s1 = [s1 zeros(1,l2-l1)]; else s2 = [s2 zeros(1,l1-l2)];end;
diffs = find(s1 ~= s2);    % l'indice du premier diffrent est diffs(1)
if isempty(diffs)          % s'il n'existe pas
  r = 0;                   % galit
elseif abs(s1(diffs(1))) < abs(s2(diffs(1)))
  r = -1;                  % s1 < s2
else
  r = 1;                   % s1 > s2
end;