トップページ⇒prog
173コメント54KB

ＣＳＶを解析するコードを投稿せよ

■ このスレッドは過去ログ倉庫に格納されています
0001仕様書無しさんNGNG
ＣＳＶを解析するエレガントなコードを投稿せよ。
ＣＳＶはＥｘｅｃｌで読み込めるものとする。
Ｃ言語限定。
0002仕様書無しさんNGNG
>>1
仕事は自分でやりましょう。
つかそのぐらい作れないのか？
0003仕様書無しさんNGNG
学生だろ。
ほら、最終レポートの季節だからさ。
0004仕様書無しさんNGNG
１です。
>>2

作ったよ。
でももっともっと良いコードがみたい。
プログラミング作法で取り上げられていたもの以上のものを。
0005仕様書無しさんNGNG
だから、「プログラミング作法」が教科書だったんだろ。
それでレポートが「CSVのサンプルを改良せよ」じゃないのか？
ありがちだな。で、あげんな。
0006仕様書無しさんNGNG
>>4
じゃあ、まずお前の書いたコードを
晒してみろよ。
0007仕様書無しさんNGNG
仕事なら、perlでやれ。>>学生さん
0008仕様書無しさんNGNG
>>1
ほらよ。

char *csv = "abc,def,ghi";

for(f = strtok(csv, ","); f != NULL; f = strtok(NULL, ",")) {
　printf("%s\n", f);
}
0009仕様書無しさんNGNG
open "hoge.csv" for input as #1
do until eof(1)
input #1, a, b, c, e, f, g
loop
close #1
0010なんとなく。NGNG
1がいいころあいに叩かれているので、自分のソースをUPしてくれると
盛り上がりそうで、何よりです。
0011仕様書無しさんNGNG
Dim fso As Scripting.FileSystemObject
Dim tso As Scripting.TextStream
Dim fields() As String
Dim i As Long
Set fso = New Scripting.FileSystemObject
Set tso = fso.OpenTextFile("FOO.CSV")
Do Until tso.AtEndOfStream
fields = Split(tso.ReadLine, ",")
For i = LBound(fields) To UBound(fields) Step 1
' なんかすれ
Next
Erase fields
Loop
tso.Close
Set fso = Nothing
Set tso = Nothing
0012仕様書無しさんNGNG
>>11
先生！質問です。
このperlのようなJavaのような言語がVBなんですか？
001311NGNG
>>12
これがかの有名なクソ VB だよ。
つか、

　　ネタスレには sage

テストに出るからね。
0014仕様書無しさんNGNG
ていうか解析？
0015仕様書無しさんNGNG
abc,"def"",""ghi","jkl
mno
001612NGNG
>>13
わかりました！さげます！

テストが悪くても、出席点で救ってください！
先生の講義、最高でした！
0017仕様書無しさんNGNG
Excelに解析させたら一番よい。
csvファイルを開かせてセルごとに読み取ればいいでしょ。
0018仕様書無しさんNGNG
12さんよ　俺はPerlには見えなかった
12さんよ　どのへんがPerlっぽいか教えてください
001912NGNG
>>18
split関数です！
それから変数の型もみんなDimだけかと思ったのであります！

このスレは「1を小馬鹿にするスレ」から「12をいぢめるスレ」に
変わったようです。

先生！もう寝ます！
0020nullNGNG
Javaで行毎にファイル読みこんでStringTokenizer使えば終了。
0021仕様書無しさんNGNG
cutって便利だね
http://linux.nikkeibp.co.jp/re-command/text_12.html
0022仕様書無しさんNGNG
#!/usr/bin/awk -f
BEGIN {
　　FS=",";
　　printf("awk使えやゴルァ！\n");
}
{
　　for (i = 1; i <= NF; i++)
　　{
　　　　printf("%s\n", $i);
　　}
}
END {
　　printf("あとは好きにしろ！\n");
}
0023仕様書無しさんNGNG
>>1
セル内改行はあり か?
セル内に「,」はあり か?
セル内に「"」はあり か?
0024仕様書無しさんNGNG
procedure AnalyzeCSV(aFileName: TFileName);
var
　i : Integer;
　slCSV : TStringList;
　slComma: TStringList;
begin
　slCSV :=TStringList.Create;
　slComma:=TStringList.Create;
　try
　　slCSV.LoadFromFile(aFileName);
　　for i:=0 to slCSV.Count-1 do
　　begin
　　　slComma.Clear;
　　　slComma.CommaText:=slCSV[i];

　　　// なんかすれ

