トップページ⇒tech
105コメント31KB

csvからhtml表生成最強言語は?

■ このスレッドは過去ログ倉庫に格納されています
0001ほんとのとこは?NGNG
CSVファイルを読み込ませ、htmlの
表を生成するプログラムの作成で
どの言語で、どのようにすれば、
最小の行数で作れますか?

または、実行ファイルが最小サイズ
になるのはどれですか?

または、csvファイルを選択してか
ら、html表が生成されるまでの
時間が最短なのはどれですか?

簡単そうで、使い道がありそうな
このプログラムで
どの言語をどのように使うのが
最強か?教えて下さい。

実例での具体的な比較をみてみたいです。

0002デフォルトの名無しさんNGNG
.
0003デフォルトの名無しさんNGNG
えくせるひゅーまん
0004デフォルトの名無しさんNGNG
Cを使えば2行
Javaを使えば1行
エクセルを使えば0行
0005デフォルトの名無しさんNGNG
DTD使えば変換の必要なし
00065NGNG
DTCだった
0007棄教者 ◆witdLTi2 NGNG
#!/usr/bin/perl
print '<TABLE>';
while(<>) {
 print '<TR>', (map{ '<TD>$_</TD>' } (split /,\s*/)), '<TR>';
}
print '</TABLE>';
==============================
と書いてみるテスト
>>3-4
確かに Excel だと一番早いね。 
0008デフォルトの名無しさんNGNG
C++!!
0009デフォルトの名無しさんNGNG
なんか、2getとか現れずに順調だが、
これって単発質問クソスレだよな?
あまりな糞っぷりなので、みんな感覚が麻痺したのか?
0010デフォルトの名無しさんNGNG
そうそう。
いくら言っても糞スレは立つもんだからいい加減同じことばっかり言うの飽きちゃった
0011デフォルトの名無しさんNGNG
このケースでもRubyは最強なのか?

速度面は疑問。
0012デフォルトの名無しさんNGNG
Excelが最強だって
0013デフォルトの名無しさんNGNG
家電屋行ってバイオ買ってくればすぐに変換できるぞ
0014デフォルトの名無しさんNGNG
1<<
最速:       アセンブラ
リソース最小:   アセンブラ
開発期間最小:   エクセル
コード行最小:   エクセル
実行ファイルが最小:アセンブラ

というこてでアセンブラが最強ということこのスレ結論がでました。
0015デフォルトの名無しさんNGNG
>>11
>このケースでもRubyは最強なのか?
なんか11が病気なんですけど。
0016デフォルトの名無しさんNGNG
>>9 俺は7行プログラミングスレの類だと認識したが。
宿題かなんかだったにしろお題が手軽でよかったんだろ。
(もっとマイナー言語キボン。)
0017デフォルトの名無しさんNGNG
>>3
>>4
>>12
>>14
エクセルって、アプリじゃ無かった
のか?

いつから言語になったんだろ?
0018デフォルトの名無しさんNGNG
awk
0019デフォルトの名無しさんNGNG
では object pascal の例

program CSV2HTML;
uses SysUtils,Windows,Classes,shellapi;
 function f(fname:string):TStrings;
 var i,j:Integer;
 var w:TStrings;
 var s:string;
 begin
  w:=TStringList.Create;
  try
    Result:=TStringList.Create;
    Result.Add('<HTML><HEAD><TITLE>'+fname+'</TITLE></HEAD><BODY>');
    Result.Add('<TABLE BORDER>');
    if FileExists(ParamStr(1)) then
    with TStringList.Create do try
    LoadFromFile(ParamStr(1));
     for i:=0 to Count-1 do begin
       w.CommaText:=Strings[i];
       s:='<TR>';
       for j:=0 to w.Count-1 do s:=s+'<TD>'+w.Strings[j];
       Result.Add(s);
     end;
    finally free;end;
   finally w.free;end;
   Result.Add(' </TABLE></BODY></HTML>')
 end;

var fname,wfname:string;
begin
if ParamCount=1 then begin
 fname:= ParamStr(1);
 if FileExists(fname) then begin
   wfname:=ChangeFileExt(fname,'.html');
   with f(fname) do try
    SaveToFile(wfname);
    ShellExecute(0,'open',PChar(wfname),nil,nil,SW_SHOWNORMAL);
   finally free;end;
  end;
end;
end.
0020デフォルトの名無しさんNGNG
Tclだと、どうなんだろ。

