Discussion :

[[ZiP]]

Bonjour,

J'ai un TMemo dans lequel j'ai un texte avec des caractères accentués. Je souhaite remplacer ces caractères par d'autres.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  Avant, Apres : String;
  i : Integer;
begin
     Avant := 'àéèê';
     Apres := 'aeee';
 
     for i:=1 to Length(Avant) do
     begin
          Memo1.Lines.Strings[0] := StringReplace(Memo1.Lines.Strings[0], Avant[i], Apres[i], [rfReplaceAll]);
     end;
end;

Il ne me remplace que le premier caractère accentué trouvé par un caractère bizarre...

Pouvez-vous m'aider à corriger ce problème ?

Merci,
ZiP

[Jipété]

Bonsoir,

(...) Pouvez-vous m'aider à corriger ce problème ?

Non, pour la bonne et simple raison qu'en français, l'accent a pleine valeur orthographique et fait donc partie intégrante du mot.
Un exemple : l'augmentation des retraites et l'augmentation des retraités ce n'est pas la même chose !

Pourquoi veux-tu supprimer ces accents ?

[[ZiP]]

Bonjour,

C'est parce que je dois transférer des fichiers à un système informatique qui n'accepte aucun caractères accentué dans ceux-ci.

Je pense que mon problème vient de l'encodage de ces caractères mais je ne sais pas comment le corriger.

Merci,
ZiP

[Roland Chastain]

Je pense que mon problème vient de l'encodage de ces caractères mais je ne sais pas comment le corriger.

Bonjour !

Les choses sont expliquées dans ce document.

Voici un exemple qui fonctionne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  a: ansistring;
begin
  s := Memo1.Lines.Text;
  a := UTF8ToAnsi(s);
  a := StringReplace(a, UTF8ToAnsi('é'), UTF8ToAnsi('e'), [rfReplaceAll]);
  s := AnsiToUTF8(a);
  Memo1.Lines.Text := s;
end;

[Jipété]

C'est parce que je dois transférer des fichiers à un système informatique qui n'accepte aucun caractère accentué dans ceux-ci.

Mais qu'est-ce qu'il va faire avec ces fichiers sans accents ? Le problème de la cohérence orthographique des données va se déplacer sur ce système !

Refuse, ou à tout le moins, exige des explications (car pour moi c'est juste insensé ce plan).

Sinon, à terme, il y aura des problèmes : une ancienne collègue dont le nom de famille comportait un accent, qui sautait ou pas selon les organismes, a vécu l'enfer.

[EDIT] Ah, j'ai oublié ça : une tâche (à exécuter) n'a rien à voir avec une tache (sur la chemise). D'où la nécessité des accents. Explique-leur ça...
Et tiens, en écrivant ça, je suppose que tu dois faire sauter la cédille aussi ? Ben ça va être joli, le résultat [/EDIT]

[droggo]

Jie,

[EDIT] Ah, j'ai oublié ça : une tâche (à exécuter) n'a rien à voir avec une tache (sur la chemise). D'où la nécessité des accents. Explique-leur ça...
Et tiens, en écrivant ça, je suppose que tu dois faire sauter la cédille aussi ? Ben ça va être joli, le résultat [/EDIT]

J'aime bien également celui-ci :

Il est interne à l'hôpital psychiatrique et Il est interné à l'hôpital psychiatrique.

[[ZiP]]

Bonjour,

Effectivement, votre exemple fonctionne, je l'ai testé ainsi :

Code :

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

Memo1.Lines.Text := AnsiToUTF8(StringReplace(UTF8ToAnsi(Memo1.Lines.Text), UTF8ToAnsi('é'), UTF8ToAnsi('e'), [rfReplaceAll]));

Cependant, lorsque je souhaite utiliser une chaine contenant plusieurs caractères pour le remplacement, ça ne fonctionne plus :

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
   Avant, Apres : String;
   i : Integer;
begin
     Avant := 'àéèê';
     Apres := 'aeee';
 
     for i:=1 to Length(UTF8ToAnsi(Avant)) do
     begin
          ShowMessage(Avant[i]); // n'affiche rien
          ShowMessage(Apres[i]); // s'affiche correctement
          Memo1.Lines.Text := AnsiToUTF8(StringReplace(UTF8ToAnsi(Memo1.Lines.Text), UTF8ToAnsi(Avant[i]), UTF8ToAnsi(Apres[i]), [rfReplaceAll]));
     end;
end;

Merci pour votre aide,
ZiP

[Roland Chastain]

Effectivement.

J'ai trouvé la solution suivante.

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
21
22
23
24
25
26
uses
  LazUTF8;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  AVANT = 'àéèê';
  APRES = 'aeee';
var
  s: string;
  a: ansistring;
  i: integer;
  c1, c2: string;
begin
  s := Memo1.Lines.Text;
  a := UTF8ToAnsi(s);
 
  for i := 1 to UTF8Length(AVANT) do
  begin
    c1 := UTF8Copy(AVANT, i, 1);
    c2 := UTF8Copy(APRES, i, 1);
    a := StringReplace(a, UTF8ToAnsi(c1), UTF8ToAnsi(c2), [rfReplaceAll]);
  end;
 
  s := AnsiToUTF8(a);
  Memo1.Lines.Text := s;
end;

En attendant mieux !

[[ZiP]]

Bonsoir,

C'est assez tordu mais ça marche !

J'ai testé comme ceci chez moi :

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
   Avant, Apres : String;
   i : Integer;
begin
     Avant := 'àéèê';
     Apres := 'aeee';
 
     for i:=1 to UTF8Length(Avant) do
     begin
          ShowMessage(UTF8Copy(Avant, i, 1));
          ShowMessage(UTF8Copy(Apres, i, 1));
          Memo1.Lines.Text := AnsiToUTF8(StringReplace(UTF8ToAnsi(Memo1.Lines.Text), UTF8ToAnsi(UTF8Copy(Avant, i, 1)), UTF8ToAnsi(UTF8Copy(Apres, i, 1)), [rfReplaceAll]));
     end;
end;

Merci !
ZiP

[Roland Chastain]

Merci !

Pas de quoi !

Une autre proposition, peut-être un peu meilleure.

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
  avant, apres, temp: string;
  i: integer;
begin
  avant := UTF8ToAnsi('àéèê');
  apres := UTF8ToAnsi('aeee');
 
  temp := UTF8ToAnsi(Memo1.Lines.Text);
 
  for i := 1 to Length(avant) do
    temp := StringReplace(temp, avant[i], apres[i], [rfReplaceAll]);
 
  Memo1.Lines.Text := AnsiToUTF8(temp);
end;