Чтение из фаила

[Kracozebr]

У меня такая прога(ну веренее это отрывок), вобщем при ее выполнении должно происходить следующее: есть команд бутон, и массивы состоящий из текстовых данных Text2(30),Text3(30), так вот при нажатии команд бутон первые 31 строки должны помещаться в текстовый массив Text2(30), при чем 1 строка соответсвует Text2(0) ну и так далее, затем начиная с 32 строки данные должны помещаться в Text3(0) ну и до конца. НО при выполнении этого "кусочка" программы в массивы Text2(30)и Text3(30) вводятся одинаковые данные, а именно строки начиная с 32 и по последнюю. Можете подсказать где у меня косяк???

Private Sub cbStart_Click()
 
cdCommonDialog.ShowOpen

strFileName = cdCommonDialog.FileName

nFreeFile = FreeFile

If strFileName <> "" Then

Open strFileName For Input As nFreeFile

nFileLenght = FileLen(strFileName)
strFileContent = Input(nFileLenght, #nFreeFile)


Close

End If

Open strFileName For Input As #1
Do While Not EOF(1)
For j = 0 To 30
Line Input #1, strFileContent
Text2(j).Text = strFileContent
Text3(j).Text = strFileContent
Next
Loop
Close #1
End Sub

[Skif-F]

Кажется, так:

Open strFileName For Input As #1
i=0
Do While Not EOF(1) and i<31
   Line Input #1, strFileContent
   Text2(j).Text = strFileContent
   i=i+1
Loop
Do While Not EOF(1) and i<63
   Line Input #1, strFileContent
   Text3(j).Text = strFileContent
   i=i+1
Loop
Close #1

[Kracozebr]

Skif-F
я ввел этот код, но теперь выводит только два значения в Text2(0) последнее значение которое оно должно принимать т.е из строки 31 и то же с Text3(0): выводит последнее значение т.е из 63 строки, все остальные поля пустые...

[Skif-F]

Я ошибся, прошу прощения! Замени j на i в строках:
Text2(j).Text = strFileContent
Text3(j).Text = strFileContent
Говорю тебе, поставь в начале модуля команду Option Explicit, тогда Бейсик отловит все необъявленные переменные

[Kracozebr]

да спасиб))) я уже догадался)))
Open strFileName For Input As #1
i=0
Do While Not EOF(1) and i<31
Line Input #1, strFileContent
Text2(i).Text = strFileContent
i=i+1
Loop
Do While Not EOF(1) and i<63
Line Input #1, strFileContent
Text3(i-31).Text = strFileContent
i=i+1
Loop
Close #1

еще там добавил -31 и все отлично работает спасибо еще раз)