Discussion :

[BuzzLeclaire]

Bonjour à tous,

J'ai besoin d'un coup de main.
Comment intervertire 2 chaines à l'interieur d'une même chaine.

Chaine de départ :
"FC000040411010000121208Fact FC000040 test Test test 01 35,88 0,00"

j'aimerais intervertire dans cette chaine
la chaine 1 : " 35,88"
avec la chaine 2 : " 0,00"

Je sais précisement où se trouve ces deux chaines
chaine 1 : commence à 84 et fait 20 caracteres de long
chaine 2 : commence à 104 et fait 20 caracteres de long

Pour obtenir ce résultat :
"FC000040411010000121208Fact FC000040 test Test test 01 0,00 35,88"

Je cherche encore mais j'ai pas trouvé.

Je ne peux pas utiliser StringReplace car la valeur de chaine 1 et chaine 2 change à chaque string, seul 84,20 ne change pas.

Merci pour vos lumière.

[dragonno]

1) mettre dans la variable "partie1" la sous-chaine commençant à la position N de la chaine.

2) mettre dans la variable "partie2" la sous-chaine commençant à la position M de la chaine.

3) Mettre la variable "partie1" à la place de la chaine se trouvant en position M de la chaine.

4) Mettre la variable "partie2" à la place de la chaine se trouvant en position N de la chaine.

[petitcoucou31]

salut

par exemple comme ça..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
function TForm1.permute(st:string):string;
var temp:string;
    deb,fin:integer;
begin
    result:='';
    deb:=55;  // debut de la 1er chaine
    fin:=6;     // fin de la 1er chaine
    temp:=copy(st,deb,fin);
    delete(st,deb,fin);
    result:=st+temp;
end;

Avec ta ligne exemple tes valeurs ne marche pas, j'ai pris 55 et 6
chaine 1 : commence à 84 et fait 20 caracteres de long

bye

[BuzzLeclaire]

Merci de vos reponsés.

Impossble d'utiliser ta proposition, car je ne pourrais pas faire la deuxième permutation qui se trouve sur la même ligne ?

si je remplace "32,88" par "0,00"
et ensuite "0,00" par "32,88"
attention dans le même string
Lors du premier remplacement le nouveau string à 2 fois "0,00" et donc il me remplacera ensuite le premier "0,00" par "32,88"..

je reviens au départ...

Voilà ce que j'ai fais, mais vous aller rire j'arrice pas à faire marcher Lenght()

ptr...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
..
..
// Chaine1 devient chaine2 et vice et versa...
// Ligne est à ma ligne de string.
 
  Chaine1 := AnsiMidStr(Ligne,84,20);
  Chaine2 := AnsiMidStr(Ligne,104,20);
  Ligne := AnsiMidStr(Ligne,0,83)+Chaine2 +Chaine1 +AnsiMidStr(Ligne,124,1254); // 1254 car Lenght(Ligne) marche pas !!!!
 
..
..

[anapurna]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  ChaineRoot := Copy(Ligne,1,84);
  Chaine1 := Copy(Ligne,84,20);
  Chaine2 := Copy(Ligne,104,20);
  ChaineFin := Copy(Ligne,124,length(Ligne)-124);
  Ligne :=   ChaineRoot+Chaine2+Chaine1+ChaineFin;

@+ Phil

[Andnotor]

Encore une autre proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
function Permute(aValue :string) :string;
begin
  SetLength(Result, 124);
  Move(aValue[1],   Result[1],   83);
  Move(aValue[104], Result[84],  20);
  Move(aValue[84],  Result[104], 20);
end;

[BuzzLeclaire]

Merci encore AndNotOr

[Andnotor]

Pas de problème, c'est un plaisir

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.