Пользовательский тип данных

[Kolobuk]

Зравствуйте.
Наткнулся на такую проблему.

Мой тип данных:

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

Type Zz
FLAG As Integer
RAZMER1 As Long
IMYA1 As String
RAZMER2 As Long
IMYA2 As String
End Type
Public MYTIP As Zz

Оказывается нельзя указывать размер для текстовых строк - IMYA1 и IMYA2. Т.е. сделать вот так:

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

IMYA1 = Space(RAZMER1)
IMYA2 = Space(RAZMER2)

Как же быть? Есть другой выход?
Не хочется пользоваться отдельными переменными, читая файл...

P.S.: Пример упрощённый.

[Alexanbar]

IMYA1 as string*5

[Kolobuk]

так размер же разный может быть

[Amed]

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

Const IMYAMaxLength=255

Type ...
IMYA1 As String*IMYAMaxLength
End Type

Задайте максимальную длину имени, к примеру, равную 255.
Зачем это вообще нужно - для чтения типизированных файлов?

[Wolfie]

Если размер известен заранее, то ...string*5, а если нет
то MyTip.IMYA1=Space$(MyTip.RAZMER1) и tercium non datur

А в чем суть проблемы? в том, чтобы бейсик читая запись через binary режим оператором get хватая данные в этот тип сам делал выводы о том сколько ему считать байт - не выйдет... ? Все равно придется указывать отдельной строкой сколько же именно байт считать

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

Const IMYAMaxLength=255

Но тогда ведь и размер файла возрастает до неприличных размеров - если там каждая запись стока весить будет?

Если уж так важно хранить данные в типах, то вместо бинари и гет придется писать свою процедуру и ориентироваться на какие-либо символы - указатели т.е. [new]флаг*имя1*имя2[new]флаг*имя1*имя2

[Kolobuk]

Если размер известен заранее, то ...string*5, а если нет
то MyTip.IMYA1=Space$(MyTip.RAZMER1) и tercium non datur

В том то и дело, что так не получается


Вообще странно почему Len(MYTIP) показывает 18 байт???

Ведь -

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

Type Zz
FLAG As Integer
RAZMER1 As Long
IMYA1 As String
RAZMER2 As Long
IMYA2 As String
End Type
Public MYTIP As Zz

- должен занимать 10 байт

и пиши хоть MyTip.IMYA1=Space$(5), хоть MyTip.IMYA1=Space$(25) - всёравно Len(MyTip) будет = 18


----------


tercium non datur это что?

[dr.MIG]

tercium non datur это что?

Третьего не дано.

[GM]

Вообще странно почему Len(MYTIP) показывает 18 байт???

ИМХО

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

Type Zz
FLAG As Integer '2 байта
RAZMER1 As Long '4 байта
IMYA1 As String  '4 байта
RAZMER2 As Long '4 байта
IMYA2 As String '4 байта
End Type


Это поскольку строки храняться в куче.
Если явно указать размер строки, то проблема отпадает

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

Option Explicit
Private Type Zz
FLAG As Integer
RAZMER1 As Long
IMYA1 As String * 10
RAZMER2 As Long
IMYA2 As String * 10
End Type


Len(z) = 13
Поскольку в даном случае, строки имеет фиксированый размер и храняться целиком в структуре.

Вроде бы так.