Discussion :

[jusaso]

Jusqu'à présent, j'ai utilisé le composant Memo pour fournir des informations sur: articles, clients ...
La programmation était très simple ....
Toutes ces informations sont gardées dans un fichier texte.
On lit le fichier et on le stocke dans un array de texte.
On fait une recherche pour sélectionner les lignes relatives à l'un des articles.
Et enfin on ajoute les lignes trouvées au composant MEMO.

Mais... Cela ne fonctionne pas avec RichEdit...

J'ai créé le fichier RTF.
J'ai répété les mêmes étapes: Lecture, selection des lignes et exposition sur le RichEdit
Mais Impossible.
Le format RTF est perdu...
J'ai cherché chez Google... mais rien trouvé.
Est-ce que quelqu'un sait comment faire?
Ce serait intéressant...
Merci ....

[mick605]

Salut

Peut tu nous poster ton code stp ?
Rien ne s'affiche dans ton RichEdit ?

Merci

[jusaso]

Merci de ta reponse...

Mon code, pour les fichiers TEXT, bien sûr .......

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
procedure TForm1.Button5Click(Sender: TObject);
var
   i:integer;
   nIni,nFin:integer;
   sIni,sFin:string;
begin
  //ouvre RTF et garde lignes dans array textoGrados
leefichE('text.RTF', textoGrados, totallinG);
 
sIni:='10000';sFin:='10001';  //produit 10000 à chercher
 
nIni:=0;nFin:=0;    //numero lignes ini et fin
for i:=1 to totalLinG do
   begin
   if ansipos(sIni,textoGrados^[i])>0 then nini:=i;
   if ansipos(sFin,textoGrados^[i])>0 then begin nFin:=i;break;end;
   end;
 
  // si trouvé... montre selection
if (nIni>0)and(nFin>0) then
   begin
   richedit1.Clear;
   for i:=nIni+1 to nFin-1 do
         richedit1.Lines.add(textoGrados^[i]);
   end;
end;

Le résultat...
Dans le RichEdit s'affiche le format RTF: le texte plus tous les caracters du formatage.

Je pense qu'il faut trouver un autre code et se servir plutôt de...

Code :

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

1
2
3
RichEdit1.Text
RichEdit1.SelStart
RichEdit1.SelLength

....

Stream???

Mais je n'arrive pas à controler...

[mick605]

Salut

Je pense qu'il y a plus simple pour lire un fichier texte :

Code :

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

1
2
3
4
5
6
7
8
9
var Fichier : TStringList;
begin
  Fichier:=TStringList.Create;
  Fichier.LoadFromFile('text.rtf');
 
  //Traitement
 
  Fichier.Free;
end;

Ensuite, il faut savoir qu'un fichier RTF contient plusieurs lignes en début de fichier permettant justement de stocker les différentes combinaisons de police, couleur et taille. Donc, si tu veux récuperer une ligne en plein milieu de ton fichier, tu dois aussi ajouter les quelques premieres lignes de ton fichier. Quand tu auras récupéré ces lignes (les premieres, plus celle qui t'interresse), tu n'as qu'a les affecter au composant RichEdit via la propriété Text.

Par exemple, si tes lignes sont dans une StringList :

Code :

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

RichEdit1.Text:=MesLignes.Text;

Si cela ne réponds pas a ta question, ou si tu n'y arrives pas, poste nous un morceau de ton fichier RTF (au moins le début et la ligne que tu veux extraire).

Voila, Bonne chance

[Gilbert Geyer]

Salut,

Dans le RichEdit s'affiche le format RTF: le texte plus tous les caracters du formatage.

... Les caractères du formattage ne s'affichent que si la propriété PlainText du RichEdit a été basculée sur True : suffit de la basculer sur False dès la conception.

Ensuite, on retrouve le texte sans les caractères de formattage rtf, dans la propriété RichEdit.Text et la propriété RichEdit.Lines[i] et dans lesquelles on retouve le caratère de tabulation, l'espace, et les caractères de fin de ligne (#13#10).

A+.

[jusaso]

Salut...

Je dois remercier l'idée de Mick...
Pourquoi on perdait le format des lignes sélectionnées?
Parce qu'elles ont besoin de l'information de l'entête du fichier RTF.
Mais quelles sont ces lignes?
J'ai constaté que leur taille varie de un à l'autre RTF.
J'ai donc utilisé l'astuce suivante ...
Au début du fichier RTF j'ai mis une marque: INIFILE.
Les lignes qui sont au-dessus (environ 40) sera l'en-tête.
Et les lignes entre chaque numéro sera la description du produit.

IMPORTANT!
Il faut laisser une ligne vide au-dessus et en dessous de chaque signal (marque), dans la rédaction du texte dans Word. Juste à titre de précaution ....
Eh bien, voilà le 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
procedure TForm1.Button1Click(Sender: TObject);
var
  nfin,nIni: integer;
  nIniFile,i : integer;
  FichRTF,mislineas : TStringList;
begin
  FichRTF:=TStringList.Create;
  mislineas:=TStringList.Create;
  FichRTF.LoadFromFile('TEXT.RTF');
 
  nIniFile:=0;  //fin de l'entête
  nIni:=0;       //ligne debut selection
  nFin:=0;      // fin selection
 
      //cherche les 3 lignes
  for i:=0 to FichRTF.Count-1 do
    begin
    if AnsiPos('INIFILE', FichRTF[i])>0 then nIniFile := i;
    if AnsiPos('12345', FichRTF[i])>0 then nIni := i;
    if AnsiPos('12346', FichRTF[i])>0 then begin nFin := i;break;end;
    end;
 
  if (nIniFile=0)or(nIni=0)or(nFin=0) then showmessage ('Problème');
 
       //l'entête
  for i:=0 to nIniFile-1 do
       mislineas.add(FichRTF.Strings[i]);
 
       //le texte du produit 12345
  for i:=nIni+1 to nFin-1 do
       mislineas.add(FichRTF.Strings[i]);
 
       //Et enfin meslignes --> RichEdit
  RichEdit1.Text:=mislineas.Text;
 
 
end;

Merci a tous...
Si vous avez des corrections... je serai ravi.

[mick605]

Dans le RichEdit s'affiche le format RTF: le texte plus tous les caracters du formatage.

... Les caractères du formattage ne s'affichent que si la propriété PlainText du RichEdit a été basculée sur True : suffit de la basculer sur False dès la conception.

Non, lors de l'affectation d'une chaine a la propriété Text du RichEdit, si cette chaine est au format RTF, elle sera convertie automatiquement en texte formatté, quelque soit l'état de PlainText. (Testé sous D2005)

Ensuite, on retrouve le texte sans les caractères de formattage rtf, dans la propriété RichEdit.Text et la propriété RichEdit.Lines[i] et dans lesquelles on retouve le caratère de tabulation, l'espace, et les caractères de fin de ligne (#13#10).

Pas exactement : RichEdit.Text ne contient pas les caracteres de formattage, c'est vrai. Mais avec le RichEdit.Lines, si tu fais un RichEdit.Lines.SaveToStream, ton stream contiendra les caracteres de formattage, si PlainText vaut false...

Voila

Petite précision pour Jusaso : Si ton application est destinée a tourner sous Vista, donne le nom COMPLET de ton fichier. Sous Vista, les chemins absolu ne fonctionnent pas tout le temps ...

Et libere tes variables (MaList.Free)