Когда Len ошибается... Или проблемы работы с файлом :(

[0xy]

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

Private Type Test1
    a As Byte
    b() As String * 160
End Type
.
Private Sub K8_Click()
    Dim T As Test1
    ReDim T.b(1 To 6)
    Debug.Print Len(T) ' == 5 байт   
End Sub

Знаю, что этот баг документирован как "фитча" Но чё делать то?

Да, задача максимум: сохранить эту беду в файл в качестве ЗАПИСИ (т.е. файл состоит из множества таких записей).
И было бы совсем круто ее оттудова потом прочесть

PS
Процедура, само собой, демонстративная: на практике размерность .b() каждый раз разная.

[BV]

LenB?

[tyomitch]

Нет, не LenB.

Но мне непонятно, зачем 0xy для сохранения записи в файл знать её длину. VB сам сдвигает указатель на нужное место.

[0xy]

мне непонятно, зачем 0xy для сохранения записи в файл знать её длину.

Ну, я пытаюсь работать в Random с Put/Get, и если указать недостаточную длину -- будет ошибка.
С записями постоянной длины проблем не было. А тут -- не пойму, как вообще действовать Ладно, проблему с Len пока обошел раком:

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

RecordLen=Len(T)-2+(160+8)*UBound(T.b)

Писать теперь получается. А вот как потом прочесть это? Т.е. откуда мне знать длину каждой записи Самому чтоли сохранять?

Можете ли предложить более цивилизованое решение?

[GSerg]

Указание длины записи применяется, когда длина постоянная.
Когда длина непостоянная, длина записи не применяется.
Вот, собственно, и всё.
As Binary.

[0xy]

А как потом читать этот Binary? Просто начать с начала файла, и Basic сам определит длину первой записи, прочтет ее и поставит указатель на начало второй?

И, как я понимаю, начать чтение с произвольной записи невозможно?

[tyomitch]

А как потом читать этот Binary? Просто начать с начала файла, и Basic сам определит длину первой записи, прочтет ее и поставит указатель на начало второй?

Угу.

И, как я понимаю, начать чтение с произвольной записи невозможно?

Ну так если формат такой кривой?

[XPAHuTEJIb]

Может проблема в том, что ты смотришь длину "T", количество записей которого равно 5 элементам, а надо смотреть длину T.b.

[Andrey Fedorov]

И, как я понимаю, начать чтение с произвольной записи невозможно?

Записей много будет?
Если мало, то проще использовать INI-файл.
Если много, то MDB. И не мучиться...

[Viper]

Может проблема в том, что ты смотришь длину "T", количество записей которого равно 5 элементам, а надо смотреть длину T.b.

Бред... сам то пробовал?

Собственно по сабжу - Len в данном случае считает так: 1 байт для Byte и 4 байта для указателя на массив. LenB делает тоже самое, но учитывает выравнивание, поэтому выдаст результат 8 байт.

[XPAHuTEJIb]

а не бред ли искать длину фиксированой записи?

[Viper]

а не бред ли искать длину фиксированой записи?

Гм... Ты вопрос то прочитал? Длина записей у автора различна. Посему автору совет записывать в файл длину записываемого массива для каждой записи. Естественно придется делать запись и чтение в режиме Binary.

З.Ы. Глянул на даты... Опять некрофилия? И опять пост с мягко говоря неверным советом?

[tyomitch]

Собственно по сабжу - Len в данном случае считает так: 1 байт для Byte и 4 байта для указателя на массив. LenB делает тоже самое, но учитывает выравнивание, поэтому выдаст результат 8 байт.

Нет, не так. Len считает длину в символах, LenB -- в байтах.
В одном символе два байта; а выравнивание не при чём.

[Viper]

Нет, не так. Len считает длину в символах, LenB -- в байтах.
В одном символе два байта; а выравнивание не при чём.

это верно для строк, но не в данном случае.

[tyomitch]

Да, действительно

[XPAHuTEJIb]

!Viper!
3 раза перечитал. Я прав, ты нет. Длина записи фиксирована, что доказывает пример и слова автора: "...файл состоит из множества таких записей"

[vvs_adm]

3 раза перечитал.

Выходит, что три раза для тебя маловато будет

[Viper]

PS
Процедура, само собой, демонстративная: на практике размерность .b() каждый раз разная.

так длина фиксированная или как?

[XPAHuTEJIb]

vvs_adm, !Viper! у каждого более тысячи постов, а разницы между размерностью массива (в данном случае T.b()) и длиной так и не поняли

в данном случае длина вычисляется как:
for t=1 to ubound(t.b)
s=s+len(t.b(t))
next t
s=s+len(a) 'ну или 1

[tyomitch]

XPAHuTEJIb, строка по-твоему где сохраняется? не в файле? в тонком воздухе, что ли?