Архив форумов ЦИТФорума

[Kolomna]

Знакомый просил помочь:
Мне надо ввести двухмерный массив данных и присвоить эти значения переменной A(K,J). С этой целью я организую ввод с проверкой на конец файла (While Not EOF(1). После запуска программа дает ошибку “input past end” в строке 6. Не могу понять в чем дело!

f_name1 = f_name1 & ".txt"
Open "c:\телеком\" & f_name1 For Input As #1
Open "c:\телеком\" & 1 & f_name1 For Output As #2
Do While Not EOF(1)
For J = 1 To 10
Input #1, A(K, J)
Write #2, A(K, J)
Next J
K = K + 1
Loop

Помогите!

Спасибо!