请问Spreadsheet的编码问题

JasonLee8872

UID: 29802
帖子: 24
积分: 55
在线时间: 10 分钟

1^# JasonLee8872 发表于 2007-09-30 08:38

请问Spreadsheet的编码问题

在下最近使用Spreadsheet：：ParseExcel和WriteExcel读写xls，但处理中文就出麻烦了。请问这两个模块如何设置编码？谢了！（我这上不了CPAN，看源码我还不够水平……不好意思……）

gsging

UID: 14169
帖子: 179
积分: 411
在线时间: 1 天 19 小时

2^# gsging 发表于 2007-09-30 11:22

搜搜帖子.很多地.

http://bbs.chinaunix.net/viewthr ... p;page=1#pid6652035

JasonLee8872

UID: 29802
帖子: 24
积分: 55
在线时间: 10 分钟

3^# JasonLee8872 发表于 2007-10-01 08:37

谢谢！

JasonLee8872

UID: 29802
帖子: 24
积分: 55
在线时间: 10 分钟

4^# JasonLee8872 发表于 2007-10-01 09:35

还是没解决，仍然乱码。我的源如下：

use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtUnicode;

my $oExcel = new Spreadsheet::ParseExcel;
my $oFmt = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>"GB2312");
my $readExcel = $oExcel -> Parse("a.xls" , $oFmt);
my $readSheet = $readExcel -> Worksheet("data");
for (my $i = 0; $i <= $readSheet ->{MaxRow} ; $i++) {
print $readSheet -> {Cells}[0][0] -> {Val};
}

没看出来问题在哪。

JasonLee8872

UID: 29802
帖子: 24
积分: 55
在线时间: 10 分钟

5^# JasonLee8872 发表于 2007-10-02 09:01

顶一顶

gsging

UID: 14169
帖子: 179
积分: 411
在线时间: 1 天 19 小时

6^# gsging 发表于 2007-10-05 10:53

老兄，你仔细看看我原来那个帖子啊.

$oWkC = $oWkS->{Cells}[$iR][$iC];
my $value = decode("gb2312",$oWkC->Value) if($oWkC);

JasonLee8872

UID: 29802
帖子: 24
积分: 55
在线时间: 10 分钟

7^# JasonLee8872 发表于 2007-10-05 16:11

JasonLee8872

UID: 29802
帖子: 24
积分: 55
在线时间: 10 分钟

8^# JasonLee8872 发表于 2007-10-05 16:14

OK，谢谢各位，已经解决了。

之前没注意到Value和Val的区别，Val用惯了。谢谢！

Value
Method Formatted value of that cell

Val
Original Value of that cell

PS：gsging老兄，你可答错了啊。你decode一次对我这没有帮助，因为我是print不是write到excel文档。