VBでCSVファイルを読み込む方法(最速方法は？）

こんにちは。VB6.0(SP5)、Windows2000でVBの勉強をしています。
VBのテキストボックスに入力したデータをCSVファイルに保存する時、もうすでに登録されていたらエラーを出したいと思っています。
そこで、CSVファイルを読み込み、同じかどうか確認したいと思っていますが、どの方法で処理するのが早く効率的なのでしょうか。

ファイル形式・・・csvで50行×3列
-----------
aaa,1,2
bbb,3,4
・・・50行程度のデータ
-----------
テキストボックスに入力したデータ・・・例えば"ccc"

１．Open ファイル名 For Input As #fileNum　でEOFまで読み、配列に入れ、その後1列目のデータが"ccc"かどうか確認する
２．Open ファイル名 For Input As #fileNum　で読みながら、1列目のデータが"ccc"かどうか確認し、EOFまで繰り返す
３．DAOを利用し、SELECT文であるかないか確認する(DAO2.5)
の３つの方法を試してみましたが、あるパソコンで行うとDAOが早いのに別のパソコンだとDAOが1番遅いなど、どれが効率的なのかよくわかりませんでした。
このような処理をしたい場合、みなさんはどのような方法で処理されますか？
上記以外の方法でも構いません。アドバイスよろしくお願いします。

No.1 回答者： Samurai-Jack 回答日時： 2004/11/09 11:10

２．が一番早いと思います。

１.と２.は、１.が配列を回す分だけ遅くなります。
（ただし、そんなに変わらないと思いますが）

３.はよくわからないのですが、いったんCSVをMDBとかにインポートして、そこからSelectするということですよね？もしそうだとすると、Selectする分が余計なI/Oになるので、２.よりも遅くなると思います。

内部処理とI/Oを比べると、I/Oがたくさん出る方が当然遅くなりますので、I/Oをできるだけ減らすのがいいと思います。

なお、このチェックが恒常的なものであれば、CSVではなくテーブルにデータを格納して検索するようにした方がいいと思います。

この回答への補足

早速の回答ありがとうございます。
３は、テキストをそのままDBのように扱ってSelectしています。
Set objDB = OpenDatabase(ディレクトリ名, False, False, "Text;DATABASE=" & csvファイル名)

補足日時：2004/11/09 11:21

この回答へのお礼

ご回答ありがとうございます。
２が早そうですか。このチェックは、1秒毎に5回程度登録(CSV確認）し、その後1時間後にまた1秒毎で5回程度・・・の繰り返しです。できればAccessは使いたくないので、２でやってみようと思います。

お礼日時：2004/11/09 16:53

No.2 ベストアンサー 回答者： takasebou 回答日時： 2004/11/09 11:26

まず１はデータを一度に読み込んで作業するならバイナリ形式で読んできた方が早いと思います。

１．２はデータの取込方法をどのようにしているかによりますが、

Line Input などで読んでいるなら、配列分割方法は　Splitを使えば早いと思います(instrとMID$などを利用していたら遅いので)。

３．DAOで直接ファイル操作するって事ですか？　DAOはアクセス相手には早いですが、CSVなどを操作するのには向かないような……。やるならADOの方が早い気がします。やったことないので推測ですが。

あと、SELECT分の書き方によっても速度が変わると思いますが、CSVだとIndexをはってる訳ではないので、そんなに早くない気もします。

たぶんとにかくスピードを優先するなら１の方法で、かつバイナリでデータを一気にとりこんだあとにバイト単位で処理するのが一番早いと思われますが……。ま、面倒かもしれません。いまいちＶＢチックではないですしね。

２は最近ディスクＩ／Ｏも早くなったので、さほど差はないかと思われますが、毎回ディスクアクセスする訳なので、それほど早くはないと思われます。

ただし 同じ for Input でよむなら、２の方が早いです。


でもこの辺りの処理ですが、ＶＢの文字列操作はとにかく遅いので、文字列操作処理を少なくするのが速くするこつだと思われます。

この回答へのお礼

ご回答ありがとうございます。２はご指摘のとおりLine Inputで取って、instrでやっていました。Splitにかえてやってみたいと思います。

お礼日時：2004/11/09 16:55

No.3 回答者： momoturbo 回答日時： 2004/11/09 11:41

以下のようなプログラムをつくり、実際に時間を

計ってみてはいかがでしょう？


'OSが起動してからのミリSECを取得
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Command1_Click()
Dim lngStart As Long
Dim lngEnd As Long

lngStart = GetTickCount
Call 処理1
lngEnd = GetTickCount
MsgBox lngEnd - lngStart

lngStart = GetTickCount
Call 処理2
lngEnd = GetTickCount
MsgBox lngEnd - lngStart
End Sub

この回答へのお礼

ご回答ありがとうございます。人間の感覚では曖昧ですよね。サンプルありがとうございます。やってみます。

お礼日時：2004/11/09 16:57