Тема: Как изменить размерность первого массива в двумерном массиве с сохранением данных?
Здравствуйте,
Вот пример, где не получается этого сделать:
Public Sub Тест_размерности_массива()
Dim i As Integer
Dim j As Integer
Dim strArr() As String
ReDim strArr(1, 2) As String
For i = 0 To 1
For j = 0 To 2
strArr(i, j) = i + j
Next
Next
'тут выдает ошибку
ReDim Preserve strArr(2, 2) As Stringх
End SubВот вариан перехода через временный массив:
Public Sub Тест_размерности_массива()
Dim i As Integer
Dim j As Integer
Dim strArr() As String
Dim strArrTemp() As String
ReDim strArr(1, 2) As String
For i = 0 To 1
For j = 0 To 2
strArr(i, j) = i + j
Next
Next
'переопределяем массив через временный массив
ReDim strArrTemp(2, 2) As String
For i = 0 To 1
For j = 0 To 2
strArrTemp(i, j) = strArr(i, j)
Next
Next
ReDim strArr(2, 2) As String
'получаем нужный массив
strArr = strArrTemp
End SubНо это как-то громоздко.
Может я леса в лесу не вижу) Подскажите!
