| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > Выдаётся ошибка при использовании динам. мас. |
| Автор: Zakhar 18.11.2004, 11:29 |
| Народ помогите плиз, не могу понять в чём дело. Выдаётся ошибка: Subscript out of range(Индекс вне заданного диапазона), хотя код вроде бы правельный. Посмотрите может я гдето что-то пропустил. Private Sub Form_Load() Dim FNum As Integer Dim strLine As String Dim arrTXT () As String Dim i As Integer ChDir ("E:\TXT") FNum = FreeFile Open "a.txt" For Input As FNum While EOF(FNum) = False i = i + 1 Line Input #FNum, strLine ReDim Preserve arrTXT(1 To i, 1 To 6) arrTXT(i, 1) = Mid(strLine, 1, 10) arrTXT(i, 2) = Mid(strLine, 11, 6) arrTXT(i, 3) = Mid(strLine, 17, 6) arrTXT(i, 4) = Mid(strLine, 23, 6) arrTXT(i, 5) = Mid(strLine, 29, 6) arrTXT(i, 6) = Mid(strLine, 35, Len(strLine)) Wend Close FNum End Sub |
| Автор: boevik 18.11.2004, 11:37 |
| Redim может изменять только последнюю размерность массива. |