１行に書ききれない場合

１行に書ききれない場合

１行100項目あるCSVファイルを読込み、
アクセスに書き込むプログラムを作成しています。

Dim KOUMOKU(100) As String

INPUT #1, koumoku(0), koumoku(1), koumoku(2), .......... ,koumoku(99)

と書きたいのですが、
項目数が多いので、１行に書ききれません。

こういう場合、どうすればいいですか？

初歩的な質問かと思い、恥ずかしいですが、どなたか解決法を教えてください。
よろしくお願いします。

No.1 ベストアンサー 回答者： nda23 回答日時： 2010/04/15 15:23

For I = 0 To 99

　　　　If EOF(1) Then Exit For 'もし途中でEOFになった場合
　　　　Input #1,KOUMOKU(I)
Next

この回答へのお礼

早速の回答ありがとうございました。
参考にさせていただきました。

お礼日時：2010/04/16 14:06

No.2 回答者： rk_les 回答日時： 2010/04/15 16:24

その場合はFor文などで回しましょう。

もし改行したい場合は[半角スペース]_
で出来ます。

ex)
TextBox1.Text = "あいうえおかきくけこ _
さしすせそhogehoge"

この回答へのお礼

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

お礼日時：2010/04/16 14:05