Discussion :

[gege2061]

Bonjour,

J'ai un problème simple : découper une chaine de caractère à chaque saut de ligne. Par contre la solution l'est beaucoup moins
Voici ce que j'ai fait :

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
procedure TForm1.foo;
var
  query: TStringList;
begin
  query := TStringList.Create;
  Split (chr (10), GetQueryString, query);
end;
 
procedure TForm1.Split (const Delimiter: Char; Input: string; const Strings: TStrings);
begin
  Assert (Assigned(Strings));
  Strings.Clear;
  Strings.Delimiter := Delimiter;
  Strings.DelimitedText := Input;
end;

Le problème c'est que la chaine est découpée à chaque espace

La chaîne à découper provient d'un fichier récupéré via TIdHTTP (par l'intermédiaire de la fonction GetQueryString).

Bien sûr j'ai vérifié que les sauts de lignes étaient bien composés uniquement du caractère 0x0A, que la propriété QuoteChar de ma TString ne correspondait pas à une espace et que les espaces ne correspondent pas au caractère 0x0A (au point ou j'en suis, on ne sais jamais ).

[Bloon]

Pour éviter ça, il faudrait encadrer chaque chaine avec des " par exemple.

Personnellement, j'utilise la fonction de la FAQ :

http://delphi.developpez.com/faq/?pa...chaine#explode

Code :

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

1
2
3
4
5
6
7
procedure TForm1.foo;
var
  query: TStringList;
begin
  query := TStringList.Create;
  extraireMots(GetQueryString,query,true,[#10]);
end;

Bloon

[gege2061]

Pour éviter ça, il faudrait encadrer chaque chaine avec des " par exemple.

C'est dû quoi ? C'est la classe TString qui découpe obligatoirement après chaque espace en plus du délimiteur fourni ?

Personnellement, j'utilise la fonction de la FAQ :

http://delphi.developpez.com/faq/?pa...chaine#explode

Je ne l'ai pas vu celle là ça fonctionne très bien

[Bloon]

C'est dû quoi ? C'est la classe TString qui découpe obligatoirement après chaque espace en plus du délimiteur fourni ?

Oui, d'après l'aide de Delphi :

En écriture de DelimitedText, il faut séparer les chaînes individuelles en utilisant des QuoteChar aux deux extrémités, en utilisant Delimiter comme séparateur, ou en utilisant ces deux méthodes.

En regardant le code de TStrings.SetDelimitedText (unité Classes) il semble considérer les caractères de #1 à ' ' comme étant des séparateurs.

Bloon

[gege2061]

En regardant le code de TStrings.SetDelimitedText (unité Classes) il semble considérer les caractères de #1 à ' ' comme étant des séparateurs.

Suffit de la savoir.

Encore merci pour ton aide

[Sub0]

Salut!

Perso, j'obtiens de meilleures résultats avec le code suivant.
La principale différence, c'est qu'il prend en compte les éléments vides.

Par exemple, si le délimiteur est * et que l'on traîte la chaîne 'Salut*comment**ça va*?*', la fonction retournera 5 éléments contre 4 avec le code de la faq...

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
Procedure StrExplode(Const s, sep: String; list: TStrings);
Var x, l: Integer;
    st: String;
Begin
  l := Length(s);
  If (l <= 0) Then Exit;
  x := 1;
  st := '';
  Repeat
    If (s[x] = sep) Then Begin
      list.Add(st);
      st := '';
    End Else st := st + s[x]; 
    inc(x);
  Until (x > l);
End;

à+

[ArtoS]

Etant donné que Delphi ne propose pas de substr(), voici la fonction que j'ai préparé (désolé si je fais remonter ce sujet, je suis tombé dessus en recherchant une fonction du langage) :

Comme je n'ai pas trouvé cette fonction (pourtant banale) avec ces parametres, je me permet de vous la soumettre, si cela peut aider certains débutants qui se tirent les cheveux .

Merci.

@param :
posdeb : indice de départ de la découpe (inclu)
posfin : indice de fin (inclu)
chaine : chaine à découper.

@retour
renvoie une chaine String extraite de la chaine passée en paramètre.

[edition]
jrajoute la gestion d'erreur tout de même
[/edition]

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
function TForm1.substr(posdeb: integer; pos_fin: integer; chaine: string): string;
var
  new_chaine: string;
  i: integer;
begin
  new_chaine := '';
  if ((length(chaine)+1) > pos_fin) then // je ne sais plus si Delphi gère le >=
  begin
     for i:= posdeb to pos_fin do
     begin
       new_chaine := new_chaine + chaine[i];
     end;
  end
  else new_chaine := chaine; // on lui renvoie sa propre chaine en cas d'erreur.
  Result := new_chaine;
end;

[Aka Guymelef]

Je pense que la fonction Copy native de Delphi répond à ton besoin (bien qu'au lieu de passer un index de fin tu doives passer un nombre de caractères à recopier).

[ArtoS]

Je pense que la fonction Copy native de Delphi répond à ton besoin (bien qu'au lieu de passer un index de fin tu doives passer un nombre de caractères à recopier).

Mdr . En plus j'la connaissais cette fonction .

Ca faisait longtemps que j'avais pas utilisé Delphi. Ca m'apprendra à avoir mal recherché, na !

merci bien ^^.

(d'autant plus que je ne gère pas l'erreur de dépassement de l'index. Dans le cas de mon utilisation, cette erreur ne peut se produire . encore merci)

[Sub0]

Attention, certaines méthodes sont plus performantes que d'autres... Il y avait ce sujet où les membres ont comparé les temps de traitement des différentes solutions pour le découpage d'une chaîne. Le code que je t'ai donné est le plus rapide que j'ai pu trouver. C'est important si tu as beaucoups de texte à traîter...