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

Version imprimable

28/02/2017, 16h05
dlambert

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

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

Peut être un problème d'unicode ?

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

Code:

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;

28/02/2017, 17h20
Andnotor

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 ;)
28/02/2017, 18h19
ShaiLeTroll

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
01/03/2017, 12h12
dlambert

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 未定义报警
01/03/2017, 15h30
Andnotor

Citation:

Envoyé par dlambert

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

Dommage et surprenant qu'Excel ne permette pas de choisir le codage du fichier csv. LibreOffice le permet !