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

為了賬號(hào)安全，請及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問題，去搜搜看，總會(huì)有你想問的

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

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

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

2 回答

?
一只甜甜圈

TA貢獻(xiàn)1836條經(jīng)驗(yàn) 獲得超5個(gè)贊

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

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

TA貢獻(xiàn)1828條經(jīng)驗(yàn) 獲得超3個(gè)贊

 #!/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)注
  • 1162 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

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

 幫助反饋 APP下載

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

 公眾號(hào)

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