Salut,

tu ouvres avec quoi ton .csv?
envoi ton fichier xls entier ainsi que le .csv que tu as obtenu
ça nous fera gagner de temps ;-)
lami20j

Je viens de mettre les extraits de fichiers dans cjoint.com

http://cjoint.com/?keo3qkbn1X pour le fichier csv

http://cjoint.com/?keo4cUWzZ8 pour le fichier xls

Essaie

#!/usr/bin/perl
use strict;use warnings;
use Spreadsheet::ParseExcel;

open F,">>resultat.csv"
    or die "E/S : $!\n";

my $file = "Test.xls";
#my $file = "Test.xls";
my $excel = Spreadsheet::ParseExcel::Workbook->Parse($file);
my $sheet = ${$excel->{Worksheet}}[0];

foreach my $row (0 ... 2 ){
  my $cell1 = $sheet->{Cells}[$row][0];
  my $cell2 = $sheet->{Cells}[$row][1];
  my $cell3 = $sheet->{Cells}[$row][2];
  my $cell4 = $sheet->{Cells}[$row][3];
  my $cell5 = $sheet->{Cells}[$row][4];

  my $res = "$cell1->{Val};$cell2->{Val};$cell3->{Val};$cell4->{Val};$cell5->{Val};";
  $res =~s/\n//;
  $res =~s/\x01\x53/oe/g;
  print "$res\n";
}
__END__

Mais ça ne marchera sur tout le fichier
si tu ne me donne que des extraits alors tu n'auras pas la solution complète
Le caractère SOH -> code ascii 01 correspond au Début d'en-tête (voir la table ASCII) lami20j

Ca marche à moitié. Je m'explique. Voici ce que j'obtiens dans mon csv

NULnoeNULuNULdNULs

Avant, j'avais NULnSOHSNULuNULdNULs.

Tu as réussi à enlever le SOHS. Mais, j'ai toujours mes valeurs NUL que je ne veux pas.

Comment faire ?

Le problème, c'est que je ne peux pas te passer le fichier complet pour des raisons de confidentialité. Désolé.

c'est que je ne peux pas te passer le fichier complet pour des raisons de confidentialité
je te comprends ;-)

tu ouvres avec quoi le csv? lami20j

Essaie

#!/usr/bin/perl
use strict;use warnings;
use Spreadsheet::ParseExcel;

open F,">>resultat.csv"
    or die "E/S : $!\n";

my $file = "Test.xls";
#my $file = "Test.xls";
my $excel = Spreadsheet::ParseExcel::Workbook->Parse($file);
my $sheet = ${$excel->{Worksheet}}[0];

foreach my $row (0 ... 2 ){
  my $cell1 = $sheet->{Cells}[$row][0];
  my $cell2 = $sheet->{Cells}[$row][1];
  my $cell3 = $sheet->{Cells}[$row][2];
  my $cell4 = $sheet->{Cells}[$row][3];
  my $cell5 = $sheet->{Cells}[$row][4];

  my $res = "$cell1->{Val};$cell2->{Val};$cell3->{Val};$cell4->{Val};$cell5->{Val};";
  $res =~s/\n//;
  $res =~s/\x01\x53/oe/g;
  $res =~s/\x00//g;
  print "$res\n";
}
__END__

Alors premièrement, j'ouvre mes .csv avec notepad++ et deuxièmement, merci. Je n'ai plus les NUL.
Et troisièmement, est-ce que tu peux me détailler les caractéristiques de :
$res =~s/\x01\x53/oe/g;
$res =~s/\x00//g;

Merci

Dans une expression régulière on peut écrire le caractère de façon littérale, octale et héxadecimale

Donc le caractère NUl en hexa = 00
Le caractère SOH en hexa = 01
et le caractère S en hexa = 53

La notation est \xNN
\x01\x53

c'est
SOHS lami20j

Et ben je dis RESPECT TOTAL. Merci