Copier une partie d'un texte dans un EditRésolu

Question

Bonjour,
Je voudrais copier des parties texte que je r&#233;cup&#232;re dans un m&#233;mo :

CAPT
CAR=123456
texte divers &#224; la suite

Je m'explique ces caract&#232;res ci-dessus sont dans un m&#233;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&#232;res dans un edit &#224; 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.

moldov · Accepted Answer

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

moldov · Answer

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

hysteria74 · Answer

Texte de d&#233;part du m&#233;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

Copier une partie d'un texte dans un Edit

3 réponses

Votre réponse

Discussions similaires