Format String avec XE2Résolu

Question

Petit problème avec les nouveaux format string de XE2:
après traitement, le mot 'durée' devient 'durÃ©e'
j'ai bien tenté de modifier le format String en AnsiString et UnicodeString mais pas mieux?!?
Qui peux m'aider???

PhilLu

cs_cantador · Answer

Bonjour,
XE2
cantador

PhilLu · Answer

Merci Cantador,
J'ai, comme expliqué, tenté d'utiliser S,L,lign_prec: UnicodeString; et S,L,lign_prec: AnsiString;
mais cela ne change rien?!?
Je ne trouve rien de mieux dans ton lien, y a t'il un format correspondant pour textfile???
Merci pour tes conseils!!!
PhiLu

cs_MAURICIO · Answer

Salut, 

"après traitement, le mot 'durée' devient 'durÃ©e'"
Donne nous le code d' affectation car Delphi n' a aucun problème de gestion de string. 
L' erreur vient donc de la source ...

a+


Composants Cindy pour Delphi
Faites une donation.

Cirec · Answer

Salut,

comme Mauricio le dit sans code on ne peut rien faire.

Il nous faut le fameux "Traitement" 


[hr]@+Cirec
[hr]

Caribensila · Answer

De toute façon, le mot 'durée' qui devient 'durÃ©e' n'est pas dû à l'Unicode qui provoque des bugs bien moins lisibles. ^ ^

PhilLu · Answer

Voici le code (extrait): //-------------Lecture lignes pour mettre en mémoire------------------- procedure TForm1.lignes; var F: textfile; S,L,lign_prec: UnicodeString; //--j'ai assayé String et AnsiString mais pas mieux-- i: Integer; begin AssignFile(F,ExtractFilePath(Application.ExeName)+'/temp/PGP_DEM_raw.log'); Reset(F); repeat Readln(F,S); L:= copy(S,0,49); S:=copy(S,pos(']',S)+1,length(S)); if pos('[ETB]',S)>0 then lign_prec:=copy(S,0,pos('[ETB]',S)-1) else if (S<>' ') AND (copy(S,2,2)<>'H|') AND (copy(S,2,2)<>'L|') then begin i:=i+1; memo1.Lines.Append(lign_prec+S); lign_prec:=''; Label2.Caption:=intToStr(i); end; until EOF(F); memo1.Lines.Append('Timestamp dernière ligne '+L); end; //-------------MAIN PRGM----------------------------------------- procedure TForm1.Button1Click(Sender: TObject); begin Debut := Now; copie_fichier(self); ligne1(self); lignes(self); Label1.Caption:= IntToStr(SecondsBetween(Debut,Now)); end; Merci pour vos avis!!! Aussi qu'est-ce que ceci:{$IFDEF UNICODE}??? PhilLu

Cirec · Answer

re, si le fichier source est en Unicode, TextFile/AssignFile etc. ne le gèrent pas correctement !!! essaye avec un StringList: procedure TForm7.lignes; var S,L,lign_prec: string; //--Note que l'on utilise le type string i, J: Integer; SL: TStringList; begin SL := TStringList.Create; try SL.LoadFromFile(ExtractFilePath(Application.ExeName)+'/temp/PGP_DEM_raw.log'); for J := 0 to SL.Count - 1 do begin S := SL[J]; L:= copy(S,0,49); S:=copy(S,pos(']',S)+1,length(S)); if pos('[ETB]',S)>0 then lign_prec:=copy(S,0,pos('[ETB]',S)-1) else if (S<>' ') and (copy(S,2,2)<>'H|') and (copy(S,2,2)<>'L|') then begin i:=i+1; memo1.Lines.Append(lign_prec+S); lign_prec:=''; Label2.Caption:=intToStr(i); end; end; memo1.Lines.Append('Timestamp dernière ligne '+L); finally SL.Free; end; end; Sinon {$IFDEF UNICODE} permet une compilation conditionnelle en fonction du compilateur utilisé: {$IFDEF UNICODE} Le code placé ici compilera à partir de Delphi 2009 - XE3 ... string = WideString Char = WideChar PChar = PWideChar {$ELSE} Le code placé ici compilera sur les versions antérieurs (D4 - D7 ...) string = AnsiString Char = AnsiChar PChar = PAnsiChar {$ENDIF} [hr]@+Cirec [hr]