　　end;
　finally
　　slComma.Free;
　　slCSV.Free;
　end;
end;
0025仕様書無しさんNGNG
セル内にカンマやダブルコーテーション、改行があると
たちまち難易度があがりません？（ＥｘｅｃｅｌＣＳＶ）
コードは書けるけどやっぱりスマートじゃないね。
0026仕様書無しさんNGNG
セル内に改行があるCSVなんてあるの？
0027仕様書無しさんNGNG
>>26
Ｅｘｃｅｌならセル内に改行があるＣＳＶも読めるよ！
0028仕様書無しさんNGNG
>>27
知らなかった。
ダブルコーテーションでくくれば、改行があってもＯＫってこと？
0029仕様書無しさんNGNG
>>28
ダブルコーテーションでセルくくるのは
セル内に
・カンマがある場合
・ダブルコーテーションがある場合
（セル内のダブルコーテーションは続けて２回書く）
だ。
改行は括らなくてもよい。
0030仕様書無しさんNGNG
２９の続き。
以上の事を考慮したらコードを書くのはそれなりのスキルが必要。
ガリガリ書けばどうにかなるが奇麗には書けん。＜俺
0031仕様書無しさんNGNG
>>29
改行がある場合は、行の終わりはどう表現されてるの？
0032仕様書無しさんNGNG
>>24
DelphiのCommaTextって
スペースや、TABも区切りとして認識するから
使えないよう。
あと、誰も言及しないからオレの使い方がダメなのかも
しれないけど、最後のフィールドがNullだと
そのフィールドを認識しないから、ダメダメよ。
0033仕様書無しさんNGNG
>>31
やっぱり改行で表現。
つーか、本来、CSVファイルって、改行で１レコードと
するわけだから、Excelや、FileMakerの改行のあるフィールド
ってのが方言と思ってしまう自分の融通のなさに
ちょっと自己嫌悪。
0034仕様書無しさんNGNG
CSVの仕様書ってどっかにあるのかなあ。
前自分で読み込みルーチン作った時は、ひたすらクサそうなデータをExcelに
出力させて調べたんだけど、鬱になった。
0035仕様書無しさんNGNG
>>34
ＣＳＶフォーマットの明示的な仕様ははっきり言ってない。
メーカーごとに違う。
いまはＭＳのＣＳＶフォーマットが主流かな。
でも腐った仕様だな。プログラムで扱いにくい。
セル内のカンマは￥でエスケープする仕様ならスマートなのに・・・
なんで広まったんだろう。ＭＳの力か？
0036仕様書無しさんNGNG
>>35
CSVを読み書きしたい状況ってのは、やっぱExcelとのデータ交換が目的
の場合が多いからねえ。
「\」でのエスケープは、DOSのパス区切りとカチ合うから採用しなかったんじゃ
ないかと想像してみる。
003733NGNG
>>34-35
エクセルの普及なんだろうねぇ。
ただ、もともとはレコードをテキストで表現するのが発端だから
文字列区切りとしての"を利用するのであればそのフィールド
全部を"で括るのが正しいと思う。場当たり的にその問題個所だけ
"を入れたりするのはMSの得意な独自解釈・・・。
と、今さらながらテ料理本を探す自分にちょっと懐古趣味。
0038仕様書無しさんNGNG
>>32
あ、やっぱ空の行は駄目なのね
if Trim(slCSV[i])<>'' then
でよろしく

これで実用上問題なかったよ
0039仕様書無しさんNGNG
>>1
宿題は自分でやれよ。

=== 糸冬　了 ===
004039NGNG
あげちまった。
ｽﾏｿ
0041仕様書無しさんNGNG
Excelのセル内改行ってクセがあると思わない？
0042仕様書無しさんNGNG
>>41
クセって？
0043仕様書無しさんNGNG
>>42
エロいこと聞くな
0044仕様書無しさんNGNG
>>42
Excel97/2000の場合なんだけど、
セル内改行があるときは、そのセルは""で括られる、というのは良
いのだけど、セル内の改行が、0x0A で表現されている。
CSVファイルの行末はDOS/Windows のテキストだから 0x0D 0x0A。

テキストモードでファイルオープンして書き込もうとしたらマズイ。

何のためにこういう仕様になってるんでしょ? それともOffice XP
だったら違う?
0045仕様書無しさんNGNG
>>44
Excel 2000で試してみたところ、セル中の改行が0D 0Aになっても
問題なく読み込めたよ。
004642NGNG
>>44
レコードの終了と（セル内の）行末を区別したかったってトコでしょうかね。
0047仕様書無しさんNGNG
>>45
さっそくの確認サンクス。
今はExcel 97+ Windows 2000の環境しか手元にないのだけど、
この環境ではセル内改行が 0D0Aになってると読み込んだときに
点が付く。Officeは新しい方が良いということか...
0048仕様書無しさんNGNG
ExcelのCSVて嫌い。なんか独自仕様な部分がおおくてさ、
他のシステムで使えない場合が多いんだよね。

でも正しいＣＳＶってどん何？だれか教えて、

数値のマイナス符号は前、後？
ダブルクォーテンションの表記は2度打ち？
カンマの場合は？
文字列に必ずダブルクォーテンションを括るのか？
値無しを認めるの？
などなど、、、。

固定長にカンマを差し込んだだけのＣＳＶも見たことあるな．．．。
0049仕様書無しさんNGNG
ExcelCSV（" , 改行含む）を解釈するスマートなコード見てみたい。
0050仕様書無しさんNGNG
FileMakerの場合、フィールド内の改行文字は垂直タブ文字になる。
全てのフィールドは「"」で囲まれ、フィールド内の「"」は「""」になる。
005145NGNG
>>47
すまん。47を見てもう一度確認したところ、見た目には問題ないのだが、
セルの中でカーソルを動かすと、幅0の目に見えない文字(藁)が入っている。
てことで、45は撤回。セル内改行はExcel 2000でも0Aのみでないとダメ。
005247NGNG
>>51
了解。やはり2000でもマズかったようですね。
0053仕様書無しさんNGNG
>>50
FileMakerの仕様は初耳。CSVってやっぱりいろいろ方言があるんだ...
0054仕様書無しさんNGNG
ttp://www.orchid.co.jp/computer/cschool/csv2.html
0055仕様書無しさんNGNG
>>54
これは、要素内の改行には対応してないみたいね。

