VCでJetによるCSVファイルの読み込み

質問

VCでJetによるCSVファイルを読み込む時、test_1=1,(2.0,3.0)で
の”(2.0”を読み込めないです。”（”のせいかと思いますが、対処
方法を教えてください。

String^ test = gcnew String("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + csvdir + ";Extended Properties=\"text;HDR=Yes;FMT=Delimited\"");
......
csvSelect = gcnew String("SELECT * FROM [" + csvname + "]");
.......
OleDbDataReader^ reader = cmd->ExecuteReader();

//読み込みデータ　test_1=1,(2.0,3.0)
testdata1 = (String ^)reader[0]->ToString();　”test_1=1”を読み込める。
testdata2 = (String ^)reader[1]->ToString(); ”(2.0”を読み込めない　testdata2 は””となります。
testdata3 = (String ^)reader[2]->ToString(); ”3.0)”を読み込める

>>>回答者：edp3142 Extended Properties の右辺に IMEX=1 を追加するといけるかな？

IMEX=1を追加してもだめでした。
テキストなので、以下のように設定していますが、問題がないでしょうか
;Extended Properties=\"text;HDR=Yes;IMEX=1;FMT=Delimited\"

>>>回答者：redfox63 当方の環境では うまく取得できるようですが ・・・
>>>VC2005/2008/2010 デバッグ環境での検証ですけど
>>>reader->IsDBNull(1) は falseを返すんでしょうか？
>>>testdata2 = reader->GetString(1);でも同じ結果ですか

VC2008デバッグ環境で行っていました。reader->IsDBNull(1) は１となっています。
testdata2 = reader->GetString(1);で追加すると、実行するとcatch(Exceptionまで
直接にいき、読み込みがそのままで終了します。

回答No.2

redfox63 · ベストアンサー

どうも原因は CSVファイルをJetが読み込む際のフィールドのタイプの決めるロジックにあるようです
フィールドの推論を止めるようなプロパティがあるのかもしれませんが私は見つけられませんでした

補足されているデータで4番目のフィールドを縦に見ていくと
(2.0 (2.0 1 5.0) 1 1
となります
ココで 3,4,5,6行目が数値として認識されるみたいで、このフィールドが数値だろうと
仮定してしまうのが原因なように思います

CSV冒頭に#Testとある行があるのでしたら

#Test, Field1, Field2, Field3, Field4
#Test, Field1, Field2, Field3, Field4
などと ダミーのヘッダーをつけてみたほうがいいかもしれません
誤変換してしまう他のフィールドがあるなら 同じようにヘッダーを書いて見ましょう

お礼

TextFieldParserの使い方を教えてください。
String^ csvfilename;
Microsoft::VisualBasic::FileIO::TextFieldParser parser = gcnew Microsoft::VisualBasic::FileIO::TextFieldParser(csvfilename,System::Text::Encoding::GetEncoding("Shift_JIS"));ではエラーがあります。
error C2664: 'Microsoft::VisualBasic::FileIO::TextFieldParser::TextFieldParser(System::String ^)' : 1 番目の引数を 'Microsoft::VisualBasic::FileIO::TextFieldParser ^' から 'System::String ^' に変換できません。

回答No.3

redfox63

別な方法として 名前空間Microsoft.VisualBasic を参照設定して

FileIO::TextFieldParser を使うほうがいいのかもしれませんよ

FileIO::TextFieldParser^ myReader =
　　gcnew FileIO::TextFieldParser( "sample.csv" );
myReader->Delemiters = gcnew cli::array<String^>(1) { "," };
cli::array<String^> ^currenRow;

while( !myReader->EndOfData ) {
　　currentRow = myReader->ReadFields();
　　for( int n = 0; n < currentRow->Length; n++ ) {
　　　　Console::Write( "{0} {1} ,", n, currentRow[n] );
　　}
　　Console::WriteLine();
}
myReader->Close();
delete myReader;

といった具合で ・・・

お礼

ありがとう、ございました。

回答No.1

redfox63

CSVファイルの冒頭には ヘッダーがあるのでしょうか？
ヘッダーが無いのであれば HDR=Noとしたほうがいいと思います

当方では

Data1,Data2, Data3
といったダミーのヘッダーをつけてHDR=Yesの状態でテストしました

また直接データという状態の場合は HDR=Noとしております

ん~ そのCSVファイル自体が壊れているとか
VC2008上で新たに生成したCSVでも同じ結果でしょうか？
エンコード方式が Shift-JISではない といったことありませんか

test1=1,(2.0,3.0)ならば
74 65 74 73 31 3D 31 2C 28 32 2E 30 2C 33 2E 30 29
t e s t 1 = 1 , ( 2 . 0 , 3 . 0 )
といった具合のバイト列になると思います Shift-JIS UTF-8等なら

補足

ご教授をありがとうございました。
ファイルの後ろの部分も影響があります。
ご助言をお願いします。
#test
#test
#test
test1=1,(2.0,3.0),(2.0,3.0),(2.0,3.0)
test1=2,(2.0,3.0),(2.0,3.0),(2.0,3.0)
test_1=2,(4.0,3.0),1,(4.0,6.0),3,(4.0,3.0),4,(4.0,2.0)
1=(2.0,-4.0),(2.0,5.0),(2.0,4.0),(4.0,7.0),(4.0,7.0),(6.0,7.0),(7.0,7.0),(8.0,7.0),(4.0,6.0),(1.0,4.0),(1.0,2.0),(3.0,1.0),(4.0,1.0),(1.0,1.0)
test_2=0,(3.0,1.0),1,(3.0,4.0),2,(3.0,6.0),3,(3.0,8.0),4,(3.0,2.0)
test_2=0,(3.0,1.0),1
上記csvファイルでは４行目での
test1=1,(2.0,3.0),(2.0,3.0),(2.0,3.0)の2番目の(2.0を読めないです。
もし、ファイル一番後ろの,1を消していくと読めるようになります。
#test
#test
#test
test1=1,(2.0,3.0),(2.0,3.0),(2.0,3.0)
test1=2,(2.0,3.0),(2.0,3.0),(2.0,3.0)
test_1=2,(4.0,3.0),1,(4.0,6.0),3,(4.0,3.0),4,(4.0,2.0)
1=(2.0,-4.0),(2.0,5.0),(2.0,4.0),(4.0,7.0),(4.0,7.0),(6.0,7.0),(7.0,7.0),(8.0,7.0),(4.0,6.0),(1.0,4.0),(1.0,2.0),(3.0,1.0),(4.0,1.0),(1.0,1.0)
test_2=0,(3.0,1.0),1,(3.0,4.0),2,(3.0,6.0),3,(3.0,8.0),4,(3.0,2.0)
test_2=0,(3.0,1.0)