Discussion :

[Galet]

Bonjour,
Comme suite au sujet https://www.developpez.net/forums/d2...er-array-json/ sur lequel je n'ai pas voulu me greffer.

Le format des fichiers Json a plusieurs versions au niveau des fins de ligne. Je rencontre notamment :

et


Avec mon code de lecture du fichier :

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
function LoadFileToStr(const FileName: TFileName): String;
var
  FileStream: TFileStream;
  Bytes:      TBytes;
 
begin
  Result := '';
  FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    if FileStream.Size > 0 then
    begin
      SetLength(Bytes, FileStream.Size);
      FileStream.Read(Bytes[0], FileStream.Size);
    end;
    Result := TEncoding.ANSI.GetString(Bytes);
  finally
    FileStream.Free;
  end;
end;

Le CR+LF déclenche une exception mais pas le LF seul.

J'ai trouvé plusieurs solutions plus ou moins complètes pour retrouver un format adéquat et constant.
Existe-t-il un moyen efficace et simple de résoudre ce problème ?

Belle journée à tous ...

[SergioMaster]

Bonjour,

la question que je me pose ce n'est pas tant que le format ait deux types LF ou CR LF mais pourquoi le lire dans un Stream ?
as-tu essayé ClientDataset, a moins que ce ne soit pas un fichier lisible par ce composant ?
Cela étant la version de Delphi à surement un rôle prépondérant

[ShaiLeTroll]

Pourquoi ne pas laisser ParseJSONValue lire directement le TBytes ?
ANSI comme encoding me choque, le fichier est en Windows1252 ce n'est pas très multi-plateforme et donc si il y a du LF et CRLF, j'utiliserais UTF8.
Pas de BOM ?


ClientDataset déconne déjà avec le XML selon les versions, surtout en 64Bits de D10 ... et le format c'est la structure MIDAS pas une structure libre.
Ce n'est pas plutôt FireDAC qui a un connecteur JSON

[pprem]

Hello

Tu devrais remplacer ton truc par Toile.ReadAllText() de System.IOUTils

Pour l'interprétation du JSON, par quoi passes-tu ? System.JSON et donc son parking ou une autre librairie ?

[wheel]

L'encodage et le séparateur de ligne peuvent être réglé aisément avec TStringList .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function LoadFileToStr(const FileName: TFileName): String;
begin
  with TStringList.Create do
  try
    LoadFromFile(FileName);
    LineBreak:=#10;
    Result:= Text; 
  finally
    Free;
  end;
end;

[Galet]

Bonjour,

@Wheel : Merci, ta solution fonctionne parfaitement

@PPrem :

Pour l'interprétation du JSON, par quoi passes-tu ? System.JSON et donc son parking ou une autre librairie ?

Le traitement est, pour mes premiers essais, fait par un TJsonTextReader qui fait son job.

@ShaiLeTroll :

ANSI comme encoding me choque, le fichier est en Windows1252 ce n'est pas très multi-plateforme et donc si il y a du LF et CRLF, j'utiliserais UTF8.

UTF8 est probablement le meilleur Encoding mais il me retourne la même exception.

@SergioMaster :

as-tu essayé ClientDataset, a moins que ce ne soit pas un fichier lisible par ce composant ?

Comme je suis noob en base de données (Il faudrait que je m'y attelle sérieusement ...), je ne connais pas assez ses composants. J'ai commencé à aller voir du côté des Tutos mais je manque sérieusement de temps

Merci à tous les 4 pour ces pistes. Je vais commencer par appliquer celle de Wheel pour avancer sur les autres points. Je vais tout de même tenter de mettre un ClientDataSet sur ma fiche pour voir le résultat...
Bon WE et belle journée...