如何处理excel中的特殊字符

dahe_1984

比如 α-Sexithiophene，

从excel中读出后在写入，变成了

523066680

回复 1# dahe_1984


分析出来了，
α-Sexithiophene
a6 c1 2d 53 65 78 69 74 68 69 6f 70 68 65 6e 65


从Excel2003表格读取时，变成了
 - S e x i t h i o p h e n e
编码为：
3 b1 0 2d 0 53 0 65 0 78 0 69 0 74 0 68 0 69 0 6f 0 70 0 68 0 65 0 6e 0 65

a6 c1 是α的GBK码， 03 b1 是unicode码，其实这里是UTF-16BE
所有字符变成了双字节表达形式，说明EXCEL2003对于ASCII范围外地字符是统一保存为 UTF-16BE的

1. use Spreadsheet::Read;
   
2. use Spreadsheet::WriteExcel;
   
3. use Encode;
   
4. 
   
5. # Read
   
6. my $book  = ReadData ("a.xls");
   
7. my $cell  = $book->[1]{cell}[1][1];
   
8. #在win32下的终端输出，先按utf16-LE解码 然后按GBK编码
   
9. print encode('gbk',decode('utf16-BE',$cell)),"\nCode: ";
   
10. print xcode($cell,'x');
    
11. 
    
12. # Write
    
13. my $workbook=Spreadsheet::WriteExcel->new('b.xls');
    
14. $worksheet = $workbook->add_worksheet();
    
15. $worksheet->write(0,0,decode('utf16-BE',$cell));
    
16. #这里试了几次，解码后再写入xls，显示就正常了。
    
17. 
    
18. sub xcode {
    
19.     # xcode("string",'Mode'); Mode = x(hex), b(bin), d(int)
    
20.     for my $v ( split(//,$_[0]) ) {
    
21.         print sprintf ("%l$_[1] ",ord($v));
    
22.     }
    
23.     print "\n\n";
    
24. }

复制代码

代码中的xcode函数只是用来显示字符串编码。


参考文件.rar (4.43 KB, 下载次数: 8)

2014-03-15 16:54 上传

点击文件名下载附件

dahe_1984

最近怎么没人呢？仙子呢

dahe_1984

最近这里都没落了，一点人气都没有

pitonas

{:2_167:}  貌似仙子最近忙于杀贪官， 所以最近没人呢
{:2_172:}  保持信心: 当诛灭贪官八百万後, 她会回来的

回复 2# dahe_1984


   

dahe_1984

怎么没人气了？ perl没人搞了？

523066680

你没有说用的是哪一个模块，EXCEL是2003 还是其他版本
如果在其他帖子发过，那也应该贴个链接。

dahe_1984

回复 6# 523066680

什么版本都行。




   

523066680

Excel 2007 [xlsx]的处理方法
（在xlsx中读取出的是utf-8编码形式）

1. use Spreadsheet::Read;
   
2. use Excel::Writer::XLSX;
   
3. use Encode;
   
4. 
   
5. # Read
   
6. my $book  = ReadData ("a.xlsx");
   
7. my $cell  = $book->[1]{cell}[1][1];
   
8. 
   
9. # Write
   
10. my $workbook = Excel::Writer::XLSX->new('b.xlsx');
    
11. my $worksheet = $workbook->add_worksheet();
    
12. $worksheet->write('A1', decode('utf-8',$cell));
    

复制代码

523066680

发错了……