俺も探してみよー。
0056仕様書無しさんNGNG
>48 CSVの仕様ってのは存在しないんだよ｡
だから、CSVのパーサを作る時一番大変なのは、CSVの仕様を決定すること｡
当然Excelモードは欲しいから、Excelのファイル形式を洗い出すところから
始めなきゃならん。
0057仕様書無しさんNGNG
>>56 が良いこと言った
0058仕様書無しさんNGNG
CSVってエスケープシーケンスって無いの？
カンマとか引用符はどうするの？
0059仕様書無しさんNGNG
>>58
実装者が決定するんじゃないの？
0060仕様書無しさんNGNG
>>58
Excelだと、次のような感じ。
セル内にカンマや改行があれば、セルをダブルクォートで括る。
ダブルクォートで括ったセルにダブルクォートを入れたい場合は2個連続で1個
のダブルクォートとみなす。
エスケープシーケンスはExcelのCSVには多分ないと思う。

あとは >>59 が書いているように実装する者が決めることになるのだと
思う。セルがカンマ(と改行)でセパレートされてさえいたらとりあえず
CSVなんだし。
006158NGNG
因みに私は、\ エスケープを使用する形で実装する事が多いです。
0062仕様書無しさんNGNG
仕様書にExcel互換とする。って書いてある。鬱
0063仕様書無しさんNGNG
>>62
だったら、Excelでいろいろ書きまくってCSVで保存してみたら?
Excelだったら改行以外の制御コードは扱わないで良いと思うけど。
0064仕様書無しさんNGNG
>>63
コーディングは終わったけど・・・
java でやることはきまってたのでストリームで読みながら、データの整合性を
チェックして・・・
きったないソースができた。解読不能
0065仕様書無しさんNGNG
>>64
>>1 は C 言語限定っていってるけど (w
0066仕様書無しさんNGNG
言語はなんでも、ExcelのCSVを解析するよいソースがあればいいなと思って
このスレをみてたのです。
Cでどうぞ
006756NGNG
Javaがいいなー。CSVTokenizer
006866NGNG
>>66
だけど、Excel互換ではないよね。互換だったらURLキボンヌ
006966NGNG
66は自分ジャン
>>67
0070仕様書無しさんNGNG
プログラミング作法(Brian W.Kernighan・Rob Pike著)
に載っているＣＳＶ分析について調べているページ。
http://dontaku.csce.kyushu-u.ac.jp/~yoshi_w/study/b4seminar/0612/0612.html

公式サイトもあるがＵＲＬ忘れた。

ハッカーが書いてもやっぱりこれくらいやらないと分析できないのか？
ＭＳのＣＳＶ仕様がいかに行き当たりばったりかわかります。
0071仕様書無しさんNGNG
公式サイト

The Practice of Programming
by Brian W. Kernighan and Rob Pike.
http://cm.bell-labs.com/cm/cs/tpop/

Code from The Practice of Programming
http://cm.bell-labs.com/cm/cs/tpop/code.html
CSV programs from Chapter 4 を見るべし。

日本語版￥２８００円也。コストパフォーマンス極めて高し。
0072仕様書無しさんNGNG
Ｋ＆ＰがＣＳＶを設計してたらこんな仕様には
しなかったと思うのが良く分かります。
￥でカンマやダブルコーテーションをエスケープしていれば
こんな心配事しなくても済んだのに・・・
0073仕様書無しさんNGNG
でも￥マークってShift-JISの2バイト目と競合するから面倒だと思う。
0074仕様書無しさんNGNG
>>73
ケツから解析しなければ問題ないんでねーの？
0075仕様書無しさんNGNG
>>74
# とか $ だったらもっと簡単にならない? Shift-JISでもEUC-JPでも
共通でいけそうな気がするけど。
007674NGNG
>>75
それもいいかも。
でも『エスケープは \ だ』って思ってる向きには使いづらいかも。
007775NGNG
>>76
>でも『エスケープは \ だ』って思ってる向きには使いづらいかも。

確かに。
# とか $ でエスケープしたら「何それ?」って言われそう。

ただ、CGIなんかだと8ビット目が立っていたり、コントロールコード
だったりしたら、%(文字コード)で処理してるし、途方もない暴挙では
ないような気もする。
007874NGNG
>>77
いっそのことセル内は URL エンコードするってのはどうでしょ？
0079仕様書無しさんNGNG
チャレンジしてみたが、90行超えた時点でエレガントはあきらめた。
yacc & lexつかった方がはえぇ。
"の""は文字とか改行継続とかリードバッファ分割とかがソースを汚くする。
バッファ分割しないで丸ごとってのも、1GのCSVファイル読むと使いものに
ならない、とかなりそうで嫌だしなぁ。
0080仕様書無しさんNGNG
>>79
お疲れ様。
yacc & lex 使うと余計汚くなんない？
yacc や lex のソース自体があまり綺麗なものじゃないし．．．
00811NGNG
二日過ぎたからきてみたが、なんだ誰もできねえのか
糞ばっかだな、ここ
0082仕様書無しさんNGNG
宿題終わんなくて残念だね>1
0083仕様書無しさんNGNG
Unix系の発想だとエスケープに「\」を使いたくなるけど、引用符中の引用符
のエスケープに引用符自体を連続して書くのはそれほどめずらしくもないような
気もする。
79でyacc、lexが出てるのを見て、一文字ずつ処理するオートマトンでなんと
かするってのを思いついた。きれいに実装できるかチャレンジしてみるか。
0084仕様書無しさんNGNG
age
0085nullNGNG
そもそもCSVを解析するってのが意味が不明瞭だよな。
0086仕様書無しさんNGNG
>>81-82
ワラタ。ここまで厨房まるだしの>>1は久々に見た。
そもそも宿題になるレベルかぁ？
・・・なってるんだろうなぁ。
008783NGNG
できた。(3時間かかったわけじゃないぞ。所要時間は20分くらいかな)
なんか全部ポストできないみたいだから、さわりだけ。

enum csv_result {
　CSV_CONTINUE, CSV_ERROR, CSV_END, CSV_FIELD, CSV_LAST_FIELD
};

typedef struct csv_struct csv_t;

struct csv_struct {
　enum csv_result (*parse)(csv_t *, int); /* 初期値はparse_plainにする */
　int (*in)(void *); /* (バッファ|ファイル)から1文字取ってくる。終端以降ではEOF */
　void *inp; /* inへ渡す引数 */
　int (*out)(void *, int); /* バッファへ1文字追加 */
　void *outp; /* outへ渡す引数 */
};

/* こいつらが中でcsv_struct.parseをうにうに変更する */
static enum csv_result parse_plain(csv_t *, int);
static enum csv_result parse_quote(csv_t *, int);
static enum csv_result parse_in_quote(csv_t *, int);
static enum csv_result parse_quote_in_quote(csv_t *, int);

enum csv_result
csv_reader(csv_t *csvp)
{
　int c;
　enum csv_result r;

　if (csvp->parse == NULL)
　　return CSV_END;
　for (;;) {
　　c = (csvp->in)(csvp->inp);
　　r = (csvp->parse)(csvp, c);
　　if (r != CSV_CONTINUE)
　　　return r;
　}
}
0088仕様書無しさんNGNG
>>87
コードは全部で何行よ？
0089仕様書無しさんNGNG
>>87
さわりがこれじゃ・・・（以下略）
0090仕様書無しさんNGNG
>>1 じゃないけど
Excel の CSV
カンマで区切られた文字列を1要素とする。
基本的に改行を1レコードの区切りとする。
要素の中に[,]["][CR-LF]を含む場合
1.要素内の["]は[""]に変換する。
2.要素内の[CR-LF]は[LF]に変換する
3.["]で要素全体を挟む
でいいのかな？
めんどくさいね。
0091仕様書無しさんNGNG
strtok っぽい形の CSV 解析関数が52行で書けたんだが、
これでは仕様が簡単過ぎるのか？
でも、わざわざ左右の空白のトリミングもしてるしなぁ。
0092（ﾟдﾟ）ｳﾏｰNGNG
ｿﾛｰﾘ｡｡
009383NGNG
>>88,89
csv_t使わないでcsv_reader内にstaticな変数を置き、でかいswitch文
使ってた時は50行くらいだったかな。ネストが深くなるし、FALLTHROUGH
使いまくりで汚かったからオートマトンは関数ポインタで実現することにし、
汎用的に使えるように色々改造してったらセットアップ部も含めて全部で
100行ちょいくらいになった。
他の言語だともっとスマートに書けるかな。
0094仕様書無しさんNGNG
>>91
少なくともExcelだとセル内文字列の左右に空白がある場合でも""でくくりません。
だから数値データであることが明らかでない限りトリミングすると不都合があるよ。
0095通りすがりNGNG
>>90
＞要素の中に[,]["][CR-LF]を含む場合
＞1.要素内の["]は[""]に変換する。
＞2.要素内の[CR-LF]は[LF]に変換する
＞3.["]で要素全体を挟む

補足が必要。入力の場合は
　赤",青,黄
は、
　「赤"」、「青」、「黄」
と解釈される。Excelでは。（Excel2000で確認）
また、出力のとき「赤"」がそのまま出力されるか
　「"赤"""」
と出力されるかどうかは、バージョンによる。
（いつから後者になったかは、よく分からない）

ちなみに、赤"はｳﾞｧｶと読む。
0096仕様書無しさんNGNG
>>95
> 　「赤"」、「青」、「黄」
> と解釈される。Excelでは。（Excel2000で確認）
知らんかった。フィールドの最初の「"」以外はクオートの開始にはならないわけね。
0097仕様書無しさんNGNG
>　「"赤"""」
>と出力されるかどうかは、バージョンによる。
これが困るんだよね。ゲイツ君
009891NGNG
>>94
っちゅーことは、もっと短くなるわけか。
009991NGNG
いろいろ改良した結果、C で 44 行、C++ で 38 行だ。
ただ、C の方はちと汎用性に欠けるコードだけど。
0100仕様書無しさんNGNG
>>99
44 行ってすげー。まじで荒らしとかじゃなくて見てみたい。>コード

100!!
010191NGNG
>>100
1 の書き込みから少なくとも一週間経ってから。:P

enum とかプロトタイプとか含めるともうちょい行数増えるけどね。
あと、strtok と似たような仕様で、
純粋に切り出すところの処理しか書いてない。
それと、Excel の仕様と合致してないところが少し...。
でも、Excel の仕様同士がそもそも合致してない！

C は入出力の両方とも文字列として書いてるので汎用性低い。
83 さんのように汎用的にすると、
読み出し書き込み処理も書く必要があって、
C ではどうしても長くなってしまう。
そこをさぼってるから 44 行に収まるのであって、
まともに作ると全体ではかなり長くなってしまう。
C++ だとそのあたり istream や string/ostream が使えて、
気軽に汎用的にすることができる。
0102仕様書無しさんNGNG
perl5のライブラリにCSVを解釈するものがあるようなんですが
0103仕様書無しさんNGNG
ＯＤＢＣのテキストドライバーをＣから使うってのが正解じゃないか？＜お前ら
0104仕様書無しさんNGNG
プログラマとしての力量が問われるスレだろ？
腕に自信が有るプログラマなら討論すべし。
0105仕様書無しさんNGNG
CVSを解析して、漢字コード混在の問題をどーにかしてください。
010691NGNG
typedef enum _tag_csv_ret_t
{
　CSV_TOKEN, CSV_EOL, CSV_END,
} csv_ret_t;

csv_ret_t csvtok(char** pstart, char* buffer, int bufsize)
{
　int i, ibuf = 0;
　char letter;
　char* start = *pstart;

　if(start[0] == '\0')
　　return CSV_END;

　for(i = 0; ; i++)
　{
　　letter = start[i];
　　switch(letter)
　　{
　　case ',':
　　　if(start[i + 1] == '\n' || start[i + 1] == '\0')
　　　　letter = start[++i];
　　case '\0':
　　case '\n':
　　　goto MAIN_LOOP_OUT;

　　case '"':
　　　for(i++; letter = start[i], letter != '\0'; i++)
　　　{
　　　　if(letter == '"')
　　　　{
　　　　　if(start[i + 1] != '"')
　　　　　　break;
　　　　　i++;
　　　　}
　　　　if(ibuf < bufsize - 1)
　　　　　buffer[ibuf++] = letter;
　　　}
　　　break;

　　default:
　　　if(ibuf < bufsize - 1)
　　　　buffer[ibuf++] = letter;
　　　break;
　　}
　}
MAIN_LOOP_OUT:

　buffer[ibuf] = '\0';
　*pstart = &start[i + 1];
　return (letter == '\n' || letter == '\0' ? CSV_EOL : CSV_TOKEN);
}
0107C++ verNGNG
template <typename char_type>
csv_ret_t csvtok(istream& src, basic_string<char_type>& dst)
{
　dst.erase();

　int letter = src.get();
　// char_type へのキャストでは危険？ でも、L 使うとテンプレートにできないし。
　if(letter == (char_type)(unsigned char)('\0') || letter == char_traits<char_type>::eof())
　　return CSV_END;

　for(; !src.eof(); letter = src.get())
　{
　　switch(letter)
　　{
　　case (char_type)(unsigned char)(','):
　　　letter = src.peek();
　　　if( ! (letter == (char_type)(unsigned char)('\n') || letter == char_traits<char_type>::eof()) )
　　　　return CSV_TOKEN;
　　　src.get();
　　case (char_type)(unsigned char)('\n'):
　　　return CSV_EOL;

　　case (char_type)(unsigned char)('"'):
　　　for(letter = src.get(); !src.eof(); letter = src.get())
　　　{
　　　　if(letter == (char_type)(unsigned char)('"'))
　　　　{
　　　　　if(src.peek() != (char_type)(unsigned char)('"'))
　　　　　　break;
　　　　　src.get();
　　　　}
　　　　dst += letter;
　　　}
　　　break;

　　default:
　　　dst += letter;
　　　break;
　　}
　}
　return CSV_EOL;
}
010879NGNG
負けたかも。

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define CleanUpErrorReturn(buf) { free(buf); return( NULL ); }

#define CopyDataWithFree(Dest, Src) { \
strcpy(Dest, Src); free(Src); Src = NULL; \
}

#define SetDataWithXchgPointer(Buf, Mst, c, len) { \
CopyDataWithFree(Buf, Mst); \
Buf[len-2] = c; Buf[len-1] = '\0'; Mst = Buf; \
}

char *GetWord(FILE *fp)
{
size_t len;
static char c, c2, *pcWord, *pcLocalBuf;

len = 0;

if( (pcWord = (char *)malloc(++len)) == NULL ) return( NULL );
pcWord[0] = '\0';

if( (c = fgetc(fp)) == EOF ) CleanUpErrorReturn(pcWord);
010979NGNG
switch( c ) {
case '"': /* Quote */
while( (c = fgetc(fp)) != EOF ) {
if( (pcLocalBuf = (char *)malloc(++len)) == NULL ) {
fprintf(stderr, "\n[%d] malloc()\n", __LINE__);
CleanUpErrorReturn(pcWord);
}
switch( c ) {
case '"': /* "" Check */
switch( (c2 = fgetc(fp)) ) {
case '"':
SetDataWithXchgPointer(pcLocalBuf, pcWord, c, l

break;
case EOF:
default:
fgetc(fp); // Trim ','
CopyDataWithFree(pcLocalBuf, pcWord);
return( pcLocalBuf );
}
break;
default:
SetDataWithXchgPointer(pcLocalBuf, pcWord, c, len);
}
}
011079NGNG
default: /* Not Quote */
do {
if( (pcLocalBuf = (char *)malloc(++len)) == NULL ) {
fprintf(stderr, "\n[%d] malloc()\n", __LINE__);
CleanUpErrorReturn(pcWord);
}
switch( c ) {
case '\r':
fgetc(fp); // Trim '\n'
case ',':
CopyDataWithFree(pcLocalBuf, pcWord);
return( pcLocalBuf );
default:
SetDataWithXchgPointer(pcLocalBuf, pcWord, c, len);
}
} while( (c = fgetc(fp)) != EOF );
}

return( pcWord );
}
011179NGNG
int main(int argc, char **argv)
{
char *pc;
FILE *fp;

if( argc > 1 ) {
if( (fp = fopen(argv[1], "r")) == NULL ) {
perror("fopen");
exit(1);
}
}
else
fp = stdin;

while( (pc = GetWord(fp)) != NULL ) {
printf("[WORD] <%s>\n", pc);
free(pc);
}

if( fp != stdin )
fclose(fp);

return( 0 );
}
0112109NGNG
訂正.
case '"': /* "" Check */
switch( (c2 = fgetc(fp)) ) {
case '"':
SetDataWithXchgPointer(pcLocalBuf, pcWord, c, len); ←かけちやた
break;
0113仕様書無しさんNGNG
↑こんなコード書いているようじゃいつまで経っても二流だな。
011479NGNG
>>113
ごめそ。それにバグってた(藁。
fgetc(fp); // Trim ',' の行いらない。

申し訳ないのでしばらく書き込み自粛するね。
0115仕様書無しさんNGNG
>>114
めげずに投稿しろよ！間違っててもいい。
それについての批判はプラス指向にとらえればいい。
そこまでの発想力があるならもったいない。
0116仕様書無しさんNGNG
このスレみるとExcel互換のCSV解析が要求されることが多い
ってことだけど、それ、目標を間違えてないか？
Excelの*.csvって、基本的にExcel独自の保存形式の1つだよ。
だから、"007"を文字列「007」じゃなく数値「7」って解釈して
平気でいたりする。
でも、ほとんどのアプリケーションは"007"は文字列「007」って
解釈して欲しいんじゃないか？
Accsess互換のほうがまだましな気がする。
0117Kusakabe YouichiNGNG
In article >>116, 仕様書無しさん/116 wrote:
> Excelの*.csvって、基本的にExcel独自の保存形式の1つだよ。

でもExcel以前からありまたよ:)
0118仕様書無しさんNGNG
>でもExcel以前からありまたよ:)

ププッ(W
0119Kusakabe YouichiNGNG
In article >>118, 仕様書無しさん/sage/118 wrote:

> >でもExcel以前からありまたよ:)
>
> ププッ(W

「とりあえず何か言っておく」なんてのができるのも匿名ならではですか? :)
0120仕様書無しさんNGNG
ププのプ(W
0121116NGNG
>>117

だからあ、「Excelの*.csv」っていってるじゃん！
それ以前からあったK3などとは別の話。
0122Kusakabe YouichiNGNG
In article >>121, 116/121 wrote:
> だからあ、「Excelの*.csv」っていってるじゃん!

そうじゃなくてcsvはExcel以前からあったよと言っているだけですよ?
0123仕様書無しさんNGNG
>>122

だから、、「Excelの*.csv」って、特定してるんでしょ、>>121は。
アフォですか？
0124仕様書無しさんNGNG
>>123

アフォに決まってるじゃないか。お前はアフォか。
0125仕様書無しさんNGNG
先生はExcelについてあまり詳しくないので
許してあげてください。
0126仕様書無しさんNGNG
先生はロータスなら少しつかえます。
0127Kusakabe YouichiNGNG
In article >>123, 仕様書無しさん/123 wrote:
> だから、、「Excelの*.csv」って、特定してるんでしょ

いいえ、わたしはしてませんよ。
0128仕様書無しさんNGNG
先生は話の流れが理解できないので許してあげて
ください。
0129仕様書無しさんNGNG
あぁ、いつから.docと付くファイルがプレーンなテキストで書かれたドキュメントファイルじゃ無くなったんだろう。

CSV使うくらいなら、<TABLE></TABLE>使ってやるぅ！！
0130Kusakabe YouichiNGNG
In article >>125, 仕様書無しさん/sage/125 wrote:

> 先生はExcelについてあまり詳しくないので
> 許してあげてください。

とか言っているやつはイースターエッグを見つけられなかったやつだとみた:)
0131Kusakabe YouichiNGNG
In article >>126, 仕様書無しさん/sage/126 wrote:

> 先生はロータスなら少しつかえます。

そんなもんつかってどうする:)
0132Kusakabe YouichiNGNG
In article >>128, 仕様書無しさん/sage/128 wrote:

> 先生は話の流れが理解できないので

理解できていないのはあなたでしょうね。
0133Kusakabe YouichiNGNG
In article >>129, 仕様書無しさん/sage/129 wrote:

> あぁ、いつから.docと付くファイルがプレーンなテキストで書かれたドキュメントファイルじゃ無くなったんだろう。

MS-Wordがでてきたころからｄしょうね。
0134仕様書無しさんNGNG
>>133

ｄしょうね　とは？
0135仕様書無しさんNGNG
困ったとき誤魔化すのは先生の得意技なので
許してあげてください。
0136仕様書無しさんNGNG
先生は感情が高ぶると手が震えてキーがまともに打てなくなるので許してあげてください。
0137116NGNG
>128

これがクサカベたんなのか。。。
やはり、初めから無視すべきだったのか。。。
0138Kusakabe YouichiNGNG
In article >>135, 仕様書無しさん/sage/135 wrote:

> 困ったとき誤魔化すのは先生の得意技なので

ということにしたいのですね? :)
0139K子 NGNG
先生はボケっていらっしゃいます。
少しの事は大目にみてください。
0140Kusakabe YouichiNGNG
In article >>136, 仕様書無しさん/136 wrote:

> 先生は感情が高ぶると手が震えてキーがまともに打てなくなるので

そう思うと安心できるのですか? :)

# あいにく誤植はしょっちゅうですが。
0141仕様書無しさんNGNG
すぐに「ということにしたいのですね? :) 」と書いて
しまうのは他に書くことが無くなったときなので、それ以上
先生を追い詰めるのはやめてあげてください。
0142Kusakabe YouichiNGNG
In article >>141, 仕様書無しさん/sage/141 wrote:

> すぐに「ということにしたいのですね? :) 」と書いて

すぐにって、速度は関係ないですね。
頻度については、「そんな反応されるような、ごまかし'感想'」を
補足しているだけなので、それが出てくる頻度にすぎないですね。

> しまうのは他に書くことが無くなったときなので、

と思いたいわけですね? :)
0143仕様書無しさんNGNG
>>137
日下部も必死なんだよ。
奴の日常会話を見てみろ↓



