第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號安全，請及時綁定郵箱和手機立即綁定
已解決430363個問題，去搜搜看，總會有你想問的

perl利用什么語句可以檢測并過濾掉帶刪除線（strikethrough）的文字

perl利用什么語句可以檢測并過濾掉帶刪除線（strikethrough）的文字

用perl寫了個腳本處理excel文件將其生成為.scs文件，其中在excel文件里有一些文字被加上刪除線，在處理時候不需要被處理，因為權(quán)限關(guān)系不可以修改excel。想問有什么方法可以讓perl自動過濾掉帶刪除線的文字。感謝~！
查看完整描述

2 回答

?
一只甜甜圈

TA貢獻1836條經(jīng)驗 獲得超5個贊

OK，既然你知道怎么寫perl,那么不細說其他。
你應(yīng)該知道如何獲取Font，對吧?而刪除線是Font的一種。
{Font}->{Strikethrough} strike through: 0 or 1
如果匹配到等于1，那么Filter

查看完整回答
反對 回復(fù) 2019-03-31
?
子衿沉夜

TA貢獻1828條經(jīng)驗 獲得超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:





查看完整回答
反對 回復(fù) 2019-03-31
  • 2 回答
  • 0 關(guān)注
  • 1180 瀏覽

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯(lián)系客服咨詢優(yōu)惠詳情

 幫助反饋 APP下載

慕課網(wǎng)APP
您的移動學(xué)習(xí)伙伴

 公眾號

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號