テキストファイルを読込した値を2次元配列に格納するには？

く〜ちゃん＜ど素人＞ 2008-12-26 05:44:33 No: 101423

独学でＶＢ６の勉強を始めたばかりの初心者です。
テキストファイルに保存されているデータを読込、
読み込んだ値を行単位で２次元配列に格納したいのですが、
どうしたら良いのでしょうか？

テキストファイル内のデータは
１行目："1","100","10","1000"
・
・
・
n行目："1000","1","10","100"
で保存してあります。

ちなみに色々と考えてみて、現在入力した内容は
Dim Data() as string

#ff = FreeFile
Open "c:\text.txt" for input As #ff
  While Not EOF(ff)
    input #ff, Data(i,0), Data(i,1), Data(i,2), Data(i,3)
    i=i+1
    Redim Preserve Data(i,3)
  Wend
close #ff

を記述してみましたが、ダメでした。
どうか、ご教授の程よろしくお願い致します。

特攻隊長まるるう 2008-12-26 20:08:02 No: 101424

ダメでした。ではどうしようもありません。
エラーメッセージに書いてある内容を解決してください。

ぱっと見て分かる問題点は
・Data 以外の宣言が無い(ff, i)
・#ff = FreeFile が文法的に間違っている
・Data が初回、初期化されていない(Redim は2回目以降の初期化)
・キーワード Preserve を指定した場合、変更できるのは、動的配列の最後の次元のサイズに限られます。
つまり Data(i, 3) はできません。Data(3, i)ならできます。