Traitement de texte [Résolu]

tof62bis 25 Messages postés samedi 17 novembre 2007Date d'inscription 4 mars 2011 Dernière intervention - 3 avril 2009 à 13:35 - Dernière réponse : tof62bis 25 Messages postés samedi 17 novembre 2007Date d'inscription 4 mars 2011 Dernière intervention
- 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
tof62bis 25 Messages postés samedi 17 novembre 2007Date d'inscription 4 mars 2011 Dernière intervention - 5 avril 2009 à 12:32
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;

Merci tof62bis 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

Commenter la réponse de tof62bis
cs_cantador 4996 Messages postés dimanche 26 février 2006Date d'inscription 27 mars 2018 Dernière intervention - 3 avril 2009 à 14:53
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
tof62bis 25 Messages postés samedi 17 novembre 2007Date d'inscription 4 mars 2011 Dernière intervention - 3 avril 2009 à 15:00
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
L_art_ment 316 Messages postés vendredi 21 septembre 2007Date d'inscription 6 février 2013 Dernière intervention - 3 avril 2009 à 16:19
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
cs_cantador 4996 Messages postés dimanche 26 février 2006Date d'inscription 27 mars 2018 Dernière intervention - 3 avril 2009 à 18:37
0
Merci
'il a bu son verre..."

cantador
Commenter la réponse de cs_cantador
L_art_ment 316 Messages postés vendredi 21 septembre 2007Date d'inscription 6 février 2013 Dernière intervention - 3 avril 2009 à 21:44
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
tof62bis 25 Messages postés samedi 17 novembre 2007Date d'inscription 4 mars 2011 Dernière intervention - 4 avril 2009 à 19:39
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.