「日下部」ちくしょう！ちくしょう！
「けいこ」あなた、また２ｃｈを荒らしているのね？
「日下部」うるさい、お前は黙ってろ！
「けいこ」あなたの、あなたのせいで、私や娘に身の危険が迫っているのよ！
「日下部」２ｃｈの奴らのせいで私の本が売れなくなったのだぞ！
「けいこ」だからって自分の本を何百冊も買わなくても・・・
「日下部」黙れ、黙れ！
0144仕様書無しさんNGNG
ﾜﾗﾀ
0145仕様書無しさんNGNG

　　　　　　　　　　　　　　　　　　／　￣￣￣￣＼
　　　　　　　　　　　　　　　　　/　　　　　　　　　　ヽ
　　　　　　　　　　　　　　　　 /　　　　　　　　　　　ヽ
　　　　　　　　　　　　　　　　 | 人_____________　　　　 |
　　　　　　　　　　　　　　　　　|●　　●　　|　　　 　|　 クソスレもほどほどにね
　　　　　　　　　　　　　　　　 /　　　　　　 /　　　/　|
　　　　　　　　　　　　　　　 /|▼　　　　 ./　　／　　|
　　　　　____________　　　　 |___|┴―　　 /__／ |　 丿
　　　　 ＼〜〜 ／　　　　　　 | ￣　　 　　 　 |__/ )
　　　　　　＼ ／___　　　　　　　(＼＿__　 　 /　　)―――
　　 　　　( つ(__/　＼　　 　　 （　　|　　　／　　　）
　　　　　　(__ﾌ|　　　　＼　　/　（　 |　　/　　　　）
　　　 　 ⊂―||―、　　　|　/
0146仕様書無しさんNGNG
もう何が何やら。
0147Kusakabe YouichiNGNG
In article >>146, 仕様書無しさん/sage/146 wrote:

> もう何が何やら。

ってのは、「何かケチつけてみたいけど具体的なことは何も言えないので
とりあえず何か言ってみる」テストですか? :)
0148K子 NGNG
あなた、もうやめてください。
0149まにあNGNG
毎日のように日下部先生の書きこみを見てオナニーをしています。
0150娘NGNG
お父さん。
みっともないからやめて。
0151ふつーATOKNGNG
>>147
>In article >>146, 仕様書無しさん/sage/146 wrote:
>
>> もう何が何やら。
>ってのは、「何かケチつけてみたいけど具体的なことは何も言えないので
>とりあえず何か言ってみる」テストですか? :)

これと同じですね。
「はつみみです」
「と思いたいわけですね」
「もう思考停止ですか」
「ということにしたいのですね」
「そう思うと安心できるのですか」
「こわがらなくてもいいのにー」
0152仕様書無しさんNGNG
perlでDBD::CSVがおすすめ。
0153仕様書無しさんNGNG
ごしょく 【誤植】



ごしょく 0 【誤植】

--------------------------------------------------------------------------------

印刷物で、文字・記号などに誤りのあること。ミス-プリント。


0154仕様書無しさんNGNG
>153
ﾜﾗﾀ
日下部脳内辞書にはなんと書いてあるか見てみたい(藁
0155仕様書無しさんNGNG
ＣＳＶ解析で、注意する点はなんでしょうか？
0156仕様書無しさんNGNG
>>155
今時のエクセル
　1,2,3,4,5,,,\n
　a,b,c,d,e,f,g,h\n
古いエクセル
　1,2,3,4,5\n
　a,b,c,d,e,f,g,h\n

この違いに注意して解析してみてください。

「CSV編集ソフト」と冠するもののなかでもこういった
テキストを吐き出すものが稀に存在します。
読み込みに失敗した場合にはまずカンマ（要は区切り記号ね）
の数を疑ってみてください。
0157仕様書無しさんNGNG
はぁ…
やっと臭蚊屁が帰りましたねぇ。ｿﾝﾅﾆ ｺﾜｶﾞﾗﾅｸﾃﾓ ｲｲﾉﾆ
「全く」臭蚊屁ってなんで話の流れが読めないんだろう？　ﾄ ｲｳｺﾄﾆ ｼﾀｲﾉﾃﾞｽ
そもそも、彼の辞書には「全く」は「全く」との読みでは載っていないらしい
ﾊﾂﾐﾐﾃﾞｽ｡
0158仕様書無しさんNGNG
> > もう何が何やら。
> ってのは、「何かケチつけてみたいけど具体的なことは何も言えないので
> とりあえず何か言ってみる」テストですか? :)

生々しい日下部の屁理屈ではそうかもしれないが、
生々しい日下部以外の人には意味が通じている。十分でしょ。
0159仕様書無しさんNGNG
なんか臭蚊屁のおかげでスレ住人の結束力が高まっているような気がする。

臭蚊屁には感謝....ｽﾙﾜｹﾈｴｪ
0160Kusakabe YouichiNGNG
In article >>158, 仕様書無しさん/sage/158 wrote:

> > > もう何が何やら。
> > ってのは、「何かケチつけてみたいけど具体的なことは何も言えないので
> > とりあえず何か言ってみる」テストですか? :)
>
屁理屈ではそうかもしれないが、

