Проблема с динамическим массивом / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с динамическим массивом

5 сообщений из 5, страница 1 из 1

Проблема с динамическим массивом

#37477973

p0oh!

Гость

Помогите понять почему не работает. Ошибка out of range - при том нужно выделить всего 182 объекта в момент вызова ошибки.
Предполагаю, что корень проблемы в параметре Preserve - но нигде не нашел никаких ограничений (((

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.

Public Sub CompareCluster()

Dim FullClusterMassive() As String
Dim FullLinkMassive() As String
Dim inx As Integer
Dim inz As Integer
inx =  0 
inz =  0 

    If Form1.FileList1.ListCount >  0  Then             'Если в списке файлов есть хотябы один файл
        For i =  0  To Form1.FileList1.ListCount -  1     'то пробежимся по всем
            Form1.FileList1.ListIndex = i             'Устанавливая курсор на каждый чтобы появилось его отпарсенное содержимое
            
            
        If Form1.List1.ListCount >  0  Then             'И если есть хотя бы одна запись то
            
            inx = inz
            inz = inx + Form1.List1.ListCount -  1        'Вычислим масимальную длинну массива для того чтобы поместить в него новые данные
            ReDim Preserve FullClusterMassive(inz,  4 )   'Выделяем для массива нужную размерность
            
            For j =  0  To Form1.List1.ListCount -  1       'заполняем массив
                Form1.List1.ListIndex = j
                FullClusterMassive(inx + j,  0 ) = Form1.List1.List(j,  0 )
                FullClusterMassive(inx + j,  1 ) = Form1.List1.List(j,  1 )
                FullClusterMassive(inx + j,  2 ) = Form1.List1.List(j,  2 )
                    
            Next j
        End If
        Next i
    End If


Form1.List2.ColumnCount = UBound(FullClusterMassive) +  2 
Form1.List2.List = FullClusterMassive

End Sub

Пробовал выделить сразу стотыщьпицот объектов для массива - работает - но как то не волшебно это в ЛистБоксе выглядит..
Пробовал Ужать размер массива перед выводом, сделав:

Код: plaintext

ReDim Preserve FullClusterMassive(inz,  4 )

так же ругает - говорит SubScript out of range.

...

Рейтинг:

0 / 0

11.10.2011, 22:19

| Ответить | Цитировать | Написать

Проблема с динамическим массивом

#37477979

Игорь Горбонос

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

p0oh!,

ReDim изменяет размерность последнего измерения массива, а ты пытаешься изменить предпоследнее измерение :)

...

Рейтинг:

0 / 0

11.10.2011, 22:37

| Ответить | Цитировать | Написать

Проблема с динамическим массивом

#37477991

p0oh!

Гость

Игорь Горбонос,
С чего бы это? Если убрать Preserve - он выделит столько сколько нужно. Но я теряю то, что уже есть в этом массиве... а мне это не надо... Мне порядка 40 файлов в итоге консолидировать ((((

Пока решил проблему таким вот, варварским способом (((( Хотелось бы что то цивилизованное сообразить...

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.

Public Sub CompareCluster()

Dim FullClusterMassive() As String
'Dim FullLinkMassive() As String
Dim inx As Integer
Dim inz As Integer
inx =  0 
inz =  0 


    If Form1.FileList1.ListCount >  0  Then             'Если в списке файлов есть хотябы один файл
        For i =  0  To Form1.FileList1.ListCount -  1     'то пробежимся по всем
            Form1.FileList1.ListIndex = i
            inz = inz + Form1.List1.ListCount -  1 
        Next i
    End If
    ReDim Preserve FullClusterMassive(inz,  4 )             'Выделяем для массива нужную размерность
    

    If Form1.FileList1.ListCount >  0  Then             'Если в списке файлов есть хотябы один файл
        For i =  0  To Form1.FileList1.ListCount -  1     'то пробежимся по всем
            Form1.FileList1.ListIndex = i             'Устанавливая курсор на каждый чтобы появилось его отпарсенное содержимое
            
            
        If Form1.List1.ListCount >  0  Then             'И если есть хотя бы одна запись то

            
            For j =  0  To Form1.List1.ListCount -  1       'заполняем массив
                Form1.List1.ListIndex = j
                FullClusterMassive(inx + j,  0 ) = Form1.List1.List(j,  0 )
                FullClusterMassive(inx + j,  1 ) = Form1.List1.List(j,  1 )
                FullClusterMassive(inx + j,  2 ) = Form1.List1.List(j,  2 )
                    
            Next j
            
            inx = inx + Form1.List1.ListCount -  1 
        End If
        Next i
    End If


Form1.List2.ColumnCount = UBound(FullClusterMassive) +  2 
Form1.List2.List = FullClusterMassive

End Sub

...

Рейтинг:

0 / 0

11.10.2011, 22:51

| Ответить | Цитировать | Написать

Проблема с динамическим массивом

#37479032

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

p0oh!С чего бы это? Если убрать Preserve - он выделит столько сколько нужно...
Не забывайте читать хелп:

"ReDim Statement"...If you use the Preserve keyword, you can resize only the last array dimension and you can't change the number of dimensions at all. For example, if your array has only one dimension, you can resize that dimension because it is the last and only dimension. However, if your array has two or more dimensions, you can change the size of only the last dimension and still preserve the contents of the array...

Перевод требуется?

В вашем случае надо использовать

Код: plaintext

ReDim Preserve FullClusterMassive( 4 , inz)

(естественно, поменяв порядок индексов при заполнении), а заполнение листбокса в этом случае можно делать не через .List, а через .Columns

Код: plaintext

Form1.List2.Columns = FullClusterMassive

...

Рейтинг:

0 / 0

12.10.2011, 16:09

| Ответить | Цитировать | Написать

Проблема с динамическим массивом

#37488861

p0oh!

Гость

О блин точно. Спасибо.

...

Рейтинг:

0 / 0

19.10.2011, 13:56

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с динамическим массивом

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=37477979&tid=2158367]:	0ms
get settings:	9ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	41ms
get topic data:	8ms
get forum data:	2ms
get page messages:	43ms
get tp. blocked users:	1ms
others:	346ms

total:	470ms