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.2

takasebou · ベストアンサー

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

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

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

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

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

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

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

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

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

お礼

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

回答No.3

momoturbo

以下のようなプログラムをつくり、実際に時間を
計ってみてはいかがでしょう？

'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

お礼

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

回答No.1

Samurai-Jack

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

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

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

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

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

お礼

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

補足

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