Discussion :

[philnievre]

Bonjour,
Pourriez vous m'aider à trouver le code nécessaire en Delphi 7pour positionner le curseur à un endroit donné dans un texte RichEdit ? Est il par exemple possible lorsqu'on affiche un richedit, de mettre le curseur directement sur la ligne 5 colonne 28 ?
Mon problème en quelques mots:
Je charge un fichier texte enrichi dans un composant RichEdit.
Ce fichier comporte des balises de la forme [balise].
Le but est de remplacer les balises par les valeurs des variables d'un écran de saisie.
je parcours chaque ligne du richedit pour trouver une balise.
une fois trouvée, je connais le n° de ligne, la position dans la ligne et la longueur de la balise (ex: [service] ou [modepaiement]).
Je voudrai donc positionner le curseur au début de la balise.
Je ferai ainsi une sélection partant de la balise et couvrant celle ci.
Au préalable, j'aurai mis dans le presse papier le texte ou les lignes de substitution et je n'aurai qu'à mettre le contenu du presse papier dans la sélection.Cela efface la mention de la balise et insère le texte souhaité.

[cantador]

Avec la propriété SelStart

tu devrais pouvoir t'en sortir

RichEdit1.SelStart := taposition;

cantador

[ero-sennin]

et Bienvenue sur Developpez.com,

Tout ce que tu as besoins se trouve dans la FAQ

Bon courage

[cantador]

ou l'aide de delphi :

L'exemple suivant illustre l'utilisation de la méthode Perform pour envoyer un message de fenêtre. Le message EM_SCROLLCARET rend visible le curseur d'édition dans le contrôle éditeur de texte formaté. La position du curseur de saisie est déterminé relativement au contenu du masque de saisie avant d'appeler Perform.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
 
begin
with RichEdit1 do
  Begin
    SelStart := StrToInt(MaskEdit1.Text);
    RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
  end;
end;

cantador

[cantador]

merci ero-sennin pour la balise.

cantador

[philnievre]

Je vous remercie pour vos réponses.
Voici le listing (expurgé) du code de mon application qui résoud mon problème
Cela pourra aider certains

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
 
const LR:byte=50;         // longueur de recherche pour le texte de balise : à priori 50c sont suffisants
var
 PositionCurseur:Integer; // localisation du curseur pour délimiteur balise trouvé
 DEBRECH,FINRECH:Integer; // début et fin recherche
 FinB           :Integer; // position du caractere [ de fin de balise
begin
  With EditeurMAPA.FormVisuMapa DO
  begin
   NomFichier:=DirInit+'MAPAConvention.rtf';
   NfEdition:=FormPlasma.Repertoire.Caption+'\'+'Convention MAPA.rtf';
   With ViewMAPA do
    begin
     ReadOnly:=false;
     Lines.LoadFromFile(NomFichier);
     DebRech:=0;
     FinRech:=Length(Text);
     Repeat
      PositionCurseur:=FindText('[',DebRech,FinRech,[]);
      If PositionCurseur<>-1 Then // balise trouvée mais laquelle ?
         begin
          If PositionCurseur+LR>FinRech
             Then FinB:=FindText(']',PositionCurseur,FinRech,[])
             Else FinB:=FindText(']',PositionCurseur,PositionCurseur+LR,[]);  // recherche etendue 50car
          If FinB=-1 Then
             Begin
              Showmessage('Erreur: caractère de fin de balise [ absent ou à plus de 50 caractères de ]');
              Exit;
             End;
          SelStart:=PositionCurseur;
          SelLength:=FinB-PositionCurseur+1;  // longeur de la balise
          TraiteBalise(SelText); // je remplace la balise par un texte différent
          DebRech:=PositionCurseur+1;
          FinRech:=Length(Text);
         end;
     Until PositionCurseur=-1; // balise non trouvée
     Lines.SaveToFile(NfEdition);
     SelStart:=0; // on se positionne au début du fichier
     ReadOnly:=true;
    end; // With EditeurMAPA.FormEditMapa.SaisieMAPA
   // fin des modifications
   If FormPlasma.Apercu.checked
      then ShowModal
      else ShowMessage('Rédaction de la convention effectuée dans le fichier:'+#13#10+NfEdition);
  end; // With EditeurMAPA.FormEditMapa
end; // TFormPLASMA.ButtonCONVENTIONClick

Voici également une portion de code de la procedure traitant la balise

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
Procedure traitebalise(Balise:string);
const CR:string[2]=#13#10;
var
 S:string;
 i:integer;
Procedure CopieRTF(RTF:TRichEdit);
begin
 RTF.SelectAll;RTF.CopyToClipboard;
 EditeurMAPA.FormVisuMapa.ViewMAPA.PasteFromClipBoard;
end;
//
begin
 With  EditeurMAPA.FormVisuMapa.ViewMAPA DO
  begin
   SelText:=''; // suppression de la balise [] dans le texte
   if balise='[direction]' then SelText:=Direction.Items[Direction.ItemIndex];
   if balise='[service]' then SelText:=service.Items[service.itemIndex];
   if balise='[affaire]' then Seltext:=Affaire.text;
   if balise='[titremapa]' then CopieRTF(Titremapa);