Recuperer une partie d'un memo

Version imprimable

07/06/2007, 03h20
KOUTO

Recuperer une partie d'un memo
Bonjour enfin bonsoir ca dépend à 3heures 15 du matin... hihihi

voila je souhaiterais savoir comment récupérer une partie de mon texte de mon memo:

exemple:
Code:

1 2 3 Bonjour je suis un chat il fait beau
et moi je voudrais récuperer "je suis un chat".

cela est-il possible?
07/06/2007, 04h25
J_apprenti

:salut:
recuperer la ligne :

Code:

showmessage(memo1.Lines.Strings[1]);

ou
la fonction copy qui permet d'extraire une sous-chaîne d'une chaîne:

Code:

ShowMessage(Copy(memo1.Text,10,15));
07/06/2007, 11h00
KOUTO

Oui mais je ne connais pas le numero des lignes du debut et la ligne de fin. je sais juste que je dois recuprer le texte entre deux mots et je connais ces 2 mots.

mais le texte entre ces deux mots varis une fois sa fait 5 ligne l'autre fois 15 ligne.

Salut,

Pour faire ce que tu demandes, j'ai fait ceci ... :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
var
mot1 : string;
mot2 : string;
CurseurDepart:integer;
CurseurFin:integer;
longueur_mot1:integer;
longueurSelection:integer;
maSelection:string;
begin
  mot1 :='suis'; // On définit le mot1
  mot2 :='méchant';On définit le mot2
  longueur_mot1:=length(mot1); 
  CurseurDepart:=PosEx(mot1,Memo1.Text,1)+longueur_mot1-1;
  CurseurFin:=PosEx(mot2,Memo1.Text,CurseurDepart+longueur_mot1)-1;
  longueurSelection:=CurseurFin-CurseurDepart;
  Memo1.SelStart:=CurseurDepart;//On positionne le curseur après le 1er mot
  Memo1.SelLength:=longueurSelection;// On sélectionne ...
  maSelection:=Memo1.SelText;// On récupère le texte sélectionné
  ShowMessage(Trim(maSelection)); // Trim pour suprimer les blancs superflus
end;

J'espère que c'est ce que tu voulais ;)

PS: F1 sur PosEx() si tu ne comprends pas :aie:

07/06/2007, 16h32
KOUTO

nickel :king: :king: :king:

Merci bp !!!