Discussion :

[KOUTO]

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 :

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

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?

[J_apprenti]

recuperer la ligne :

Code :

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

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

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

Code :

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

ShowMessage(Copy(memo1.Text,10,15));

[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.

[ero-sennin]

Salut,

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

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
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

[KOUTO]

nickel

Merci bp !!!