用perl寫了個腳本處理excel文件將其生成為.scs文件，其中在excel文件里有一些文字被加上刪除線，在處理時候不需要被處理，因為權限關系不可以修改excel。想問有什么方法可以讓perl自動過濾掉帶刪除線的文字。感謝~！
2 回答
一只甜甜圈
TA貢獻1836條經驗 獲得超5個贊
OK，既然你知道怎么寫perl,那么不細說其他。
你應該知道如何獲取Font，對吧?而刪除線是Font的一種。
{Font}->{Strikethrough} strike through: 0 or 1
如果匹配到等于1，那么Filter
子衿沉夜
TA貢獻1828條經驗 獲得超3個贊
#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
my $parser = Spreadsheet::ParseExcel->new(
CellHandler => \&cell_handler,
NotSetCell => 1
);
my $workbook = $parser->parse('test.xls');
sub cell_handler {
my $workbook = $_[0];
my $sheet_index = $_[1];
my $row = $_[2];
my $col = $_[3];
my $cell = $_[4];
# Do something useful with the formatted cell value
#print $cell->value(), "\n";
print $cell->get_format()->{Font}->{Strikeout},"\n";
}
test.xls:
- 2 回答
- 0 關注
- 1167 瀏覽
添加回答
舉報
0/150
提交
取消