Discussion :

[Invité]

Bonjour à tous.
Je rencontre un problème au boulot.

J'ai une chaine :

sChaine := Format('%s %s "%s" ', [info1, info2, info3]);

Jusque là pas de soucis. Mais la chaine info3 peut contenir des guillemets.
Ici, si Info3= 'param="3" ' le résultat sChaine est tronqué, forcément.

En C on a l'anti slash... mais en delphi ?

Des idées?

Merci d'avance.

[Clorish]

je ne comprends pas trop ce que tu veux faire ?

Pour utiliser des apostrophes (ou cotes) dans uen chaine il faut la doubler :

Code :

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

1
2
 
S := 'Exemple d''utilisation d''appostrophes dans uen chaine';

Si le contenue de la variable est une chaine de caracteres manipulé a l'execution, cela ne pose aucun de problemes.
Sauf bien sur si derriere tout ca on a un interpreteur de code pascal ....

[Jipété]

Salut,

euh, j'ai pas tout compris, là... Enfin, si, mais je ne vois pas le problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  schaine, info1, info2, info3 : string;
begin
  info1 := 'bidon';
  info2 := 'deux mots';
  info3 := 'tralala="tsointsoin"';
  sChaine := Format('%s %s "%s" ', [info1, info2, info3]);
  ShowMessage(schaine);  // -> bidon deux mots "tralala="tsointsoin""
  sChaine := Format('%s %s %s ', [info1, info2, info3]);
  ShowMessage(schaine);  // -> bidon deux mots tralala="tsointsoin"
end;

Mes 2 cts,
--
jp

[Invité]

Oui, mais là ce ne sont pas des quotes mais des guillemets.

La chaine résultat, sChaine doit pouvoir ressembler à ceci :
sChaine := 'Salut les amis, comment ça va, "Bien?" ';

Peut importe la raison du "bien" ou plutôt des guillemets (je vais vous passer les détails )

Ma chaine est bien sûr constituée de plusieurs paramètres, je la construit à la volée.
sChaine := Format('%s %s "%s"', [info1, info2, info3]);

Si info3 contient un guillemet (par exemple ' Très " bien'), ca ne fonctionne plus.






J'ai des remords avec mon exemple pourri. Il n'est pas plus simple que le cas réel.
En fait je créé une StringList.
J'ai ma stringLit.CommaText := Format('%s, %s, "%s"', [a,b,c]);
"c", le dernier paramètre peut être n'importe quoi. C'est la ligne contenu dans un log. En particulier , j'ai des valeurs de paramètres. PAram="3" ... etc...
Dans ce cas, c'est tronqué (forcément " param="3"", le compilateur ne s'y retrouve pas).
Je voudrais que la syntaxe param=\"3\" soit comprise la le compilateur (chose courante dans d'autres langages)

Pourquoi, à la base, je veux entourer mon dernier %s par des guillemets? Car le tout est affecté à un TStringGrid qui n'apprécie pas trop les espaces (ligne tronquée).

Voilà.

[Invité]

Très bien l'exemple. Je le modifie pour illustrer mon problème. Ca va être plus clair :

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.Button1Click(Sender: TObject);
var
  schaine, info1, info2, info3 : string;
begin
  info1 := '"bidon"';
  info2 := '"deux mots"';
  info3 := 'tralala="tsointsoin"';
  sChaine := Format('%s %s "%s" ', [info1, info2, info3]);
 
  StringGrid1.Rows[1].CommaText := sChaine;
 
 // ShowMessage(schaine);  // -> bidon deux mots "tralala="tsointsoin""
//  sChaine := Format('%s %s %s ', [info1, info2, info3]);
//  ShowMessage(schaine);  // -> bidon deux mots tralala="tsointsoin"

La 3eme colonne contient uniquement tralala=

Buggg !!!
Et sans les " c'est encore pire, car il fait une colonne par espace. C'est poru ça que j'ai modifié

info1 := '"bidon"';
info2 := '"deux mots"';

[Clorish]

C'est bien ce que je dit
tu confonds execution et compilation.

Oui le compilo ne s'y retrouve pas .. or PAram3 (ou c) est affecté a l'execution, donc le compilo est deja passsé par la.

