Discussion :

[freestyler]

bonjour
j'ai une chaine de caractères de la forme:
MyString := 'param1=%par1&param2=%par2&param3=%par3'
ou encore
MyString := 'param1=%par1%par2&param3=%par3'

je veux extraire automatiquement mes paramètres par1, par2, par3.. sachant que chaque paramètre commence par un '%' et se termine
- ou par un '&'
- ou par un '%'
- ou par un ''(chaine vide)

g chopé cette méthide sur le forum:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
procedure extraireMots(s : string; into : TStrings;
                 viderListe : boolean = false; sep : TSysCharSet = ['%' , '&']);
var 
  i, n : integer;
  currentWord : string; 
begin 
  if viderListe then
    into.Clear;
  n := length(s);
  i := 1;
 
  try
  while (i <= n) do
  begin
    currentWord := '';
    { on saute les séparateurs  }
    while (i <= n) and (s[i] in sep) do
      inc(i);
    { récupération du mot courant  }
    while (i <= n) and not (s[i] in sep) do
    begin
      currentWord := currentWord + s[i];
      inc(i);
    end;
    if (currentWord <> '') then
      into.Add(currentWord);
  end;
  except
    on e:Exception do
      ShowMessage(e.Message);
  end;
end;

cette fonction marche nickel.. mais g pas su l'adapter à mon code

qqn a til une idée?.. merci

[freestyler]

g trouvé ça sur le forum

Code :

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

1
2
3
4
5
6
7
8
function extraire_chaine(chaine,debut,fin:string):string;
var
 resultat:string;
 begin
resultat :=copy(chaine,Pos(debut,chaine)+length(debut),length(chaine));
resultat := copy(resultat,0,Pos(fin,resultat)-1);
result := resultat;
end;

donc quand je fais par exemple:

Code :

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

param1 := extraire(MyString, '%', '&')

ça m'affiche bien par1.

mais comment écrire l'algo de mon pb?? merci..

[PadawanDuDelphi]

Bonjour repart à chaque fois de ta nouvelle chaîne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
type 
TString = array of string;
 
function extraire_chaine(chaine,debut,fin:string):Tstring;
var
 sep1, sep2,taille : integer;
  resultat:string;
  retour : TString;
 
 begin
taille := 0;
 
While ( fin de ta chaine ) do // a toi d'ecrire ta condition, lier au renvoi de la valeur de pos (aide F1) lorsqu'elle trouve rien (j'ai pas Delphi sur moi la...)
  sep1 = pos('%',chaine);
  sep2= pos('&',chaine);
  resultat :=copy(chaine,pos1,pos2);
  taille := taille+1;
  setlength(retour,taille);
  retour[taille-1]:=resultat;
  chaine := copy(chaine,pos2,fin);
end;
 
  result := retour;
end;

J'espère que ca t'aideras

[freestyler]

marci deja de ta réponse...

g essayé de bidouiller ton code..
d'abord, à quoi sert début et fin?
et puis, la méthode copy attend des indexes et pas des strings..

ensuite, je ne sais pas si les caractères % et & sont alternés comme tu le supposes dans le code..

[PadawanDuDelphi]

debut et fin ne servent à rien, c'est juste une reprise de ton code...

Concernant les séparateurs, je suis pa un expert du Delphi, mais tu pourrais faire un truc du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sep1 = pos('%',chaine);
 sep2= pos('&',chaine);
if sep1>sep2 then sepDepart := sep2 else sepDepart := sep1;
 chaine := copy(chaine,pos2,length(chaine));  // recreation de ta chaine a partir de ton premier separateur
  sep1 = pos('%',chaine);
 sep2= pos('&',chaine);
if sep1>sep2 then sepArrivee := sep2 else sepArrivee := sep1;

  resultat :=copy(chaine,sepDepart,sepArrivee);
 taille := taille+1;
  setlength(retour,taille);
  retour[taille-1]:=resultat;
  chaine := copy(chaine,sepArrivee,length(chaine));

Après y a surement moyen de faire mieux...

[freestyler]

bon, j'ai réussi avec ça..
je vous le file au cas ou ça intéresserait qqn...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
begin
myString := 'ab=%par1%par2&xxxx%par3'
 
lstParam := TStringList.Create;
 
for i := 0 to Length(myString)- 1 do
begin
if myString [i]= '%' then
  begin
    temp_myString  := copy(myString, i, Length(myString ));
    k:= pos('%', copy(myString , i+1, Length(myString )))-1;
    h:= pos('&', temp_myString );
 
    if (k<=0)And (h>0) then min :=h
    else
      if (h<=0)And (k>0) then min:=k
        else
          if (k<=0)And (h<=0) then min := 0
            else min:= Math.Min(k, h);
 
    if min = 0 then
      lstParam.Add(droite(myString[i], temp_myString ))
        else
          lstParam.Add(extraire_chaine(tempmyString, myString[i], temp_myString[min]));
  end;
end;

tout en rappelant que:
- extraire_chaine :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
// extraire une sous-chaine (result) entre 2 autres chaines (ou séparateurs : début et fin) dans une même chaine (chaine)
function extraire_chaine(chaine,debut,fin:string):string;
var
 resultat:string;
 begin
resultat :=copy(chaine,Pos(debut,chaine)+length(debut),length(chaine));
resultat := copy(resultat,0,Pos(fin,resultat)-1);
result := resultat;
end;

et que droite:

Code :

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

1
2
3
4
5
6
7
 
/// fonction qui renvoie la sous-chaine située à droite de la sous-chaine substr dans la chaine s
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;

Pourvu que ça plaise

Le résultat si on fait:

Code :

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

1
2
3
 
for I := 0 to lstParam.Count - 1 do
  ShowMessage(lstParam[i]);

on aura successivement:
par1
par2
par3