Discussion :

[SergioMaster]

Bonjour,

ce matin un petit casse-tête à propos de quotedstr, normal aujourd'hui c'est la PenteQuote . Jusqu’à présent j'utilisais commatext surtout dans le sens : j'ai une chaines contenant des séparateurs et je veux analyser chaque partie.
Cette fois j'ai un mémo avec un certain nombre de lignes et je veux obtenir une chaine avec chaque ligne entre quotes et séparée par une virgule.
Donc j'ai un Tmemo, un bouton et un label sur une forme, le mémo contient deux lignes

ligne-1
ligne-2

et je veux obtenir

'ligne-1','ligne-2'

il y a bien sur un moyen classique avec utilisation de boucle mais j'ai voulu faire sans et surprise

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm8.Button1Click(Sender: TObject);
var Quote : String;
begin
Quote:=QuotedStr(',');
Label1.Caption:=QuotedStr(Memo1.Lines.CommaText);
Label1.Caption:=StringReplace(label1.Caption,',',Quote,[rfReplaceAll]);
Label2.Caption:=StringReplace(QuotedStr(Memo1.Lines.CommaText),',',Quote,[rfReplaceAll]);
Label3.Caption:=QuotedStr(StringReplace(Memo1.Lines.CommaText,',',Quote,[rfReplaceAll])); <<< le casse quote !
end;

si label1 et label2 sont conforme à mon attente , j'avais commencé par la formulation de label3 qui me fourni un double quote inexplicable

'ligne-1'',''ligne-2'

une explication ?

[Paul TOTH]

ben si c'est logique QuotedStr ne se contente pas d'ajouter des quotes autour de la chaîne, il double aussi les quotes de ladite chaîne

c'est => 'c''est'

[Cirec]

Bonjour,

en fait pour Label3 tu as inversé QuotedStr et StringReplace
ceci ... :

Code :

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

  Label3.Caption:=QuotedStr(StringReplace(Memo1.Lines.CommaText,',',Quote,[rfReplaceAll]));// <<< le casse quote !

devrait être :

Code :

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

  Label3.Caption:=StringReplace(QuotedStr(Memo1.Lines.CommaText),',',Quote,[rfReplaceAll]);

... mais dès qu'un espace est ajouté dans une ligne ça double les quotes de cette dernière !!!

[Cirec]

re,

cette version semble répondre à tes attentes (avec ou sans espaces)

Code :

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

1
2
3
4
5
6
begin
  Quote:=QuotedStr(',');
  Label1.Caption:=StringReplace(Memo1.Lines.CommaText,'"', '',[rfReplaceAll]);
  Label1.Caption:=QuotedStr(StringReplace(label1.Caption,',',Quote,[rfReplaceAll]));
  Label2.Caption:=StringReplace(Label1.Caption,'''''','''',[rfReplaceAll]);
end;

[SergioMaster]

Bonjour,

en fait pour Label3 tu as inversé QuotedStr et StringReplace

c'est exactement ça, et c'est ce qu'indique Paul

QuotedStr ne se contente pas d'ajouter des quotes autour de la chaîne, il double aussi les quotes de ladite chaîne

jusque là je n'y avais pas fait attention