1コマンド1行だから
結構長くなるか。

それとも変換コマンドがあって
1発とかか?
0021デフォルトの名無しさんNGNG
>>17
えくせるVBAじゃ
0022デフォルトの名無しさんNGNG
19 のコードは D5で60K D6で128Kbyteになります。 
仕事で使うなら TPageProducer 使った方がいいだろけど D6パーソナルで実行出来るように直書しました
0023デフォルトの名無しさんNGNG
>7
CSVって、こんな単純なパターンマッチでちゃんと分けられたっけ?

CPANにあるCSV取りこみ用のモジュール使ったほうがいいかも
(日本語対応がネックではあるが)
0024デフォルトの名無しさんNGNG
CSVの規則らしいものって
1、1行に複数の項目が入る。項目は基本的にカンマで区切る
2、 カンマを含むような文字は "文字列"とする
3、 先頭行は項目名の場合がある

かな?
0025デフォルトの名無しさんNGNG
,"",みたいな項目は",\"\","かな?
0026デフォルトの名無しさんNGNG
そもそもCSVって
きちんとした規格あるの?
0027デフォルトの名無しさんNGNG
Excelの実装が仕様です。
0028デフォルトの名無しさんNGNG
結構いいかげん
0029デフォルトの名無しさんNGNG
>>25 いや 殆どのCSVで " は ""と2つに変換される だから

","""","

0030デフォルトの名無しさんNGNG
では書き直し

1、 1行に複数の項目が入る。
2、 項目は基本的にカンマで区切る
3、 文字列は必ず "文字列" とする流儀と 必ずしもそうしないものがある
4、 少なくともカンマを含むような文字は "文字列"とする
5、 もし 文字列中に " を一つ含む場合は ""と重ねる
6、 先頭行は項目名の場合がある が、それを区別する手段はない
0031デフォルトの名無しさんNGNG
>>15
11はRuby厨のたわごとを
真に受けてしまう素人さんと
おもわれ。

でも、まじめな話しRubyで処理
させるとすると、何行くらいに
なるんだ。

1行ですむのか?
0032デフォルトの名無しさんNGNG
じゃあ、""みたいな空文字列は許されないんだ。
0033デフォルトの名無しさんNGNG
>>32 え? 空文字は カンマを続けるだけだと思うが?
0034       NGNG
いま NHK でバイオリンのいいのやってるな
0035デフォルトの名無しさんNGNG
ごめん " を含む場合は 必ず その項目を"で囲まれている必要がある。
 だから、単独の " は """" と4つ "が並ぶ事になる

ではコレでどうだ

1、 1行に複数の項目が入る。
2、 項目は基本的にカンマで区切る
3、 文字列は必ず "文字列" とする流儀と 必ずしもそうしないものがある
4、 少なくともカンマか"を含むような文字は "文字列"とする
5、 もし 文字列中に " を一つ含む場合は ""と重ねる
6、 先頭行は項目名の場合がある が、それを区別する手段はない
0036       NGNG
  よかった

 csv には書式があるのですか。なにに使うのでしょう。
これで知りました。
  ttp://mackoy.cool.ne.jp/make/ryfile.html  
