Возможно ли создание изменяющейся структуры (UDT)?

[vbStr]

Всем привет!
Пусть есть некоторая сложная структура:

Код: Выделить всё

' Вложенная структура
Public Type MySubType
    untitled_1 As Long
    untitled_2 As Long
    untitled_3 As Long
End Type

' Основная структура
Public Type MyMainType
    Dim MyUDTD1 As Byte
    Dim MyUDTD2 As Integer
    Dim MyUDTD3() As MySubType
End Type

Возможна ли вообще такая структура, в которой хотя бы один
из элементов - MyUDTD3() - массив, размер которого определяется в процессе выполнения кода? Спасибо.

[Ennor]

Вроде не припомню таких ограничений, должно работать. А что, не работает?

[GSerg]

Конечно не работает.
Потому что не надо dim внутри type.

[Ennor]

GSerg, ну ты и глазастик...

[vbStr]

GSerg! А что можно придумать? Я читаю бинарник некоторого приложения, структура которого мне известна, но она изменяется каждый раз в зависимости от задачи, решаемой приложением. Точнее определенная "шапка" структуры не меняется, а число элементов массива, о котором говорилось выше, может быть переменным.
Уже замучился: использую кучу структур, циклов и проч. Получается очень много дублирующего кода различающегося буквально несколькими символами .

[GSerg]

А что можно придумать?

Dim сотри.

[vbStr]

А что можно придумать?

Dim сотри.

Gserg, точно! Когда я поднимал тему, то во внешеней структуре указал Dim. Это моя ошибка/опечатка. Возможно, я несколько неточно сформулировал свой вопрос, а опечатка еще более усугубила положение. Итак, есть две структуры:

Код: Выделить всё

' Вложенная структура
Public Type MySubType
    untitled_1 As Long
    untitled_2 As Long
    untitled_3 As Long
End Type

' Основная структура
Public Type MyMainType
    MyUDTD1 As Byte
    MyUDTD2 As Integer
    MyUDTD3() As MySubType
End Type

Есть необходимость считать данные из бинарного файла при помощи такого сложного пользовательского типа. Сложность заключается в том, что один из элементов внешней структуры { см. MyUDTD3() } является динамическим массивом (размерность его заранее не определена!), каждая ячейка которого имеет структуру, также описанную пользователем { см. - MySubType }. Вот!
№1. Возможно ли такое нагромождение вообще в Vbasic? Если, невозможно, то возникает другой вопрос.
№2. Приложение, чьи бинарные файлы считывает мое приложение, к этим файлам также обращается и корректно распознает зашифрованные данные. Как так?
Задачка хитрая. Единственная зацепка, которую я не могу использовать вот какая. В процессе работы того стороннего приложения, которое создает эти бинарные файлы, ведется протокол действий. Первая же строчка протокола говорит о том, что программа генерирует форматы данных. Это как? Сама описывает структуру своих данных? Разве эта структура не определена заранее?
GSerg! Если не лень вникать в то, что в этом postе написано, объясни, пожалуйста.

[GSerg]

1. Да
2. ЧТо значит зашифрованные?
Потом вообще ничего не понял.

[vbStr]

Код: Выделить всё

' Вложенная структура
Public Type MySubType
    untitled_1 As Long
    untitled_2 As Long
    untitled_3 As Long
End Type

' Основная структура
Public Type MyMainType
    MyUDTD1 As Byte
    MyUDTD2 As Integer
    MyUDTD3() As MySubType
End Type

GSerg!

1. Ты хочешь сказать, что переопределять массив MyUDTD3() можно? Тогда в каком месте кода нужно писать Redim для этого массива? Внутри структуры нельзя...

2. Термин "зашифрованные файлы" применительно к бинарным файлам, наверное, не очень удачно подобран. Дело в том, что я в эти вещи погружаюсь впервые и у меня до сих пор при открытии таких файлов Блокнотом создается впечатление, что файл зашифрован . Конечно же, это обыкновенные бинарники, в которых в определенном порядке лежат числа.
Попытаюсь еще раз объястнить проблему. Допустим программа выкидывает 5 блоков информации, для которых предусмотрена структура, подобная той, которая приведена выше.
В каждом блоке первые два числа (5 байт) всегда есть два числа (5 байт) (своеобразная "шапка" для всей остальной информации из блока). Число последующих байт переменно: может быть 12, 24, 36, 48 и т.д. (см. внутреннюю структуру), естественно, оно кратно числу элементов во внутренней структуре (т.е. 12). Пусть для некоторой задачи оно равно 4 х (4 х 3) = 48. Тогда для того, чтобы получить структуру, подходящую для этой задачи, нужно где-то переопределить MyUDTD3() от 1 до 4. Где это нужно сделать?

3. Над третим вопросом, наверное, не следует ломать голову. На словах трудно объяснить.

Спасибо за помощь!

[GSerg]

dim s as MyMainType
redim s.MyUDTD3(1 to 4)

[vbStr]

dim s as MyMainType
redim s.MyUDTD3(1 to 4)

Лаконично ! Но я постараюсь разобараться. В твоем ответе я увидел что-то новенькое. Благодарю за совет, GSerg!

[vbStr]

GSerg! Разобрался с твоей подсказкой. Решил использовать такой код:

Код: Выделить всё

Option Explicit

Private Type SubStructure
    nx As Single
    ny As Single
    txy As Single
    mx As Single
    my As Single
    mxy As Single
End Type

Private Type BasicStructure
    FirstCell As Long
    SecondCell As Long
    TrirdCell As Byte
    Massiv() As SubStructure
End Type

Sub GoIntoBinary()

Dim GlobalMassiv() As BasicStructure

Dim i As Integer
Dim FileNumber As Integer
Dim temp As BasicStructure

FileNumber = FreeFile

Open "D:\VisualBasic\VBProjects\misc.bnr" For Binary As #FileNumber

For i = 1 To 4
    ReDim Preserve GlobalMassiv(1 To i)
    ReDim GlobalMassiv(i).Massiv(1 To 3)
    Get #FileNumber, , GlobalMassiv(i)
Next i

End Sub

Все работает до строчки

Код: Выделить всё

Get #FileNumber, , GlobalMassiv(i)

где появляется ошибка Out of memory (Error 7)! В чем может быть причина? Справка говорит, что такая ошибка появляется в нескольких случаях: открыто слишком много приложений, модуль слишком большой и проч. Ни под одно из этих условий код не подпадает...

[A.A.Z.]

У тебя GlobalMassiv какого типа? BasicStructure А VB что рассчитывает получить?

[Amed]

Использовать Input вместо Get?

[vbStr]

У тебя GlobalMassiv какого типа? BasicStructure А VB что рассчитывает получить?

A.A.Z., что значит "VB что рассчитывает получить?". Я хочу в каждую ячейку массива GlobalMassiv, имеющего структуру BasicStructure, считать информацию.

[A.A.Z.]

В каком формате данные хранятся?

[GSerg]

В каком формате данные хранятся?

http://bbs.vbstreets.ru/viewtopic.php?p=143001#143001

[vbStr]

Использовать Input вместо Get?

Amed, синтаксис Input# предполагает занесение считанных данных в список переменных, а мне нужно считать информацию в массив.