Traitement de texte [Résolu]

Messages postés
25
Date d'inscription
samedi 17 novembre 2007
Dernière intervention
4 mars 2011
- - Dernière réponse : tof62bis
Messages postés
25
Date d'inscription
samedi 17 novembre 2007
Dernière intervention
4 mars 2011
- 5 avril 2009 à 12:32
Bonjour a tous,
J'ai besoin d'un coup de main
Voila je recupere dans un memo 40 ligne d'une discutions dans un chat
et jaimerai savoir comment recuper dans un autre memo toutes les lignes commencant
par exemple : friend Gerard

Je vous remercie d'avance pour l'aide
Afficher la suite 

Votre réponse

7 réponses

Meilleure réponse
Messages postés
25
Date d'inscription
samedi 17 novembre 2007
Dernière intervention
4 mars 2011
3
Merci
Bonjour
C'est bon j'ai trouvé comment faire

voici la source si ca peut aider quelqu'un d'autre
et encore merci de votre aide

listbox1.items.Clear;
detectOwner := false;
for i := recuproom.Lines.Count-1 downto 0 do
begin
if pos('owner ',recuproom.Lines.Strings[i])=1 then
begin
detectOwner := true;
if (pos(Edit1.Text,recuproom.Lines.Strings[i])=0) and
(pos(Edit2.Text,recuproom.Lines.Strings[i])=0) and
(pos(Edit3.Text,recuproom.Lines.Strings[i])=0) and
(pos(Edit4.Text,recuproom.Lines.Strings[i])=0) and
(pos(Edit5.Text,recuproom.Lines.Strings[i])=0) then
begin
ListBox1.Items.add('/oplist remove '+copy(recuproom.Lines.Strings[i],6,length(recuproom.Lines.Strings[i])));
end;
end
else if detectOwner and (pos('owner ',recuproom.Lines.Strings[i])=0) then
break;
end;

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 121 internautes nous ont dit merci ce mois-ci

Commenter la réponse de tof62bis
Messages postés
4996
Date d'inscription
dimanche 26 février 2006
Dernière intervention
27 mars 2018
15
0
Merci
Bonjour,

Est ce que les lignes commencent toutes par
"ami gérard.." et se termine par "..ne le renverse pas" ?

cantador
Commenter la réponse de cs_cantador
Messages postés
25
Date d'inscription
samedi 17 novembre 2007
Dernière intervention
4 mars 2011
0
Merci
re
non en faire c'est juste
Friend Gerard
Friend Pascal

Voila excuse je m'etais mal exprimé
Commenter la réponse de tof62bis
Messages postés
316
Date d'inscription
vendredi 21 septembre 2007
Dernière intervention
6 février 2013
0
Merci
for i:=0 to Memo1.Lines.Count -1 do
   if pos('Friend Gerard',Memo1.Lines[i])<>0 then
      memo2.Lines.Add(Memo1.Lines[i]);

Il est des notre !

Esperant que la prochaine fois se sera google ton ami

<hr />
L'Armand joue, l'arme en joug... www.art-ment.com
Commenter la réponse de L_art_ment
Messages postés
4996
Date d'inscription
dimanche 26 février 2006
Dernière intervention
27 mars 2018
15
0
Merci
'il a bu son verre..."

cantador
Commenter la réponse de cs_cantador
Messages postés
316
Date d'inscription
vendredi 21 septembre 2007
Dernière intervention
6 février 2013
0
Merci
Ca s'voit à sa trogne !

<hr />
L'Armand joue, l'arme en joug... www.art-ment.com
Commenter la réponse de L_art_ment
Messages postés
25
Date d'inscription
samedi 17 novembre 2007
Dernière intervention
4 mars 2011
0
Merci
bonjour
Merci de m'avoir répondu si rapidement
mais je me suis mal exprimé
je recupere dans un memo les 40 dernieres lignes d'un chat
et je voudrez recuperer toute les ligne commencent par
owner (et le pseudo)
dans la liste a recuperer il peut y avoir jusqu'a 40 pseudo different
et ce sont les pseudo que je veu recuperer

Voila et excusé moi pour le premier post ci dessus

Merci d'avance de votre aide
Commenter la réponse de tof62bis

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.