中文 Excel 讀寫終級(jí)解決方案

flw

老有人問(wèn)我 excel 中文亂碼的問(wèn)題，
我平時(shí)很少接觸這一塊，
每次都得從頭研究，
現(xiàn)在把結(jié)論記錄在這里，以做備忘。


讀：

1. use strict;
   
2. use warnings;
   
3. 
   
4. use Spreadsheet::ParseExcel;
   
5. use MyExcelFormatter;
   
6. 
   
7. my $file = 'foo.xls';
   
8. 
   
9. my $fmt = new MyExcelFormatter();
   
10. 
    
11. my $xls = Spreadsheet::ParseExcel::Workbook->Parse( $file, $fmt );
    
12. my @workSheet = @{ $xls->{Worksheet} };
    
13. foreach my $sheet ( @workSheet ){
    
14.     my $sheetName = $sheet->get_name();
    
15.     print "工作表: $sheetName\n";
    
16. 
    
17.     my ( $minRow, $maxRow ) = $sheet->row_range();
    
18.     my ( $minCol, $maxCol ) = $sheet->col_range();
    
19. 
    
20.     foreach my $row ( $minRow .. $maxRow ){
    
21.         foreach my $col ( $minCol .. $maxCol ){
    
22.             my $cell = $sheet->get_cell( $row, $col );
    
23.             next unless $cell;
    
24.             print " ($row,$col) ", $cell->value;
    
25.         }
    
26.         print "\n";
    
27.     }
    
28. }

復(fù)制代碼

基本上上面這段代碼就是從 Spreadsheet:arseExcel 的文檔里抄來(lái)的。
除了 my $fmt = new MyExcelFormatter(); 這一行之外。
這一行生成了一個(gè)文檔內(nèi)容的轉(zhuǎn)換器（格式化工具），
轉(zhuǎn)換器代碼如下：

1. package MyExcelFormatter;
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. use base qw(Spreadsheet::ParseExcel::FmtDefault);
   
7. 
   
8. use Encode::CN;
   
9. use Encode qw(from_to);
   
10. 
    
11. sub new() {
    
12.     return bless {};
    
13. }
    
14. 
    
15. sub TextFmt( $;$ ) {
    
16.     my $this = shift;
    
17.     my ($value, $code) = @_;
    
18. 
    
19.     if ( defined $code and $code eq 'ucs2' ){
    
20.         from_to( $value, 'ucs2', 'gb2312' );
    
21.     }
    
22.     return $value;
    
23. }
    
24. 
    
25. 1;

復(fù)制代碼

如法炮制以此類推，可以處理所有本地語(yǔ)言編碼。

==================== 華麗的分割線 ====================================

寫 excel，這個(gè)就更簡(jiǎn)單了：

1. use strict;
   
2. use warnings;
   
3. 
   
4. use Spreadsheet::WriteExcel;
   
5. 
   
6. my $workbook = new Spreadsheet::WriteExcel( 'foo.xls' );
   
7. my $worksheet = $workbook->add_worksheet( T('世界你好') );
   
8. 
   
9. $worksheet->write( 0, 0, T('干啥呢') );

復(fù)制代碼

大家可以看到，完全就是抄 perldoc 文檔里的例子的。
只不過(guò)，T( '世界你好' ) 看上去有點(diǎn)乖乖地罷了。
其實(shí)這是一個(gè)自定義函數(shù)：

1. use Encode qw(decode);
   
2. 
   
3. sub T {
   
4.     my $text = shift;
   
5. 
   
6.     return decode( 'gb2312', $text );
   
7. }

復(fù)制代碼

名字當(dāng)然也可以不叫 T，叫別的也行。
完整的代碼如下：

1. use strict;
   
2. use warnings;
   
3. 
   
4. use Spreadsheet::WriteExcel;
   
5. use Encode qw(decode);
   
6. 
   
7. my $workbook = new Spreadsheet::WriteExcel( 'foo.xls' );
   
8. my $worksheet = $workbook->add_worksheet( T('世界你好') );
   
9. 
   
10. $worksheet->write( 0, 0, T('干啥呢') );
    
11. 
    
12. sub T {
    
13.     my $text = shift;
    
14. 
    
15.     return decode( 'gb2312', $text );
    
16. }

復(fù)制代碼

================= 倒霉的分割線 =============================
最后再來(lái)個(gè)總結(jié)：
要點(diǎn)只有一個(gè)：excel 里保存的是且只能是 utf8 編碼，而簡(jiǎn)體中文版的 windows 控制臺(tái)和其它一些軟件缺省顯示的是 gb2312 編碼
有些朋友在 tk 應(yīng)用或者 mysql 應(yīng)用中用了上面的代碼，仍然看到亂碼，
那是因?yàn)槟銢](méi)有搞明白 tk 和 mysql 的編碼，所以上面的辦法也不是萬(wàn)能的。
萬(wàn)能的辦法就是搞清楚每個(gè)信息流的編碼方案，徹底把思路搞明白了。

2011.11.06 增補(bǔ)：
Spreadsheet::WriteExcel 已死，Excel::Writer::XLSX 當(dāng)立
http://perlbuzz.com/2011/10/spre ... xcelwriterxlsx.html

Perl_Er

good

yybmsrs

哇  老大出馬啊  中文確實(shí)很煩人

蘭花仙子

老大的示例都是精品~贊一個(gè)

flw

原帖由 yybmsrs 于 2009-12-10 11:20 發(fā)表
哇  老大出馬啊  中文確實(shí)很煩人

我一點(diǎn)都不覺(jué)得煩人，
我覺(jué)得這是檢驗(yàn)自己知識(shí)的一個(gè)機(jī)會(huì)。

brokencluster

頂一個(gè)。

ttcn_cu

見(jiàn)老大mark

中文確實(shí)"煩人"啊,上個(gè)世紀(jì)gb2312和big5車不清楚,現(xiàn)在還有utf-8和gbk各占半邊天,這段恩怨已經(jīng)跨過(guò)10個(gè)年頭了

[ 本帖最后由 ttcn_cu 于 2009-12-10 12:14 編輯 ]

yangds_cu

very Good，收藏啦~

wendaozhe

收藏，學(xué)習(xí)！

phiazat

好，好好學(xué)習(xí)一下~