現在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
よろしくお願いします。
空白なら、処理省くとかすればいいのでは？
質問ばかりですね、他力本願だと一向に進まないのでは・・・と
心配です。
ありがとうございます。
Input から、LineInputで読み込むようにして、
カンマが入ってきたらSplitして配列に入れるようにして、
空白の場合には処理を飛ばすようにしたら解決しました。