Discussion :

[Charly910]

Bonjour ,

j'essaye d'afficher le contenu d'un fichier Txt dans un Memo :

__Test.txt

je fais :

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
Procedure TForm1.Button3Click(Sender: TObject);
Var
  Ligne : String ;
  F1, F2 : TextFile ;
Begin
  AssignFile(F2, '__Test.txt');
  AssignFile(F1, '__Test2.txt');
  Reset(F2);
  ReWrite(F1);
  While not Eof(F2)  Do
    Begin
      Readln(F2, Ligne) ;
      M1.Lines.Add(Ligne) ;
      Writeln(F1, Ligne) ;
    End ;
  CloseFile(F2);
  CloseFile(F1);
End ;

avec Notepad, dans __Test.txt et aussi dans __Test2.txt j'ai bien :

Caption = '180°'
Caption = 'Angle en ° :'

mais dans le memo M1 j'ai :

Caption = '180°'
Caption = 'Angle en ° :'

et ça m’énerve, car je ne trouve pas pourquoi !

pourquoi le ° se transforme en ° ?

A+
Charly

[Charly910]

Effectivement, mon fichier contient les caractères C2 et B0 soit  et º et le caractère  ne s'affiche pas sous Notepad.

Comment puis éliminer ce caractère parasite ?

A+
Charly

[Charly910]

Bon, j'ai fait :

Code :

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

1
2
      Index := Pos(#194, Ligne) ;
      If Index > 0 Then Delete(Ligne, Index, 1) ;

ça marche, mais comme mon fichier Txt est un extrait d'un fichier DFM, je me demande s'il ne peut pas y avoir d'autres caractères polluant ?

je me demande aussi pourquoi il y a ce caractère #194 dans ce fichier DFM ?

Si quelqu'un peut m'éclairer ?

A+
Charly

[acaumes]

Bonjour,

Effectivement, mon fichier contient les caractères C2 et B0 soit  et º et le caractère  ne s'affiche pas sous Notepad.

Ton fichier est codé en UTF8 (sous D7 ce sera difficile de le voir correctement (Si je me souviens bien D7 est uniquement ANSI))

Vois si tu peux coder ton fichier en ANSI (on peut sous mon éditeur de texte directement) sous Notepad c'est enregistrer sous là il y a un choix de la codification... Il faut choisir ANSI.

Cordialement

[ShaiLeTroll]

D7 cela doit être UTF8Decode, les noms des fonctions depuis 25 ans ont du changé 3-4 fois, maintenant c'est TEncoding.UTF8.Decode()

NotePad affiche en bas l'encodage (sur les anciens Windows, on le voit au moment d'un Save As)

Code :

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

1
2
3
Readln(F2, Ligne) ;
      M1.Lines.Add(UTF8Decode(Ligne)) ;
      Writeln(F1, Ligne) ;

[Charly910]

Bonjour,

merci pour vos réponses. Je me doutais bien que c'était une histoire de Charset. Effectivement c'est UTF8Decode ou UTF8ToAnsi (qui ont l'air équivalentes).

Par contre si la chaine ne comporte pas de caractères UTF8, les fonctions renvoient une chaine vide. Il faut donc faire :

Code :

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

1
2
3
      Chaine := UTF8Decode(Ligne) ;
      If Chaine <> EmptyStr Then  Ligne := Chaine ;
      M1.Lines.Add(Ligne) ;

Merci encore
A+
Charly

[Charly910]

Non je me trompe : UTF8Decode renvoie toujours la bonne chaine, même si il n'y a pas de caractère UTF8 !

mea culpa

A+
Charly