Переопределение структуры

[Sun07]

В файле записана инф-я определённой структуры. Необходимо добавить в структуру несколько полей. Читаю инф-ю в массив со старой структурой и надо записать инф-ю в новую структуру. Подскажите, как разом присвоить значения одноимённых полей старой структуры новой структуре (структура большая, присваивать вручную неудобно), например:

Private Type MyStru
num1 as long
num2 as byte
...
num1000 as byte
End Type

Private Type NewMyStru
num1 as long
num2 as byte
...
num1000 as byte
num1001 as integer 'новое поле
End Type

dim a_new() as NewMyStru, a() as MyStru

'ручное присвоение, а надо заменить автоматом
a_new(1).num1=a(1).num1
a_new(1).num2=a(1).num2
...

[Amed]

CopyMemory.

Сейчас попробую.

[Amed]

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

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Type Struct
    Num1 As Long
    Num2 As Byte
End Type

Private Type NewStruct
    Num1 As Long
    Num2 As Byte
    Num3 As Integer
End Type

Private Sub Form_Load()
Dim a As Struct, b As NewStruct

a.Num1 = 1
a.Num2 = 2

MsgBox "a.Num1=" & a.Num1 & vbCrLf & "a.Num2=" & a.Num2

CopyMemory b, a, Len(a)

MsgBox "b.Num1=" & b.Num1 & vbCrLf & "b.Num2=" & b.Num2
End Sub

Учти, что новые поля в новой структуре должна быть объявлены в конце.

[Sun07]

спасибо, Amed!

[Sun07]

а как можно полностью удалить массив из памяти? ReDim() - ошибка, ReDim(0) - остаётся один элемент

[Amed]

Erase

[GSerg]

Вообще-то, для присвоения структур есть оператор lset... В примере Amed'а, это было бы lset b=a...

[BV]

Вообще-то, оператор LSet выравнивает строку по левому краю, заполняя остальное пробелами. Неужели он и структуры присваивать умеет?

[alibek]

Неужели он и структуры присваивать умеет?

Умеет.

[Sun07]

У меня не получается. Данные сдвигаются. Думаю, что массивы не всегда занимают подряд идущие ячейки памяти. Как массив A так и массив B из примера Ameda. Lset мне не подходит, т.к. надо скопировать в массив B пользовательской структуры массив А(n) байт (скопировать побайтово). Что делать?

[Sun07]

или же в описании пользовательской структуры существует выравнивание по кол-ву байт, т.е в памяти массива пользовательской структуры есть незначащие байты, у меня выпал 13-й байт!

[GSerg]

Существует. По границе 4.

[Sun07]

каким образом осуществляется выравнивание? Как насчёт непрерывности массива в памяти?

[tyomitch]

Массив непрерывен в памяти.
Выравнивание, добавляемое в структуру, является частью этой структуры, а не "зазором" между элементами массива.

[Viper]

Выравнивание осуществляется по границе 4-х байт, а массивы в памяти непрерывны.

[edit]
для иллюстрации выранивания попробуй выполнить такой код:

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

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Type MyStruct
    b As Byte
    i As Integer
    l As Long
End Type
Public Sub main()
Dim ms As MyStruct
Debug.Print Len(ms)
Debug.Print LenB(ms)
ms.b = &HFF
ms.i = &HAAAA
ms.l = &HBBBBBBBB
Dim b(0 To 7) As Byte
CopyMemory b(0), ms, 8
Dim i As Integer
For i = 0 To 7
    Debug.Print "&H" & Hex(b(i))
Next i
End Sub

[/edit]

[Sun07]

Да, вот это я попал... Ну и зачем нужно это выравнивание? Хотя есть ещё надежда. Может можно использовать часть структуры, т.е. можно ли объявить переменную программно (не явно), размером части структуры. Например, у меня была структура длиной 40 байт, я добавляю к ней ещё 20 байт в КОНЕЦ и получаю новую структуру. Могу я объявить ПРОГРАММНО переменную пользовательского типа размером 40 байт по старой структуре, не описанной ЯВНО в новой структуре (т.е. у меня в файле хранится только размер старой структуры, я его читаю и от него пляшу). Или можно поступить по другому? Тогда можно было бы использовать LSet!

[GSerg]

Автору рекомендуется пересмотреть принципы работы приложения.

[Sun07]

да ладно, нашёл банальное решение. Всем спасибо. Хотелось бы всё таки знать, зачем нужно выравнивание в структурах и неужели массив всегда в памяти непрерывен, даже если он огромен?

[GSerg]

Выравнивание нужно для повышения скорости доступа. Массив непрерывен.

[Sun07]

Подскажите, можно ли обращаться к данным в структуре по смещению, вроде Dim a as MyStruc, a.[Name1+5]=... на VisualBasic 6?

[GSerg]

Можно, создав на памяти структуры байтовый массив. Статьи - на основном сайте.

[Sun07]

а вот интересно, как обстоят дела с добавлением полей в базах данных ADO?

[GSerg]

"Баз данных ADO" не существует.

[Sun07]

ну работа с базами через ADO

[GSerg]

Работа с базами через ADO существует. Но непонятно как относится к рассматриваемому вопросу.