CSVファイルをWEB（携帯）で表示

質問

営業マンの売り上げ予算や、売上実績のCSVファイルをWEBでアップロードし、
携帯から閲覧するソースなどご存知でしたら教えてください（＞＜）

出来れば、CSVファイルをアップロードし、リンクやアドレスが表示され、そちらにアクセスすると
各営業マンの売り上げ予算や実績などを閲覧するできるようにしたいです。

そんなプログラムやソースファイルがありましたら教えてください。

すいませんが、よろしくお願いします。

回答No.1

web2525 · ベストアンサー

javaを利用しているので携帯端末によっては非対応の場合も
http://d.hatena.ne.jp/esperia/20100627/1277628374

>リンクやアドレスが表示され、そちらにアクセスすると各営業マンの売り上げ予算や実績などを閲覧するできるようにしたいです

CSVファイルは結局はテキストファイルなのでハイパーリンクの設定は難しいのではないでしょうか？

CSVにこだわる必要が無いのであればPDFファイルなどでUPする方が容易かと思います

お礼

ありがとうございます！！一度教えて頂いた方法で試してみます。

ちなみにPDFは携帯でも表示できますか？

回答No.2

ORUKA1951

CSVファイルは、Comma Separated Valuesのことで,で区切られたテキストファイルです。通常はメモ帳などで開きますが、excelなどがあれば、関連付けされていて取り込むことができますし、excelはリンク(URL)文字列を認識してそれなりに表示しますが、あくまでexcelの機能です。
　サーバーにあるテキストデータを携帯やＰＣで利用できるように、表に整形した上でHTMLに変換する必要があります。
　ただし、CSVファイルもそれを作成したアプリケーションによってフォーマットが違いますので、あくまでexcelから出力されるCSVで、変換にPerlを使うなら
excelの出力CSVは
★コンマで区切った部分が値
★値にコンマやダブルクウォート、改行が含まれる場合は、値全体がダブルクウォートで囲まれている。
★値に含まれるダブルクウォートは "" となる（"は"でエスケープされている）

while (my $line = <DATA>) {
$line .= <DATA> while ($line =~ tr/"// % 2 and !eof(DATA));
$line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
@values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_} ($line =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
}
　上記スクリプトは、値に改行コードを含む CSV形式を扱う ( http://www.din.or.jp/~ohzaki/perl.htm#CSVwithCRLF )を整理したものです。

またURLを認識させるには、
http URL の正規表現 ( http://www.din.or.jp/~ohzaki/perl.htm#httpURL )
が参考になるでしょう。

あとは、この配列から、HTMLのtr要素を作成して整えれば簡単でしょう。
$tableLine = join '</td><td>',@value;
$tableLine='<tr><td>'.$tableLine.'</td></tr>';
とか・・・最後に、tableに入れちゃいます。必要なら見出し行を作成・・

Perlの初歩の練習としては、スクリプトがこの様にいくつか公開されていますから、簡単でよいでしょう。

お礼

ありがとうございました！解決できました。