Discussion :

[Zaki_SDwin]

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;

[Jannus]

Merci

[Nono40]

Merci de ta propisition mais il faudrait traiter les cas Pos1=0 et Pos2=0 sinon le résultat risque d'être imprévu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  Pos1 := Pos(Bleft, Content) + length(Bleft);
  Pos2 := PosEx(BRight, Content, Pos1) - Pos1;
  iF (pos1<>0)And(Pos2<>0) Then
    Result := Copy(Content, Pos1, Pos2)
  Else
    Result := 0;

[Zaki_SDwin]

J'ai pensé aussi et j'ai testé sans le changer et ça ne donne rien (vide) si une ou les deux balises n'existes pas (aucun message d'erreur), mais t'as raison il faut mieux traiter les cas de Pos1=0 et Pos2=0, Merci .

[bs.box]

Merci de ta propisition mais il faudrait traiter les cas Pos1=0 et Pos2=0 sinon le résultat risque d'être imprévu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  Pos1 := Pos(Bleft, Content) + length(Bleft);
  Pos2 := PosEx(BRight, Content, Pos1) - Pos1;
  iF (pos1<>0)And(Pos2<>0) Then
    Result := Copy(Content, Pos1, Pos2)
  Else
    Result := 0;

Je suis totalement d'accod; à part le post de "Nono40" qui me
parais un peut bizard non?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    Result := Copy(Content, Pos1, Pos2)
  Else
    Result := 0;

J'ai jamais vu une fontion qui renvoi deux types diffrénts

[Zaki_SDwin]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result := 'Veillez vérifier les balises définies'

La résultat est d'un type string .

[Nono40]

Result:='' surtout, je n'avais pas compilé.