Discussion :

[looping]

bonjour,

est ce qu'il est possible de récupérer (extraire) du texte qui est au format RTF ?

en fait cela revient à faire une conversion RTF-->TXT

A+

[NABIL74]

salut,
teste ça

Code :

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

Richedit1.Lines.LoadFromFile('C:\ton fichier.rtf');

a+

NABIL74

[philnext]

Utilises la propriété lines de ton TRichEdit.

[ShaiLeTroll]

J'ai eu aussi besoin de développer une extration RTF vers TXT, voici un extrait du code ...

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
 
    RTFEdit := TRichEdit.Create(nil);
    try
      RTFEdit.Parent := TForm.Create(nil);
      try
        try
          RTFEdit.Lines.LoadFromFile(RTFFileName);
        except
          on E: Exception do
          begin
            ErrorMsg := Format('Une Erreur du Type %s s''est produite lors de la lecture d''un Fichier RTF : "%s"', [E.ClassName, E.Message]);
            Result := False;
            Exit;
          end;
        end;
        RawText := RTFEdit.Text; // Ici, cela ne fourni que le Text ! voir l'option PlainText ...
      finally
        RTFEdit.Parent := nil;
        RTFEdit.Parent.Free();
      end;
    finally
      RTFEdit.Free();
    end;