Discussion :

[K.othmane]

Salut ,
Voila mon code , qui éclaircira la situation :

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
16
17
18
19
 AssignFile(SomeTxtFile,ExtractFilePath(Application.ExeName)+'XXX.rtf') ;
  application.ProcessMessages;
  {$I-} //La vérification d'E/S est désactivée
  Reset(SomeTxtFile) ;
 
{$I+} //La vérification d'E/S est activée
if IoResult=0 then //Renvoie l'état de la dernière opération d'E/S
begin
while not EOF(SomeTxtFile) do
    begin
     ReadLn(SomeTxtFile, buffer) ;
      application.ProcessMessages;
if AnsiContainsStr(buffer, '"synops">')  then
       begin
        StringFirst:=droite('"synops">',buffer);
        StringSecond :=gauche('</div>',Stringfirst);
      application.ProcessMessages;
      end
      end    ;

et voila le fichier que je parcours :

<div class="synops">
Des étudiants basculent dans l'épouvante après avoir reçu un coup de fil leur annonçant une série de meurtres prévue pendant les vacances de Noël... </div>

comme vous avez surement remarqué ici je parcours phrase par phrase , donc dans mon cas je n'arriverais pas a recuperer le texte de synops...
Je cherche donc une facon de mettre dans une variable tout ce qu'il ya entre class="synops" et </div> , sachant qu'il ya plusieurs lignes entre les deux .
j'espere avoir été clair , merci

[Bleys]

Simple proposition :
Pourquoi ne pas faire un parcours ligne par ligne comme tu fais et à chaque fois tu regardes (avec Pos() ) si </div> se trouve dans ta ligne ... Ca donnerait un truc du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
...
Chaine:='';
While Not (Eof(F) or Trouve) do
 Begin
 Readln(F,schaine);
 Trouve:=pos('</div>',chaine)<>0;
 Chaine:=Chaine+' '+sChaine
 End;
Chaine:=Copy(Chaine,1,Pos('</div>',Chaine)+1); //pas sur du +1
...

Enfin un truc dans le genre je pense que ça peut marcher ...

[K.othmane]

salut
merci de la réponse , mais j'y arrive toujours pas .
Quelqu'un aurait une autre idée ?

[macumba]

Ca doit être un code comme celui la que tu veux je suppose :
Désolé pour la technique mais je l'ai fait rapido en un quart d'heure.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
procedure TForm1.Button5Click(Sender: TObject);
var
  Fichier : TextFile;
  ChaineRecupere, Chaine, ChaineDebut, ChaineFin, NomFichier : string;
  StartRecupChaine : boolean;
  Position : integer;
begin
  NomFichier := 'c:\temp\essai.txt';
  ChaineDebut := '<div class="synops">';
  ChaineFin := '</div>';
  AssignFile(Fichier, NomFichier);
  StartRecupChaine := False;
  if FileExists(NomFichier) then
  begin
    Reset(Fichier);
    try
      while not eof(Fichier) do
      begin
        readln(Fichier,Chaine);
        Position := Pos(ChaineDebut,Chaine);
 
        if Position > 0 then
        begin
          Chaine := Copy(Chaine,Position + Length(ChaineDebut), Length(Chaine));
          ChaineRecupere := Chaine;
          StartRecupChaine := True;
        end;
 
        if StartRecupChaine then
        begin
          Position := Pos(ChaineFin,Chaine);
          if Position > 0 then
          begin
            ChaineRecupere := ChaineRecupere + Copy(Chaine,1,Position -1);
            Break;
          end
          else
            ChaineRecupere := ChaineRecupere + Chaine;
        end;
      end;
    finally
      CloseFile(Fichier);
    end;
  end;
  Showmessage(ChaineRecupere);
end;