CSVファイルに空白行がある場合の、CSV読み込み処理をするには？

解決

mutu 2008-11-27 05:13:25 No: 101366

現在VB6,WinXPで開発しています。

下記のようにしてCSVファイルを配列に入れているのですが、
CSVファイルに空白行があるとエラーになってしまいます。
どのように対処すればよいでしょうか？

    Do Until EOF(FileNo)
        lngCount = lngCount + 1

        ReDim Preserve strA(lngCount) As String
        ReDim Preserve strB(lngCount) As String
        ReDim Preserve strC(lngCount) As Integer
        Input #FileNo, strA(lngCount), strB(lngCount), strC(lngCount)
    Loop
    Close #FileNo

ちなみにCSVファイルの形式は下記のように３列を縦に並べています。
見た目がエクセルのモードで管理しています。
A1、B1、C1
A2、B2、C2
A3、B3、C3
A4、B4、C4

下記のように３行目をなくすとエラーとなります。
A1、B1、C1
A2、B2、C2

A4、B4、C4

よろしくお願いします。

やじゅ 2008-11-27 08:01:32 No: 101367

空白なら、処理省くとかすればいいのでは？
質問ばかりですね、他力本願だと一向に進まないのでは・・・と
心配です。

mutu 2008-11-28 22:39:43 No: 101368

ありがとうございます。

Input から、LineInputで読み込むようにして、
カンマが入ってきたらSplitして配列に入れるようにして、
空白の場合には処理を飛ばすようにしたら解決しました。