J'ai fait cette petite fonction pour faire un petit dico sans BDD, ainsi de lister des liens d'une page, et d'autres truc, et je veux bien la distribuer, peut être que quelqu'un lui sert une chose
cette fonction permet de lire un texte entre deux balises prédéfinis (string)
par exemple : [blabla]Le texte à récupérer[/blabla]
autre exemple : <developpez>le texte ici<n'importe quel balise de fermeture>
voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Uses
  StrUtils;
Function GSB(Content ,BLeft, BRight : string) : string;
var
  Pos1, Pos2 : integer;
begin
  Pos1 := Pos(Bleft, Content) + length(Bleft);
  Pos2 := PosEx(BRight, Content, Pos1) - Pos1;
  Result := Copy(Content, Pos1, Pos2);
end;