D'autre par, le caractere de chaine est la cote ' et non pas le guillement " comme dans certaint langages.
donc tant que tu n'utilise pas de cotes, et ce AVANT la compilation (c'est a dire sous forme de chaine textuelle dans le code) il n'y a aucun soucis.

Sauf :
- Si tu utilise un composant d'interpretation/Compilation/Execution dynamique de code pascal (ie Scripts) a l'execution
- Si tu utilise cette chaine comme support a la generation de code d'u nautre langage, de requettes SQL, bref de tout autre syntaxues utilisant les guillemets comme caracteres de chaine.

A noter quand meme que dns les langages utilisant les guillemets, ils utilise le double formatage de chaine : cote/guillement, donc en commencant ta chaine par des cotes, tu n'as pas de soucis lors de l'itilisation des guillements.

Sinon si ton probleme viens d'un contexte de gestion de fichiers logs, il est fort possible que l'erreur vienne du buffer d'ecriture. Si le fichier n'est pas fermé (ou le buffer vidé) apres chaques ecriture, une erreur cloturant l'application brutalement, ne permet pas de fermer proprement le fichier donc, de vider le buffer.

Le hasard faisant que le dernier caractere affiché corresponde aux " est surprenant mais tout a fait envisageable.

Pad'Bol

[Clorish]

Code :

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

1
2
 
  StringGrid1.Rows[1].CommaText := sChaine;

et pourquoi pas directement

Code :

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

1
2
3
4
 
  StringGrid1.Cells[1, 1] := Info1;
  StringGrid1.Cells[1, 2] := Info2;
  StringGrid1.Cells[1, 3] := Info3;

[Edit] : Modification du code

[Clorish]

La propriété CommaText permet de définir ou d'obtenir toutes les chaînes de l'objet TStrings dans une seule chaîne délimitée par des virgules.

En récupérant CommaText, toute chaîne de la liste contenant des espaces, des virgules ou des apostrophes est placée entre guillemets; les guillemets à l'intérieur des chaînes sont répétés. Par exemple, si la liste contient les chaînes suivantes:

Chai,ne 1
Chai"ne 2
Chaine 3
Chaine4

CommaText renvoie:

"Chai,ne 1","Chai""ne 2","Chaine 3",Chaine4

donc, suffit de doubler les " :

Code :

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

S := ' PAram3=""3"" '

[Invité]

car StringGrid1.Rows[1] est du type TStrings, et pas string. C'est une liste (qui correspond aux colonnes).

CommaText est un moyen simple (et de bon goût) affecter toutes les valeurs.

Donc là... j'avoue que je ne vois pas comment m'en sortir.

[Clorish]

remonte la discussion, nos messages se sont croisés et j'ai editer mon post.

[Invité]

remonte la discussion, nos messages se sont croisés et j'ai editer mon post.

Oui je viens de voir ça. MErci pour ta réactivité

donc, suffit de doubler les " :

J'avais essayé mais ça ne fonctionnait pas.
Avec ton exemple, si... je regarde dans mon appli.

[Jipété]

Yep !
Joue avec ça :

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 TForm1.Button1Click(Sender: TObject);
var
  schaine, info1, info2, info3 : string;
begin
  info1 := '"bidon"';
  info2 := '"deux mots"';
  info3 := 'tralala="tsointsoin"';
//  sChaine := Format('%s %s "%s" ', [info1, info2, info3]);
//  ShowMessage(schaine);  // -> bidon deux mots "tralala="tsointsoin""
  sChaine := Format('%s %s %s ', [info1, info2, info3]);
//  ShowMessage(schaine);  // -> bidon deux mots tralala="tsointsoin"
  StringGrid1.Cells[0, 1] := Info1;
  StringGrid1.Cells[1, 1] := Info2;
  StringGrid1.Cells[2, 1] := Info3;
  StringGrid1.Rows[2].CommaText := sChaine;
end;

1re rangée : bidon et deux mots sont guillemétés ;
2de rangée : pas guillemétés.
Dans les 2 cas, la 3e colonne contient tralala="tsointsoin"
--
jp

[Invité]

