Remplacement de chaine dans un string

Version imprimable

Voir 40 message(s) de cette discussion en une page

31/01/2009, 14h32
Andnotor

Pas de problème, c'est un plaisir :mrgreen:

Je n'ai pas eu trop le temps de m'occuper de ton code complet, mais essaie encore de simplifier les AnsiMidStr() appelé entre 2 et 4 fois par boucle... Et ensuite pourquoi pas ramener toute la procédure de traitement dans la boucle principale.

salut

Citation:

Envoyé par BuzzLeclaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
function TFPrincipal.Traitement(const ligne :String): String;
Var
  ReplaceLigne, s2 :string;
Begin
  result := '';
 
  if AnsiMidStr(Ligne,9,3) = '411' then
    ReplaceLigne := StringReplace(Ligne,AnsiMidStr(Ligne,9,3),LabCompteFrs.Text,[])
  else
    if AnsiMidStr(Ligne,9,3) = '707' then
      ReplaceLigne := StringReplace(Ligne,AnsiMidStr(Ligne,9,3),LabCompteAchat.Text,[])
    else
      if AnsiMidStr(Ligne,9,4) = '4457' then
        ReplaceLigne := StringReplace(Ligne,AnsiMidStr(Ligne,9,4),LabCompteTVA.Text,[]);
 
// Andnotor
  SetLength(s2, 20);
  Move(ReplaceLigne[84],  s2[1],   20);
  Move(ReplaceLigne[104], ReplaceLigne[84],  20);
  Move(s2[1],   ReplaceLigne[104], 20);
 
  result := ReplaceLigne;
 
end;

un truc qu devrais t'evitez des cycle suplementaire

Code:

1
2
3
4
5
6
7
  Case ligne[9] of 
   '4' : case  ligne[10] of
           '1' :  ReplaceLigne := StringReplace(Ligne,AnsiMidStr(Ligne,9,3),LabCompteFrs.Text,[]);
           '4' : ReplaceLigne := StringReplace(Ligne,AnsiMidStr(Ligne,9,4),LabCompteTVA.Text,[]); 
         end;
   '7' :ReplaceLigne :=StringReplace(Ligne,AnsiMidStr(Ligne,9,3),LabCompteAchat.Text,[]) ;
  end;

@+ Phil

01/02/2009, 11h05
BuzzLeclaire

Re

J'ai essayé ta proposition anapurna, je l'ai intégré dans la function mais le string final à un décalage à partir de la deuxième ligne.

J'ai essayer également de retirer l'accès à la function
Strings[i] := Traitement(Strings[i]);

Par la function elle-même, mais là c'est la fête à NeuNeu, cela me lance des erreurs de violation etc...

Merci à vous 2.
01/02/2009, 17h26
anapurna

salut

je comprend pas bien comment cela peut etre possible
j'évite d'extraire un élément de ta ligne d'origine
je vérifie juste que le neuvième et dixième caractere corespond
a ce que tu cherche comme motif

je ne change en rien l'algo

@+ Phil
01/02/2009, 21h23
BuzzLeclaire

Citation:

Envoyé par anapurna

salut

je comprend pas bien comment cela peut etre possible
j'évite d'extraire un élément de ta ligne d'origine
je vérifie juste que le neuvième et dixième caractere corespond
a ce que tu cherche comme motif

je ne change en rien l'algo

@+ Phil

Je sais bien, mais c'est ce que je constate. C'est d'ailleur hallucinant....lol

Voir 40 message(s) de cette discussion en une page