Discussion :

[Coussati]

salut

j'expose mon problème avec un exemple :

dans edit1.text il y a : aaaa|u|xxxxxxx|ggggggg

jaimerais qu'en apuyant sur bouton1 :

variable 1 = aaaa

variable 2 = u

variable 3 = xxxxxxx

variable 4 = ggggggg

jai mis 4 variable mais il se peut que j'utilise que 2 ou alors 6 ...
donc il faudrait que ce soit général

jai mis : aaaa|u|xxxxxxx|ggggggg
mais si vous trouvez (selon votre code) que c'est plus facile de faire aaaa|u|xxxxxxx|ggggggg| ou alors |aaaa|u|xxxxxxx|ggggggg| ou autres ... et bien ya pas de prob, c'est juste qu'il faut que je sélectionne le tesxte

merci d'avance

[Pedro]

Salut
Alors, je pense que la première chose à faire est de formater le texte à ta convenance:
Si tu as un premier caractère = '|' alors l'enlever ( Delete(s,1,1) )
S'il y a ce caractère à la fin, l'enlever (s:=Copy(s,1,(Length(s)-1));
Enuiste, avec Pos et Copy, tu nécupères chaque bloc de ta string

[Coussati]

Salut
Alors, je pense que la première chose à faire est de formater le texte à ta convenance:
Si tu as un premier caractère = '|' alors l'enlever ( Delete(s,1,1) )
S'il y a ce caractère à la fin, l'enlever (s:=Copy(s,1,(Length(s)-1));
Enuiste, avec Pos et Copy, tu nécupères chaque bloc de ta string

le texte sera affiché comme je veux donc pas besoin de delete, jai di sa pour si sa genai certaine personne

avec copy et post jse po sa marche po
seulement pour le 1er caractere :s

var1 := copy(edit1.text,1,posex('|',edit1.text)-1);
var2 := copy(edit1.text,1,pos('|',edit1.text)-2);
var3 := copy(edit1.text,1,pos('|',edit1.text)-3);
var4 := copy(edit1.text,1,pos('|',edit1.text)-4);

[Pedro]

Eh oui c'est normal, A chaque fois que tu récupères un bloc, il faut supprimer le bloc dans la string, sinon, Pos va tout le temps renvoyer la même position...
Pour cela, utilise Delete et la longueur de la chaine que tu as extrait juste avant +1 pour enlever le caractère '|'
Et enlève les -1,-2, etc... Ils ne servent à rien

Code :

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

1
2
3
4
5
6
7
8
9
 
s:=Edit1.text;
var1 := copy(s,1,pos('|',edit1.text));
Delete(s,1,Length(s)+1); //Je ne suis pas sur que ça marche avec une variable... A tester
var2 := copy(s,1,pos('|',edit1.text));
Delete(s,1,Length(s)+1);
var3 := copy(s,1,pos('|',edit1.text));
Delete(s,1,Length(s)+1);
var4 := s;

[Coussati]

merci de ton aide mais ton code n'a pas fonctionné

mais je viens tout juste de trouver la solution en utilisant ces 2 fonctions :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
function droite(substr: string; s: string): string;
begin
  if pos(substr,s)=0 then result:='' else
    result:=copy(s, pos(substr, s)+length(substr), length(s)-pos(substr, s)+length(substr));
end;
 
function gauche(substr: string; s: string): string;
begin
  result:=copy(s, 1, pos(substr, s)-1);
end;

[Pedro]

Ah bon? Ca n'a pas marché? C'est sur Delete c'est ça?

[Coussati]

rien ne s'est passé

[Pedro]

C'est parce que je me suis trompé:
Bon tu as trouvé mais je mets quand même le code

Code :

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

1
2
3
4
5
6
7
8
9
 
s:=Edit1.text;
var1 := copy(s,1,pos('|',s));
Delete(s,1,Length(s)+1); //Je ne suis pas sur que ça marche avec une variable... A tester
var2 := copy(s,1,pos('|',s));
Delete(s,1,Length(s)+1);
var3 := copy(s,1,pos('|',s));
Delete(s,1,Length(s)+1);
var4 := s;

[Coussati]