Voilà. J'ai réussis à isoler mon problème. Je passe par une TStringList intermédiaire dans mon appli, et ça coince.

Ceci recréé le problème et ne le solutionne pas.

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
procedure TForm1.Button2Click(Sender: TObject);
var
  FileLine : string;
  ALine: TStringList;
begin
  {une ligne brut de pomme, extraite du ficbier}
  FileLine := '20070914104646,INFO203,systeme,_,T89990ARC,3001, "(10.201.1.232) Réception DataAvailable Handler: <!value mod="3" parm="710" instance="0" curr="4:3" />';
  ALine:= TStringList.Create;
  try
    {la ligne est assignée à la stringList. De cette manière, chaque valaur}
    {est accessible par indexe. ALine[0], ALine[4]...}
    ALine.CommaText := FileLine;
    ShowMessage(ALine.CommaText);
 
    StringGrid1.Cells[1,1] :=   '"'+ALine[6]+'"';
  finally
    ALine.Free;
  end;
 
end;

[Clorish]

Code :

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

FileLine := '20070914104646,INFO203,systeme,_,T89990ARC,3001, "(10.201.1.232) Réception DataAvailable Handler: <!value mod="3" parm="710" instance="0" curr="4:3" />';

Ouaip ... sauf que je ne vois toujours pas de "" dans ta chaine ....
donc a priori c'est normal que ca "plante"

Essaye plutot avec ca :

Code :

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

FileLine := '20070914104646,INFO203,systeme,_,T89990ARC,3001, ""(10.201.1.232) Réception DataAvailable Handler: <!value mod=""3"" parm=""710"" instance=""0"" curr=""4:3"" />';

[Invité]

C'est pas si simple, hein?
On croit tout savoir sur les chaines et puis...
Bientôt le w/e, ca va me faire du bien.

Effectivement, ta ligne était presque bonne. En fait, ca fonctionne avec :

FileLine := '20070914104646,INFO203,systeme,_,T89990ARC,3001, "(10.201.1.232) Réception DataAvailable Handler: <!value mod=""3"" parm=""710"" instance=""0"" curr=""4:3"" />"';


Je "double quotais" le caractère du début de chaine (en gras) comme toi.
Clorish, merci infiniment pour ton aide.
Je te verse ma journée de salaire


A bientôt


ps: Pb résolu.

ps2:

Neukoln
Invité de passage

Je peux rester un peu?

[Jipété]

Clorish, merci infiniment pour ton aide.
Je te verse ma journée de salaire

Et moi ch'suis qu'un blaireau ?
--
jp

[Clorish]

ok j'ai trouvé la syntaxe :

Code :

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

FileLine := '20070914104646,INFO203,systeme,_,T89990ARC,3001, "(10.201.1.232) Réception DataAvailable Handler: <!value mod=""3"" parm=""710"" instance=""0"" curr=""4:3"" />"';

Donc, ComaText decoupe la chaine en N souchaine en utilisant le caractere de separation : Virgule.
toutes les chaines contenant les caracteres : Espace, Guillemet, virgule, appostrophe, etc ... debute et se termine par ".
Pour gerer les " dans la chaine, il faut doubler ce caractere ....

En fait, je te conseille de respecter la syntaxe suivante : "<chaine>", "<chaine>", ... et en doublant les " dans les chaines.

[Clorish]

C'est pas si simple, hein?
On croit tout savoir sur les chaines et puis...

En fait si .. tout etait dis dans la doc ... j'ai juste lut de travers

En récupérant CommaText, toute chaîne de la liste contenant des espaces, des virgules ou des apostrophes est placée entre guillemets; les guillemets à l'intérieur des chaînes sont répétés.

Mais t'as raison sur un point : Vive le WE

Et moi ch'suis qu'un blaireau ?

T'en fais pas ... j'ai toujours rien recu
Mais promis .. on partage

[Invité]

En fait, je te conseille de respecter la syntaxe suivante : "<chaine>", "<chaine>", ... et en doublant les " dans les chaines.

Tu as tout à fait raison.

Pardon Jipété d'avoir heurté ta sensibilité.
Je suis vraiment heureux d'avoir obtenu de l'aide sur ce forum. Donc merci à TOUS !