如何處理excel中的特殊字符

dahe_1984

比如 α-Sexithiophene，

從excel中讀出后在寫入，變成了

523066680

回復(fù) 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
所有字符變成了雙字節(jié)表達形式，說明EXCEL2003對于ASCII范圍外地字符是統(tǒng)一保存為 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. }

復(fù)制代碼

代碼中的xcode函數(shù)只是用來顯示字符串編碼。


參考文件.rar (4.43 KB, 下載次數(shù): 8)

2014-03-15 16:54 上傳

點擊文件名下載附件

dahe_1984

最近怎么沒人呢？仙子呢

dahe_1984

最近這里都沒落了，一點人氣都沒有

pitonas

{:2_167:}  貌似仙子最近忙于殺貪官， 所以最近沒人呢
{:2_172:}  保持信心: 當誅滅貪官八百萬後, 她會回來的

回復(fù) 2# dahe_1984


   

dahe_1984

怎么沒人氣了？ perl沒人搞了？

523066680

你沒有說用的是哪一個模塊，EXCEL是2003 還是其他版本
如果在其他帖子發(fā)過，那也應(yīng)該貼個鏈接。

dahe_1984

回復(fù) 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));
    

復(fù)制代碼

523066680

發(fā)錯了……