0037デフォルトの名無しさんNGNG
Comma Separated Values
1、 1行で1レコードとし、それぞれのフィールドはカンマで区切られている
2、 少なくともカンマまたは " を含む文字列は "文字列" とした上でカンマで区切られる
3、 文字列中の " は "" と重ねて表現する よって ”1文字は """" である
4、 先頭行はフィールド名の場合もある
0038棄教者 ◆witdLTi2 NGNG
>>7のPerlの例は引用符を鹿としていたので
鬱で氏にます
0039デフォルトの名無しさんNGNG
結局、
テストコードを素早く書けるのはPerl
ちゃんと動くコードを最初に出せるのはDelphiという事で
0040デフォルトの名無しさんNGNG
>>1
実行ファイルのサイズや、ソースの行数に意味があるのでしょうか?

必要なのは、少ない行数で書けることではなく、素早く書けるかという点にあるように思いますよ
0041デフォルトの名無しさんNGNG
Delphiだとperserの部分で少し楽出来るからなあ

JAVAだとStreamTokenizer 使えばいいけど、なんだかなあ
0042デフォルトの名無しさんNGNG
エクセルか Perl でいいじゃん。
必要になったら書き捨てる程度のもんじゃない?
0043デフォルトの名無しさんNGNG
>>42
 じゃ書き捨ててみて下さい
0044デフォルトの名無しさんNGNG
CSVをEXCELに読み込ませると変な解釈しない?
0045デフォルトの名無しさんNGNG
use strict;

print "<table>\n";
while(<>) {
    print "\t<tr>";
    s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
    print map {
        /^"(.*)"$/ ? '<td>' . escape(scalar($_ = $1, s/""/"/g, $_)) . '</td>'
                    : '<td>' . escape($_) . '</td>'
        } (/("[^"]*(?:""[^"]*)*"|[^,]*),/g);
    print "</tr>\n"
}
print "</table>\n";

sub escape {
    my $str = shift;

    $str =~ s/&/&/g;
    $str =~ s/</</g;
    $str =~ s/>/>/g;

    return $str;
}
0046デフォルトの名無しさんNGNG
>>43
いや、別に必要としてないし。
それよりも CVS から HTML 表生成かと思ってたのに
csv だったのでがっかり。
0047デフォルトの名無しさんNGNG
そもそも、CSVの書式っていい加減で、
「カンマ区切りである」くらいしか統一されていない。
""の解釈も統一されているワケじゃない
1が仕様を出さないことにはどうにも。

0048デフォルトの名無しさんNGNG
>>39
テストコードを素早く書けるのはPerlとの事ですが

よく、この板で見かけるRubyは?

0049デフォルトの名無しさんNGNG
>>48 書いてみれば?
0050デフォルトの名無しさん NGNG
ASP.NETでサーバーコントロールにDATAGRIDを使うのが催促
0051デフォルトの名無しさんNGNG
>>48
>よく、この板で見かけるRuby
↑なかなか的を射た表現やね
0052デフォルトの名無しさんNGNG
>>1
DreamWeaverを使えばコード書かないでできる。
ソートもできる。一番実用的で現実的。
0053デフォルトの名無しさんNGNG
>>1
Excelを使えばコード書かないでできる。
ソートもできる。一番実用的で現実的。
0054デフォルトの名無しさんNGNG
エクセルってHTMLを吐き出すの?
アフォですみません。
0055デフォルトの名無しさんNGNG
>>54 すごく汚いけどね
0056デフォルトの名無しさんNGNG
じゃあ、、、

おまえら!
HTMLソースからCSV形式のファイルを生成するソースを書いてください
0057デフォルトの名無しさんNGNG
不可能
0058デフォルトの名無しさんNGNG
>>57
まあ、お前にはな。
0059shigeNGNG
rじゅby
0060デフォルトの名無しさんNGNG
マ板のほうにCSVスレあった気がするが。そこでの結論はCSVに規格がないので完全な処理は不可能。
つー、身もふたもない結論だった気がするんだが。あのスレどこだっけな。
0061デフォルトの名無しさんNGNG
>>47
そのいい加減なものを上手く guess してくれるコードがほしいんじゃないカナ?
0062デフォルトの名無しさんNGNG
>>61
人工知能が必要と思う。
guess が「当て推量を言う」の方なら何とかなると思うが。
0063デフォルトの名無しさんNGNG
>>53
一番といえるかどうか。

無駄タグ削除によるダイエットの
手間が、無視出来ない事もある。
0064デフォルトの名無しさんNGNG
>>62
じゃあLISPか(w
list<->csvなんて朝飯前だし
ちょうどlist<->HTMLなんてのも専用スレにある。
0065デフォルトの名無しさんNGNG
>>64いいね
0066デフォルトの名無しさんNGNG
lex。パターンマッチング以外無能。
それだけは宇宙最強の速度(・∇・)

%%
[^,\n]*, {
yytext[strlen(yytext) - 1] = '\0';
printf("<TD>%s<TD>", yytext);
}
\n printf("</TR><TR>");
. ;
%%
0067デフォルトの名無しさんNGNG
>>66
意味わかんね。
0068デフォルトの名無しさんNGNG
perlだろうとrubyだろうと似たように書けば同じように動くでしょ。

puts "<table>"
readlines.each do |t|
  puts "<tr><td>" + t.chop!.gsub!(/,/,"</td><td>") + "</td></tr>"
end
puts "</table>"
0069デフォルトの名無しさんNGNG
で? 1よ 結論は何なんだ!
00701NGNG
皆さん、いろいろな意見ありがとうございます。

>>69
いえ、結論はでてません。

まず、この板でよく見かける、言語
間の優劣合戦を拝見していると、
さまざまな観点での優劣の主張が、
乱れとんでいる様でした。
そしてそのうち”○○信者必死”
”○○厨ウザイ”というののしりあいの様になっているので。

それで、具体的なテーマを提示すれ
ば、それぞれの観点における、
このポイントでは、この言語が最強
っていう一応の結論が得られそうな
ので、スレ立てをさせて頂いた所です。

一応、現時点では、ちょこっと作って試すスクリプト系言語ではperl最強。

実用的で高性能なものを簡単に作るにはDelphi最強。

プログラマに要求される多大なスキルと、膨大な工数を許容可能ならば
アセンブラ最強。

の様ですが、まだまだ、他の言語からの、反対意見ありそうなので、ひきつづき意見募集ちゅうでつ。
0071デフォルトの名無しさんNGNG
>実用的で高性能なものを簡単に作るにはDelphi最強。
理由は?
0072デフォルトの名無しさんNGNG
自分が使える言語を使うのが最強
0073デフォルトの名無しさんNGNG
>>71
19
39
41
のレスと
perlについで、動くサンプルソース
がソッコーで提供された点。

VBやVC++のサンプルが無いのは
動くサンプルを作るのが面倒だと
推測出来るところ。
0074デフォルトの名無しさんNGNG
んじゃ、いちおーC++出しておく。

#include <iostream>
#include <string>
#include <sstream>
#include <functional>
#include <algorithm>
#include <boost/tokenizer.hpp>

template<typename T>
class table_writer :
 public std::unary_function<std::basic_string<T>, void>
{
 std::basic_ostream<T>& stream_;
public:
 table_writer(std::basic_ostream<T>& stream)
  : stream_(stream){ }

 void operator()(std::basic_string<T> elem)
 { stream_ << "<td>" << elem << "</td>"; }
};

template<typename T>
void csv2html(
 std::basic_istream<T>& in,
 std::basic_ostream<T>& out)
{
 boost::char_separator<T> d(",");
 out << "<html><head><title></title></head><body><table border=1>";
 std::basic_string<T> line;
 while (!std::getline(in, line).eof()) {
  boost::tokenizer<
   boost::char_separator<T>,
   std::basic_string<T>::const_iterator,
   std::basic_string<T> > t(line, d);
  out << "<tr>";
  std::for_each(t.begin(), t.end(),
   table_writer<T>(out));
  out << "</tr>";
 }
 out << "</table></body></html>";
}

int main()
{
 std::basic_ostringstream<char> ss;
 csv2html<char>(std::cin, ss);
 std::cout << ss.str();
 return 0;
}
0075棄教者 ◆witdLTi2 NGNG
糞スレ立てた>>1へ
ソースを最初に提供したのは>>7だぞ。長さも一番短い。
あと一番イージー&プレインな解決法(Excel)を示したのは>>3>>4だ。
お前の目は節穴かと小一時間問いつめるぞ。
それが嫌なら削除依頼出すか牛鮭定食でも食ってろ。
0076デフォルトの名無しさんNGNG
>>74

ええのう、C++らしいソースやのう
でもboostは標準じゃないと思う。
0077デフォルトの名無しさんNGNG
>>74
実はUNICODEにも使えそうで全く使うことが出来ない罠
0078デフォルトの名無しさんNGNG
上のほうでExcelの*.csvが標準みたいに書かれているけど、
Excelの*.csvってのはローカル仕様だらけだぞ。
Excelに完全準拠しようとすると悲惨な目にあう。
(まだAccessのほうがスジがいい。)

以下の方言をまじめにインプリメントする気になる?
方言1:"009"は文字列「009]とは解釈されず、数値「9」と解釈される
     つまり、"〜"は、文字列であることを意味しない
     0で始まる数字の文字列をそのまま渡す方法はない
方言2:赤"は、文字列「赤"」と解釈される
     つまり、項目の先頭でない「"」は単なる文字扱い
方言3:"〜"の中では、CR/LFかLFで項目内改行ができる
     つまり、トップダウンで1行読み込み→1項目取り出し
     というロジックが組めない(頭から順に1項目ずつ取り出し、
     その値を評価しながら読むしかない)
方言4:=、+などで始まる項目は式になってしまう
     ""でくくっても無駄(あくまで、中身を評価した値が優先する)
■ このスレッドは過去ログ倉庫に格納されています