ひまつぶし雑記帖

doncha.net制作・発行:KindleやiBooks、楽天kobo、BOOK☆WALKERで読む電子書籍

めも

2008/5/20 [19:23:18] (火) 天気

以前にも書いたけど、メモっておこう。

エクセルのシートを直接perlで読む。

#!/usr/local/bin/perl
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtJapan;
my $oFmtJ = Spreadsheet::ParseExcel::FmtJapan->new(Code =>'utf8');
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse('test.xls', $oFmtJ);

my $ws; my $wc;
for(my $i = 0; $i < $oBook->{SheetCount}; $i++){
    $ws = $oBook->{Worksheet}[$i];
    print 'Sheet: ' , $ws->{Name} , "¥n";
    for(my $r = $ws->{MinRow}; defined $ws->{MaxRow} && $r <= $ws->{MaxRow}; $r++ ){
        for(my $c = $ws->{MinCol};  defined $ws->{MinCol} && $c <= $ws->{MaxCol}; $c++ ){
            $wc = $ws->{Cells}[$r][$c];
            print "( $r,$c ) => ", $wc->Value ,"¥n" if $wc && $wc->Value;
        }
    }
}

読むならこれだけでOK。いちいちエクセルなんぞを開かなくていいんだよなぁ。まじめに助かるゼ

»電子書籍制作代行についてはこちら

profile

profile

 
doncha.net
名前:
飯田哲章
mail:
t2aki@mrh.biglobe.ne.jp
twitter:
t2akii

WEBサービス制作/電子書籍制作

検索
<<2019/9>>
       
1234567
891011121314
15161718192021
22232425262728
2930

リンク

WINDOWS版サウンドノベル
おかえりください PC WINDOWS版サウンドノベル
『おかえりください』体験版

iPhone電子書籍アプリ
小説同人誌Select iPhone電子書籍アプリ
『小説同人誌Select』