Copier une partie d'un texte dans un Edit [Résolu]

Messages postés
20
Date d'inscription
lundi 13 décembre 2004
Dernière intervention
24 juin 2005
- 21 juin 2005 à 10:43 - Dernière réponse :
Messages postés
168
Date d'inscription
mercredi 8 octobre 2003
Dernière intervention
10 novembre 2008
- 21 juin 2005 à 15:25
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.
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
168
Date d'inscription
mercredi 8 octobre 2003
Dernière intervention
10 novembre 2008
- 21 juin 2005 à 15:25
3
Merci
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

Merci moldov 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Commenter la réponse de moldov
Messages postés
168
Date d'inscription
mercredi 8 octobre 2003
Dernière intervention
10 novembre 2008
- 21 juin 2005 à 14:11
0
Merci
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
Commenter la réponse de moldov
Messages postés
20
Date d'inscription
lundi 13 décembre 2004
Dernière intervention
24 juin 2005
- 21 juin 2005 à 14:23
0
Merci
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
Commenter la réponse de hysteria74

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.