屁理屈だということにしたいのですか? :)
0161仕様書無しさんNGNG
つーか屁だ。おまえは。
0162仕様書無しさんNGNG
> > 生々しい日下部の屁理屈ではそうかもしれないが、
> > 生々しい日下部以外の人には意味が通じている。十分でしょ。
> 屁理屈だということにしたいのですか? :)

ほのかに臭う日下部はだらしないねぇ。正しい引用も出来なくなってきたの？
0163仕様書無しさんNGNG
ﾊﾝｶｸｶﾅﾊ ﾖﾒﾙﾖｳﾆ ﾅｯﾀﾉ?
0164仕様書無しさんNGNG

みんな気をつけろ！スレ違いの話題に流されるな！
0165仕様書無しさんNGNG
>>116
007の話は頷ける。
Excel97なのだけど
(1)007 って打ったら セル上で 7。 CSV で 7。このCSVをExcelで再読み込みしたら 7。
(2)'007 って打ったら セル上で 007。CSV で 007。このCSVをExcelで再読み込みしたら 7。
(3)CSVのテキストで '007 って入れておいてExcelで読み込んだら '007 って「'」が付く。
(4)CSVのテキストで "007" って入れておいてExcelで読み込んだら 7 になる。

CSVからの読み込みで 007 にする方法があったら教えてくれー。
「Accsess互換」っていうのもちょっと気になるよ。

