Discussion :

[zorrax]

bonjour,

j'essaye a partir d'un code source de recuperer des données
celles ci sont encadrées par les balises <H1> et <H2>

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
for Loop := Memo1.Lines.Count - 1 downto 0
  do begin
    if (pos(H2,Memo1.Lines[Loop]) <> 0)
    then begin
      A := copy(Memo1.Lines[Loop],pos(H2, Memo1.Lines[Loop]) + 4,255);
      album[i] := Gauche(H2b,A);
      i:=i+1;
      Mylist.add(album[i]);
     end;
    if (pos(H1, Memo1.Lines[Loop]) <> 0)
    then begin
      S := copy(Memo1.Lines[Loop],pos(H1, Memo1.Lines[Loop]) + 4,255);
      serie := Gauche(H1b,S);
    end;
  end;    // for Loop

voici la boucle que j'utilise
celle ci marche tres bien quand je mets uniquerment la boucle avec detection de H1. des que je colle l'autre boucle if avec H2, ca bug.
impossible d'avoir les données encadrées par H2.
pourtant les deux boucles sont identiques.
un point les differe : il peut exister plusieurs balises H2 donc je les mets dans une liste.
si qq un voit une erreur merci davance

[Rayek]

Tu incrémentes i avant de mettre album dans ta liste, le problème ne viendrait il pas de la ?

[zorrax]

pardon javais oublié, i est defini avant la boucle a 1
n'est ce pas correct?
ensuite jje l'incremente pour la balise suivante

[Rayek]

Ce que je met dans tes variables c'est pour l'exemple

Code :

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

1
2
3
4
5
6
7
8
 
// considère i à 1
album[i] := Gauche(H2b,A);
// dans album[1] on a par exemple : toto
 i:=i+1;
// i passe à 2
 Mylist.add(album[i]);
// on ajoute album[2] dans la liste mais aps album[1]

[zorrax]

exact jai vraiment le cerveau en miette lol
merci bien pour cette petite erreur
je corrige...