1 Тема от wildwolf007 (изменено: wildwolf007, 2014-03-26 16:01:52)

  • wildwolf007
  • Участник
  • Неактивен

Тема: VBS: reDim preserve - ошибка.

Не могу понять почему выдает ошибку "Индекс выходит за пределы допустимого диапозона" при выполнении данной операции "reDim preserve buffermassiv(1,1)":



Sub FillBufferMassiv(P1)
Dim buffermassiv()
reDim preserve buffermassiv(0,0)
buffermassiv(0,0) = "1"
    b = - 1
    Set vStream = objFso.OpenTextFile(P1, 1, True) 
        Do Until vStream.AtEndOfStream 'цикл по строкам файла
            sLine = vStream.ReadLine 
            SettingsLine = Split(sLine,";")
            reDim preserve buffermassiv(1,1)
            Msgbox "Прошел"
        Loop
    vStream.Close 'закрываем файл    
End Sub

2 Ответ от wildwolf007 (изменено: wildwolf007, 2014-03-26 16:52:45)

  • wildwolf007
  • Участник
  • Неактивен

Re: VBS: reDim preserve - ошибка.

Вопрос решен. Нельзя переназначать размерность первого элемента только последующих.