Discussion :

[Cézarbi]

Bonjour,

Toujours débutant et maintenant en retraite, j'essaie de convertir mes vieilles applis perso - faites en Delphi 3 et 7 - en Lazarus 1.8 installé ces jours-ci.

J’ai un fichier contenant des notes que j’ouvre dans une StrinGrid.
Quand je l’ouvre avec l’exe Delphi, dans toutes les cellules de la StringGrid, les lettres accentuées sont correctement lues.
Quand je l’ouvre avec l’appli Lazarus, dans les cellules, à la place des é, è, à, ë, ù, il y a des ? que je remplace avec une fonction qui change tous les ? en é et je sauvegarde.
(Je sais que c’est idiot de remplacer tous les é, à, ù etc… par é, mais il fallait bien essayer qq chose );;;

par ex : num?ros corrigé donne bien numéros dans l’exe Lazarus, et est bien relu numéro à la réouverture.
Mais alors, dans l’exe Delphi c’est lu numĀ©ros …
Sachant que j’ai au minimum 3000 cellules à corriger à la main (sur 15.000)
Au secours… Faut-il tout réécrire et abandonner Delphi ???

J'ai lu la FAQ et quelques forums, mais n'ai rien compris, parce que si vous, vous savez de quoi vous parlez, moi pas...

Pour expérimenter j'ai placé sur la StringGrid un bouton et un Edit dans lequel j'ai copié le contenu d'une cellule :

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
27
28
29
procedure TRepert.Bouton1Click(Sender: TObject);
var s:string;
begin
   Edit1.Text := Grille.Cells[7,2];                           // Ensuite j'ai utilisé une boucle pour toutes les cellules [I, J]
   s := Edit1.Text;
   Edit1.Text := Widestring(StrReplace ('?', 'é',s));  // Widestring ou pas c'est pareil = change bien Tous les ? en é
   Grille.Cells[7,2]:= Edit1.Text;
   Edit1.Text:='';
end; 
 
function StrReplace(Substr,replace,s:string):string;
{============================================================================}
{remplace toutes les sous-chaines Substr par replace                         }
{ ex : StrReplace ('toto', 'tata', 'le toto est ..') renvoie 'le tata est ..'}
{============================================================================}
var ChaineSource,ChaineCible:string;
    i,TailleChaineRemplacement:integer;
begin
  ChaineSource:=s;
  ChaineCible:='';
  TailleChaineRemplacement:=length(Substr);
  while pos(Substr,ChaineSource)>0 do  //tant que l'on trouve une sous-chaine
  begin
    i:=pos(Substr,ChaineSource)-1;      // position de la sous-chaine à remplacer
    ChaineCible:=ChaineCible+copy(ChaineSource,1,i)+replace;
    delete(ChaineSource,1,i+TailleChaineRemplacement);    //on retire de chaineTemp
  end;
  Result:=ChaineCible+ChaineSource;
end;

Et si ça fait pareil pour toutes mes BD, etc... je suis mal parti...

A vous lire avec attention.

[acaumes]

Bonjour,

1/ Je penses que tu aurais du ouvrir une autre discussion pour cette question. [tourlourou EDIT = traité, merci]

2/ Penses aux balises Code [tourlourou EDIT = traité, merci]

3/ Les fonctions à utiliser dans LAZARUS sont UTF8ToWinCP et WinCPToUTF8 pour passer de l'encodage ANSI Windows utilisé par Delphi (avant 7 je crois) vers l'encodage UTF8 utilisé par LAZARUS.

Cordialement

[mm_71]

J’ai un fichier contenant des notes que j’ouvre dans une StrinGrid.

Tu peux aussi faire une copie de tes fichiers et les convertir en UTF8 pour les utiliser avec Lazarus.

[BeanzMaster]

Bonjour

Les fichiers textes que tu ouvres dans le stringgrind sont certainement en ansi. Essaye simplement d'ouvrir ton fichier dans NotePad++ https://notepad-plus-plus.org/fr/ et convertis le en UTF8 sans bom cela devrait résoudre le problème des caractères accentués sans passer par une fonction.



Si tu as beaucoup de fichier tu peux essayer cet outils https://www.rotatingscrew.com/utfcast-express.aspx

ou sous windows dans powershell tu peux tenter ce script : % foreach($i in ls -name DIR/*.txt) { get-content DIR/$i | out-file -encoding utf8 -filepath DIR2/$i } en changeant DIR et DIR2 par tes dossiers "source" et "cible"

Bonne fin de dimanche

[Cézarbi]

Bonjour,
Merci pour vos réponses.

Acaumes : tu as raison, j’aurais dû ouvrir une autre discussion… Je m’en suis rendu compte après…

mm_71 et BeanzMaster : J’ai essayé la conversion en UTF-8 avec Notepad++ qui donne effectivement un résultat quant au texte, mais ensuite, l’ouverture dans la StringGrid est plutôt cocasse… Tous les string sont décalés harmonieusement dans les cellules…

Je n’ai pas encore essayé avec des textes ouverts dans des memo. Chaque chose en son temps.

powershell qui ne m’est pas du tout familier. Autre sujet de découverte… pour le fichier C:\TOOLS\PTT\Memo.txt

Code PowerShell :

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

% foreach($i in ls -name C:\TOOLS\PTT/Memo.txt) { get-content C:\TOOLS\PTT/$i | out-file -encoding utf8 -filepath C:\TOOLS\PTT\AA/$i }

Message erreurs :

Au caractère Ligne:1 : 14
+ % foreach($i in ls -name C:\TOOLS\PTT/Memo.txt) { get-content C:\TOOL ...
+              ~~
Jeton inattendu « in » dans l’expression ou l’instruction.
Au caractère Ligne:1 : 13
+ % foreach($i in ls -name C:\TOOLS\PTT/Memo.txt) { get-content C:\TOOL ...
+             ~
Parenthèse fermante « ) » manquante dans l’expression.
Au caractère Ligne:1 : 47
+ % foreach($i in ls -name C:\TOOLS\PTT/Memo.txt) { get-content C:\TOOL ...
+                                               ~
Jeton inattendu « ) » dans l’expression ou l’instruction.
    + CategoryInfo          : ParserError: (:) [], ParentContainsErrorRecordException
    + FullyQualifiedErrorId : UnexpectedToken

J'ai des progrès à faire.

A vous lire

Cordialement

[mm_71]

Tous les string sont décalés harmonieusement dans les cellules…

Une copie d'écran serait la bienvenue.