cs_MAURICIO · Answer

@Cirec: je ferai le load avec le bon char encoding: 
SL.LoadFromFile(ExtractFilePath(Application.ExeName)+'/temp/PGP_DEM_raw.log', TEncoding.Unicode);

a+



Composants Cindy pour Delphi
Faites une donation.

Cirec · Answer

@Mauricio:
Salut,

je ne pense pas que soit utile lors du chargement.

Pour l'instant mes chargement de fichiers se sont toujours bien passé sans devoir préciser le type d'encodage ... ceci Delphi le fait en toute transparence. Par contre pour l'enregistrement là ça devient utile si on souhaite changer de format.


Sinon il serait sympa d'avoir l'avis de PhilLU

[hr]@+Cirec
[hr]

cs_MAURICIO · Answer

Ha ok 


Composants Cindy pour Delphi
Faites une donation.

PhilLu · Answer

Ben la première solution, c'est pas mieux, et avec la seconde (TEncoding.Unicode), j'obtiens ça:
&#13088;&#12848;&#8241;&#14960;&#12338;&#13105;&#8240;&#21024;&#12584;&#2345;&#17755;&#21583;&#8285;&#20490;&#20551;&#17503;&#19781;&#12832;&#12592;&#12339;&#12851;&#8245;&#13106;&#14388;&#12336;&#14112;&#13368;&#8240;&#14960;&#12338;&#13105;&#8240;&#21024;&#12584;&#2345;&#17755;&#20814;&#8285;&#20490;&#20551;&#17503;&#19781;&#12832;&#12592;&#12339;&#12851;&#8245;&#13106;&#14388;&#12336;&#14112;&#13624;&#8242;&#14960;&#12338;&#13105;&#8240;&#22304;&#12584;&#2345;&#16731;&#19267;&#8285;&#20490;&#20551;&#17503;&#19781;&#12832;&#12592;&#12339;&#12851;&#8245;&#13106;&#14388;&#12336;&#14368;&#13362;&#8249;&#14960;&#12338;&#13105;&#8240;&#21024;&#13608;&#10544;&#23305;&#21587;&#23896;&#18481;&#23676;&#9822;&#31868;&#18556;&#29551;&#24180;&#11825;&#12336;&#31868;&#31868;&#31868;&#20604;&#12668;&#12924;&#12592;&#12339;&#12851;&#12853;&#13363;&#13362;&#23352;&#21059;&#23389;&#21573;&#23896;&#14402;&#17243;&#23890;&#19547;&#23878;&#2592;&#18256;&#24400;&#17732;&#8269;&#12338;&#13105;&#13104;

:-(

PhilLu · Answer

ben zut, chez moi c'était du chinois!!!

Cirec · Answer

peux tu nous fournir une copie du fichier en question afin de pouvoir tester ?



[hr]@+Cirec
[hr]

PhilLu · Answer

En fait, ce fichier contient des noms de patients et provient d'une machine linux.
Je l'ai raccourci et enlevé les noms.
Comment puis-je l'envoyer?

Cirec · Answer

Si le fichier raccourci provoque aussi l'erreur alors tu peux le déposer ici
dans un zip peut être  


[hr]@+Cirec
[hr]

f0xi · Answer

d'une manière générale :


[TStringList / TStrings].LoadFromFile(nom, TEncoding.{Encodage d'origine});
{traitement}
[TStringList / TStrings].SaveToFile(nom, TEncoding.{ANSI ou UTF8});

SergeItIsMe · Answer

et quelle est la solution retenue ? 
 
--

Format String avec XE2

17 réponses

Votre réponse

Discussions similaires