Chinaunix

标题: 求助：Spreadsheet::WriteExcel能不能很好的支持中文？ [打印本页]

---

作者: heya    时间: 2006-07-14 18:35
标题: 求助：Spreadsheet::WriteExcel能不能很好的支持中文？

1. $worksheet->write(1,3,'统计时间:');

复制代码

结果：ͳ¼Æʱ¼ä:
谢谢大家了

---

作者: heya    时间: 2006-07-14 18:39
网上说支持的。
我估计是我自己机子的字符集有问题，可实在不知道改怎么整。

---

作者: ulmer    时间: 2006-07-14 19:01
标题: 回复 1楼 heya 的帖子
Hi,

ref. to Perl CPAN module Encode.

use Encode;
# to write using encode(...);
# to read using decode(...);

Best,
    ulmer

---

作者: heya    时间: 2006-07-15 00:01

原帖由 ulmer 于 2006-7-14 19:01 发表
Hi,

ref. to Perl CPAN module Encode.

use Encode;
# to write using encode(...);
# to read using decode(...);

Best,
    ulmer

谢谢！根据ulmer的提示，解决了问题。

测试脚本：

1. 
   
2. use Encode;
   
3. use Spreadsheet::WriteExcel;
   
4. 
   
5. my $workbook=Spreadsheet::WriteExcel->new('d:\perl.xls');
   
6. my $worksheet=$workbook->add_worksheet(decode('GB2312',"永坪PAS欠费"));
   
7. my $format=$workbook->add_format();
   
8. $format->set_bold();
   
9. $format->set_color('red');
   
10. $format->set_align('center');
    
11. $worksheet->write(0,1,decode('GB2312',"永坪PAS欠费"),$format);
    
12. $worksheet->write(1,2,decode('GB2312','统计时间:'));
    
13. 
    
14. $workbook->close();
    

复制代码

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2