掲示板(ツリー)#1163ねずみ男さんのレスも参照・・
簡単なテスト方法は、
'書込
open "test.csv" for create as #1
'4行あるとして・・読み込んでテキストモードフォームに表示できるよう
for i = 1 to 4
z$ = ""
'100項目
for j = 1 to 100
if j < 100 then
'テスト用にランダムな数字を文字列に""で囲む
z$ = z$ + chr$(34) + right$(str$(rnd(1)),2) + chr$(34) + ","
else
'100項目で、改行(1行おわり)
z$ = z$ + chr$(34) + right$(str$(rnd(1)),2) + chr$(34)
end if
next j
print #1,z$
next i
close #1
'読込は1行100項目をを一度に読み込まなくても
open "test.csv" for input as #1
'データのある間
while not eof(1)
'100項目と決まっているので
for i = 1 to 100
input #1,z$
'取得データを配列に入れる、または表示
'ただフォームに表示する場合
if i < 100 then
'表示の都合上","を付加
print z$ + ",";
else
print z$
print
end if
next i
wend
close #1
で、いいのではないかと思います。
