テキストファイルを正常に取込するには?初心者です
下記の様なテキストファイルを配列に取込したいのですが、ファイル読込み途中で「これ以上ファイルが有りません」エラーとなります。どうしたらよいでしょうか?
ちなみに配列は(14,100)としています。
【読込みしたいテキスト文】改行に↑が入ります
000002,0,0010,,,ABCDEFG,,,00000010,,,,,060420
000004,0,0010,,0,HIJKLMN,000,497009014866,00000550,020201,0000,000,000400,060420
【フォームロード時に取込む】
Private Sub Form_Load()
If Dir(POPFile) = "" Then 'ファイルの存在チェック
'ファイルが無い
NewData '変数の初期設定と画面の表示
TargetRec = 1
MaxRec = 0
lblRec.Caption = "1/新規"
Else
MaxRec = 0 'ファイルが在るのでデータを読み込む
Open POPFile For Input As #1
Do Until EOF(1)
MaxRec = MaxRec + 1
Input #1, POP(1, MaxRec)
Input #1, POP(2, MaxRec)
Input #1, POP(3, MaxRec)
Input #1, POP(4, MaxRec)
Input #1, POP(5, MaxRec)
Input #1, POP(6, MaxRec)
Input #1, POP(7, MaxRec)
Input #1, POP(8, MaxRec)
Input #1, POP(9, MaxRec)
Input #1, POP(10, MaxRec)
Input #1, POP(11, MaxRec)
Input #1, POP(12, MaxRec)
Input #1, POP(13, MaxRec)
Input #1, POP(14, MaxRec)
Loop
Close #1
お礼
出来ました。それもあっさりと・・・。 関数自体を知らなかったもので、迷ってました。 すばやく答えていただきありがとうございます。