SpreadSheet::ParseExcel::FmtDefault.
You will have to modify line 69 from
return pack('C*', unpack('n*', $sTxt));
to following which returns utf-8:
return pack('U*', unpack('n*', $sTxt));
git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@488
13eb9ef6-21d5-0310-b721-
a9d68796d827
for(my $iC = $oWorksheet->{MinCol} ; defined $oWorksheet->{MaxCol} && $iC <= $oWorksheet->{MaxCol} ; $iC++) {
my $cell = $oWorksheet->{Cells}[$iR][$iC];
if ($cell) {
- $row->{int2col($iC)} = $cell->Value;
+ # this conversion is a cludge.
+ # Files from Excell could have
+ # characters which don't fit into
+ # destination encoding.
+ $row->{int2col($iC)} = $utf2cp->convert($cell->Value) || $cell->Value;
}
}
my $format = shift;
my $row = shift;
my $i = shift;
- my $codepage = shift;
+ #my $codepage = shift;
+ #
+ # data allready comes in utf-8 due to change in
+ # SpreadSheet::ParseExcel::FmtDefault line 69 from
+ # return pack('C*', unpack('n*', $sTxt));
+ # to following which returns utf-8:
+ # return pack('U*', unpack('n*', $sTxt));
+ #
return if ($i > 0); # Excel doesn't support repeatable fields
#print STDERR "--$1-> $format -[",length($format),"] ";
if ($row->{$1}) {
my $tmp = $row->{$1};
- if ($codepage) {
- $tmp = $codepage->convert($tmp) || warn "excel: $1 '$tmp' can't convert";
- }
$display .= $prefix . $tmp;
$swish .= $tmp." ";
#print STDERR " == $tmp";