Renvoyer ce qu'il y a avant une string, apres une string ou entre deux strings, dans une string


Commenter

Contenu du snippet

Ce petit code comporte trois fonctions qui vous renvoient ce qu'il y a avait une string, apres une string ou entre deux strings, cela peut servir aux debutants comme moi.
C'est un de mes 1ers codes delphi, et ce n'est autre que la reprise de mon meme code en vb . Soyez souples :)

Source / Exemple : 


function avant(str : string;source : string) : string;
 var
 n : integer;
  begin
     n := pos(str,source);
     avant := copy(source,1,n - 1);
  end;

  function apres(str : string;source : string) : string;
var
 n : integer;
  begin
    n := pos(str,source);
    apres := copy(source,n + length(str),length(source));
  end;

   function entre(strav : string;strap : string;source : string) : string;
  begin
    entre := avant(strap,apres(strav,source))   ;
  end;

Conclusion :


(merci à celiphane de vbfrance pour l'idée certe simple de la nouvelle methode du entre, je n'aurais pas su retranscrire la mienne en delphi aussi rapidement)

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 (hvb)