ちなみにロータス123 2001 だと、(4)のケースは 007 と認識してくれる。
0166仕様書無しさんNGNG
>>165
ダブルクォートでくくる
0167165NGNG
あ、念のため。
俺は「ExcelのCSVを解析する」という前提で話が進むことは、それで良いと思ってる。
仕様の良し悪しは全く別の話。
「ExcelのCSVを解析する」ことが要求されることは実際多いし。
0168165NGNG
>>166
>ダブルクォートでくくる
せっかくレスくれたけど、>>165 の(4)の通り。
Excel97は"007"とCSVに書いておいても、読み込んだら「7｣になってしまう。
Excel2000や2002あたりでは変わっている?
0169166NGNG
ごめん、execl2000だとだめだった

どうやるんだろう
0170165NGNG
>>166
あ、それってAccessの話?
0171165NGNG
>>169
すんません。>170が かぶっちゃった。
0172166NGNG
いやスマン、遙か昔の知識。当てずっぽうだった（ｗ

いまEXCEL2000で確かめてみたが
"007"→'007
'007'→'007'
""007→7（なんだこの変換は？）
\007→\007
\"007\"→\"007\"
\'007\'→\'007\'

ダブルクォートでくくると、中のカンマを文字列の一部としてみてくれるらしい
"007,00"→007,00
0173166NGNG
訂正
"007"→7だな
■ このスレッドは過去ログ倉庫に格納されています