Discussion :

[Sylvain255]

Bonjour,
j'ai écrit avec un TStringList des chaînes dans un fichier texte CSV mais les lettres accentuées sont remplacées par des points d'interrogation dans LibreOffice Calc.
J'ai essayé de passer les chaînes que j'ajoute au TSTringList avec la fonction utf8encode mais bizarrement même résultat.
En ouvrant le fichier que j'ai passé par utf8encode avec Notepad++ je vois qu'il est en Ansi !
On dirait que le TStringList.savetofile n'enregistre qu'en Ansi
Merci de m'aider car là je ne sais plus quoi faire !
Bien cordialement

[pprem]

Bonsoir

Si ça s'affiche correctement sur Notepad++ l'autre chose sur laquelle tu peux agir c'est de comprendre pourquoi LibreOffice force en UTF-8 au lieu de te demander l'encodage à l'ouverture comme le fait OnlyOffice. Peut-être y a-t-il un paramètre quelque part dans Calc ?

[Sylvain255]

ça s'affiche correctement dans Notepad++ car il détecte l'encodage Ansi et l'affiche en Ansi
On peut choisir l'encodage sur LibreOffice Calc mais je le veux en UTF8

[Charly910]

Bonjour,

il existe des fonctions de conversion des chaines UTF8
Tu peux traiter le fichier issu du SaveToFile ?

A+
Charly

[Sylvain255]

j'ai essayé avec utf8encode et ansitoutf8 et avec un TStringlist ou avec la procédure sur http://delphipage.free.fr/fichiertexte.html mais c'est toujours en Ansi ! Ces fonctions n'ont aucun effet

[Andnotor]

On dirait que le TStringList.savetofile n'enregistre qu'en Ansi

Par défaut mais tu peux forcer l'encodage : SaveToFile('fichier.csv', TEncoding.UTF8);

[Sylvain255]

merci avec ça ça marche

[Charly910]

Bonjour,
tu pourrais quand même donner un exemple de ton fichier Csv, pour que je fasse des tests ? en particulier avec des anciennes versions de Delphi.

J'avais déjà eu un problème similaire que j'avais résolu avec UTF8ToAnsi ( et l'inverse doit fonctionner ?)

Merci
A+
Charly

[Sylvain255]

mon code est compliqué mais j'ai Delphi 10.3 et j'ai juste fait :

Code :

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

1
2
3
liste.clear;
liste.append(ansitoutf8(motavecaccents));
liste.savetofile('fichier.csv');

Bonjour,
tu pourrais quand même donner un exemple de ton fichier Csv, pour que je fasse des tests ? en particulier avec des anciennes versions de Delphi.

J'avais déjà eu un problème similaire que j'avais résolu avec UTF8ToAnsi ( et l'inverse doit fonctionner ?)

Merci
A+
Charly

[Charly910]

Ok, merci je vais essayer avec D10.4

A+
Charly

[ShaiLeTroll]

Je vais ajouter une précision, SaveToFile('fichier.csv', TEncoding.UTF8); ajoute un BOM en début de Fichier régit par la propriété WriteBOM