Copier une partie d'un texte dans un Edit

Résolu
Signaler
Messages postés
20
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
24 juin 2005
-
Messages postés
165
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
10 novembre 2008
-
Bonjour,
Je voudrais copier des parties texte que je récupère dans un mémo :

CAPT
CAR=123456
texte divers à la suite

Je m'explique ces caractères ci-dessus sont dans un mémo et j'aimerais faire un boucle pour savoir:
Si CAPT existe et si CAR=123456 existe si c'est le cas, je copie ces caractères dans un edit à la suite ainsi que le texte divers.
Si CAPT existe mais CAR=123456 n'existe pas je copie que CAPT et le texte divers dans mon edit.
Si CAR=123456 existe mais CAPT n'existe pas je copie que CAPT et le texte divers dans mon edit.
Enfin si CATP et CAR=123456 n'existe pas je copie le texte divers dans mon edit.

Je bloque dur help me.

3 réponses

Messages postés
165
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
10 novembre 2008

Salut,



J'ai fais un truc vite fais mais j'ai du mal a voir les cas possible et les gestion d'erreur que tu decide.



Edit1.Clear;

Edit2.Clear;

for iIndice := 0 to Memo1.Lines.Count-1 do

begin

if iIndice <= Memo1.Lines.Count-1 then

begin

if
AnsiContainsText(Memo1.Lines[iIndice],'CAPT') and
AnsiContainsText(Memo1.Lines[iIndice+1],'CAR=123456') then

Edit1.Text := 'CAPT CAR=123456';

if
AnsiContainsText(Memo1.Lines[iIndice],'CAPT') and not
AnsiContainsText(Memo1.Lines[iIndice+1],'CAR=123456') then

Edit1.Text := 'CAPT';

if not
AnsiContainsText(Memo1.Lines[iIndice],'CAPT') and
AnsiContainsText(Memo1.Lines[iIndice+1],'CAR=123456') then

Edit1.Text := 'CAPT' ;

if not
AnsiContainsText(Memo1.Lines[iIndice],'CAPT') and not
AnsiContainsText(Memo1.Lines[iIndice+1],'CAR=123456') then

Edit2.Text := Memo1.Lines[iIndice];

end;

end;



Bonne Prog
Messages postés
165
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
10 novembre 2008

Salut,



Tu peux donner un exemple car j'ai pas tres bien compris ce que tu voulais



Tu met un exemple de texte avec ce que tu veux en resultat.

Merci



Bonne Prog
Messages postés
20
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
24 juin 2005

Texte de départ du mémo :
CAPT
CAR=123456
A faire au plus vite

Texte que je veux copier dans un 1er TEdit :
CAPT CAR=123456

Texte que je veux copier dans un 2nd TEdit :
A faire au plus vite