perl 读excel单元格中长字符问题

Oo慢慢来oO

需求：有一个excel单元格有1200个字符用perl读出来
问题：perl读excel单元格只能读1008个字符后面的读不出来
其他：在当前目录新建一个test.xls第一个单元格放一个超过1008的字符窜
代码如下：

1. 
   
2. use strict;
   
3. use Cwd;
   
4. use Win32::OLE qw(in with);
   
5. use Win32::OLE::Const 'Microsoft Excel';
   
6. 
   
7. 
   
8. my $EXCEL = '';
   
9. my $BOOK = '';
   
10. my $SHEET = '';
    
11. my $dir = getcwd;
    
12. my $dir = $dir.'\\test.xls';
    
13. 
    
14. 
    
15. sub initExcel()
    
16. {
    
17.   $EXCEL = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
    
18.   $EXCEL->{DisplayAlerts} = 'False';
    
19.   $BOOK = $EXCEL->Workbooks->Open("$dir");
    
20.   $SHEET = $BOOK->Worksheets(1);
    
21. }
    
22. 
    
23. 
    
24. sub closeExcel
    
25. {
    
26.         $BOOK->close();
    
27.         $EXCEL->quit();
    
28. }
    
29. 
    
30. sub main
    
31. {       
    
32.         initExcel();
    
33.         my $tmp = $SHEET->Cells(1,1)->{Text};
    
34.         print $tmp;
    
35.         closeExcel();
    
36. }
    
37. main();
    

复制代码

test.zip (1.74 KB, 下载次数: 15)

2011-09-28 10:58 上传

点击文件名下载附件

修改后代码：

1. use strict;
   
2. use Cwd;
   
3. use Spreadsheet::ParseExcel;
   
4. 
   
5. my $EXCEL = '';
   
6. my $SHEET = '';
   
7. my $dir = getcwd;
   
8. my $dir = $dir.'\\test.xls';
   
9. 
   
10. 
    
11. sub initExcel()
    
12. {
    
13.          $EXCEL = Spreadsheet::ParseExcel::Workbook->Parse($dir);
    
14.          $SHEET = $EXCEL->{Worksheet}[0];
    
15. 
    
16. }
    
17. 
    
18. sub main
    
19. {       
    
20.         initExcel();
    
21.         my $cell = $SHEET->{Cells}[2][0]->{Val};
    
22.         print "$cell\n";
    
23. }
    
24. main();

复制代码

谢谢各位

py

回复 1# Oo慢慢来oO

1. use Spreadsheet::ParseExcel;

复制代码

Oo慢慢来oO

回复 2# py


    加了以后能显示1040个字符，但还是不够。

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use Spreadsheet::ParseExcel;
   
5. 
   
6. my $file = 'test.xls';
   
7. my $xls = Spreadsheet::ParseExcel::Workbook->Parse($file);
   
8. my $cell = ${$xls->{Worksheet}}[0]->get_cell(0,0)->value();
   
9. print "$cell\n",length($cell);

复制代码

我把内容增加一倍长度，依然能正确读取。

Oo慢慢来oO

我把内容增加一倍长度，依然能正确读取。
iamlimeng 发表于 2011-09-29 12:58

    没问题了。我对perl模块还不是很了解，把2楼给的代码{use ……;}直接粘贴进去，内容没改，故还是读一部分。