Lire une sous-chaine dans une chaine contenant des séparateurs.

Commenter

Contenu du snippet

Soit une chaine contenant des sous-chaines séparées par un caractère. Comment récupérer la xième sous-chaine ?
Voir le code remanié après les contributions.

Source / Exemple : 


function ChainePos(const Sep, Dans: String; const posi: cardinal = 1): String;
{fonction revisée par les commentateurs CodeSources comporte
- copie d'une fonction de l'unit sysuts "posex",
- retour d'une sous-chaine tirée d'une chaine selon séparateur et position entrés}

   //Déclaration
   function e_PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
     {renvoi le numero de position d'une chaine Substr dans une chaine S en scannant
     à partir de la position Offset}
     var I, X, Len, LenSubStr: Integer;
     begin
     if Offset = 1 then
        Result := Pos(SubStr,S)
     else
        begin
         I := Offset; LenSubStr := Length(SubStr);
         Len := Length(S)-LenSubStr+1;
         while I <= Len do
          begin
            if S[I] = SubStr[1] then
              begin
                X := 1;
                while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do
                  Inc(X);
                if X = LenSubStr then
                  begin
                    Result := I;
                    exit;
                  end; //end if X
              end; //end if S[I]
              Inc(I);
         end;//end while
         Result := 0;
     end; //end else if
   end; //end function

var i,p1,p2 : integer;

begin
//initialisation fonction ChainePos
result := '';

//sortie prématurée avec séparateur en premiere position dans la chaine
if (e_posex(sep,Dans[1] = 1) and (posi <= 1) then exit;

//1ère position de lecture pour la fonction e_posex
p1 := 1;
//Boucle
for i := 1 to posi-1 do
  begin
    //recherche position prochain séparateur pour borne à gauche
    p1 := e_posex(sep,dans,p1);
    if p1 = 0 then
      exit                      //sortie prématurée pas de prochain séparateur
    else
      p1 := p1 + length(sep);   //sinon décale jusqu'à caract<>sep
                                //pour recherche suivante ou sortie
  end;

//Recherche prochain séparateur pour borne à droite...
p2 := e_posex(sep,dans,p1);
//...En cas d'absence, par défaut longueur chaine entrée+1 pour la dernier caractère
if p2 = 0 then
  p2 := length(Dans)+1;

//Fin : extraction sous-chaine de position p1, longueur p2-p1
result := copy(dans,p1,p2-p1);
end;

Conclusion :


La fonction marche si on indique un séparateur de 1 car., une chaine d'au moins 1 car. et si position est supérieur à 0 bien sûr.

A vous de juger...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (AhmedBoudali)