Discussion :

[ustilago]

Hello,

J'ai trouvé (un peu par hasard) un script perl qui converti tranquillou un fichier .dbf en fichier .csv. Le soucis c'est que les caractères accentués ressortent pas correctement .

Diantre me dis-je !! Mais pourquoi petit scarabé n'utilises-tu pas directement le module CAM:: DBF ?!?!?

Voilà qui est fait avec un bout de programme très simple :

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
#!/usr/bin/perl
 
#####################################################################################
# conversion dbf -> excel
#####################################################################################
 
use strict;     #vérifie que toutes les variables sont bien déclarées avec my
use Carp;       #Recherche les erreurs de syntaxe dans le programme
use warnings;
use CAM::DBF; # Perl extension for reading and writing dBASE III DBF files
 
my $file = "info_adm.DBF"; # infos administratives
 
my $dbf = new CAM::DBF($file); # ouverture de la BD
 
print $dbf->toText(0,-field => ',', -enclose => '', -showheader => 1);

Forcément, j'ai le mème soucis, à savoir que éèàçêô est transformé en ‚Š…‡ˆ“

Bref, est-il possible de contrôler ça ? Ca vient de perl et/ou de dbf ? Je précise que je travaille sous windows XP avec active perl.

Si une âme charitable a une idée lumineuse ...

Usti

[Jedai]

Si tu veux dire que la sortie sur la console contient n'importe quoi à la place des caractères accentués, essaie d'exécuter un script qui contient :

Code :

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

1
2
 
print "éàïù\n";

Et tu t'aperçevras que le problème ne vient pas de DBF (ni de Perl) mais tout simplement de la console Windows qui n'utilise pas le même encodage par défaut que le reste de Windows...
Si tu rediriges ton résultat vers un fichier tu t'aperçevras qu'il ne présente aucun problème.

Il existe plusieurs façon de régler le problème, ma préférée étant de changer la page de code utilisée par la console Windows (elle utilise la ~ 800, il faut utiliser la 1252) sans oublier de changer sa police (car la police originelle de la console ne supporte pas la cp1252).

--
Jedaï

[ustilago]

Hum ...

En fait j'utilise déjà cette astuce pour la console que tu m'avais donnée il y a quelques temps

Pour la sortie direct sur un fichier, en transformant mon code en :

Code :

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

1
2
3
open V3,"> testDBF.txt"; 
 
print V3 $dbf->toText(0,-field => ',', -enclose => '', -showheader => 1);

cela donne ça : ‚Š…‡ˆ“

Sinon je peux envisager de prévoir tous les caractères accentués et leur transformation, et de les retransformer ensuite

Usti

[Jedai]

Etrange, peut-être s'agit-il d'un problème d'encodage alors... Sais-tu quel est l'encodage de ton dbf et l'encodage utilisé par défaut par CAM:BF ?

--
Jedaï

[ustilago]

Euh, ben, c'est à dire ...

J'ai pas trouvé justement où voir quel était l'encodage de mon dbf. En fait c'est une base hyperfile (sous DOS) qui est extraite en quickbasic pour générer les dbf (je précise que ce n'est pas moi qui gère cette partie là, je n'ai pas touché au basic depuis mon IBM PC portable à 4,77 MHz )

Je vois pas d'autre solution que de repérer en quoi sont transcrits les caractères accentués, et à les remplacer dans mon programme perl par l'accent originel, mais j'ai pas encore testé.

Usti