读excel使用了cp936依然乱码<分享>

Oo慢慢来oO

test.zip (2.26 KB, 下载次数: 23)

2011-10-08 16:42 上传

点击文件名下载附件

问题：perl读取excel中文乱码
解决方法：
use Spreadsheet::ParseExcel::FmtUnicode;
my $oExcel = new Spreadsheet::ParseExcel;
my $oCode = "CP936";
my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => $oCode);
my $oBook = $oExcel->Parse($excelFile, $oFmtJ);
详细代码

1. use strict;
   
2. use Cwd;
   
3. use Spreadsheet::ParseExcel;
   
4. use Spreadsheet::ParseExcel::FmtUnicode;
   
5. use Unicode::Map;
   
6. 
   
7. my ($EXCEL,$BOOK,$SHEET,$CODE,$FMTJ,$CELL);
   
8. my $dir = getcwd;
   
9. my $dir = $dir.'\\test.xls';
   
10. 
    
11. 
    
12. sub initExcel()
    
13. {
    
14.                 $EXCEL = new Spreadsheet::ParseExcel;
    
15.                 $CODE = "CP936";
    
16.                 $FMTJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => $CODE);
    
17.                 $BOOK = $EXCEL->Parse($dir,$FMTJ);
    
18.          $SHEET = $BOOK->Worksheet('供数接口配置信息');
    
19. }
    
20. 
    
21. sub main
    
22. {       
    
23.         initExcel();
    
24.         $CELL = $SHEET->{Cells}[0][0]->{Val};
    
25.         print $CELL;
    
26. }
    
27. main();

复制代码

问题：使用了FmtUnicode模块 code = 'CP936'依然乱码
解决方法：
将：$CELL = $SHEET->{Cells}[0][0]->{Val};
改为：$CELL = $SHEET->{Cells}[0][0]->Value;

iamlimeng

http://bbs.chinaunix.net/viewthr ... amp;from=favorites#

版主的终极方案，一定能终结你的问题，我也发过同样的贴，被终结了！