[DELPHI] [EXCEL] Codage décodage des langues

**dlambert** · 28/02/2017, 16h05

Bonjour

J'ai un fichier Excel (retour de chez les traducteurs) qui nous donnent la traduction en 8 langues, dont le chinois, japonais et russe) des quelques 6000 textes utilisés par notre logiciel.

Aujourd'hui toutes les traductions sont reportées par copié / collé du fichier Excel vers des fichiers .ini sous notepad ++

Je voudrais automatiser et lire le fichier excel et générer les fichiers INI par programme.
J'utilise GetActiveOleObject('Excel.Application')

J'accède sans problème au fichier Ecel
J'accède sans problème à l'ensemble de mes cellules

Mais pour les textes Chinois, Japonais et Russe, je n'arrive pas à récupérer les bons "string"

J'utilise un range pour aller plus vide
lStr := lArrayValeur[xi, lColonneDE + 6];

lArrayValeur : Array of Variant
J'ai essayé lStr en String, WideChar.

Rien, juste des points d'interrogation

Avez vous une piste
Dominique

**retwas** · 28/02/2017, 16h30

Peut être un problème d'unicode ?

Pourquoi ne pas utiliser directement le TExcelApplication (uses Excel2010) ?

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
30
31
32
33
var
  Excel : TExcelApplication;
  Page  : TExcelWorkbook;
  ID, i : integer;
begin
  Excel := TExcelApplication.Create(nil);
  Page := TExcelWorkbook.Create(nil);
 
  try
    ID := GetUserDefaultLCID;
    Excel.Visible[ID] := False;
 
    Page.ConnectTo(Excel.Workbooks.Open('mon_fichier.xls',
                   emptyparam, emptyparam, emptyparam, emptyparam,
                   emptyparam, emptyparam, emptyparam, emptyparam,
                   emptyparam, emptyparam, emptyparam, emptyparam, ID));
 
    // récupération de la valeur des cellules
    for i := 1 to 500 do // si fichier de 500 lignes
    begin
      ShowMessage(Page.Worksheets[1] as _Worksheet).Cells.Item[i, 2]); // pour la 2eme colonne
    end;
 
    Excel.Visible[lcId] := true;
    Page.Close;
    Page.Disconnect;
    Excel.Quit;
    Excel.Disconnect;
  finally
    Page.Free;
    Excel.Free;
  end;
end;

**Andnotor** · 28/02/2017, 17h20

Ne pourrais-tu pas exporter ce fichier en csv et le traiter par une petite routine Delphi ?
Tu pourrais même le charger dans une TTable

**ShaiLeTroll** · 28/02/2017, 18h19

Version de Delphi ? 2009 ou plus ?
Ou s'affiche les ??? signe d'une perte d'UNICODE vers ANSI

Pour le TTable, faut du CSV en , et pas en ; si je me souviens bien

**dlambert** · 01/03/2017, 12h12

Bonjour

Delphi D6

Oui, pour moi c'est bien un problème d’Unicode.

Je viens d'essayer TExcelApplication, le résultat est le même, des points d’interrogation.

Convertir en CSV, ça ne fonctionne pas, les caractères sont perdus dans le CSV

Pour faire simple, voilà un extrait de d'une feuille

File Key Section Traduction en : Anglais Traduction it : Italien Traduction fr : Français Traduction zh-CHS : Chinois (Simplifié)
ALARME 0 AlarmeTxt Undefined alert Allarme indefinito Alarme indéterminée 未定义报警