Проблемы с файлом произольного доступа.

[Gigahard]

Странно, в двух справочниках по VB расписывается произвольный доступ к файлу. Что то аналогичное вот такому коду:

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


Private Type UsrType
    ID As String
    Param As String
End Type


Private Sub Command1_Click()
Dim MyType As UsrType
Open "D:\TestLog.dat" For Random As #1 Len = Len(MyType)


MyType.ID = "first_id"
MyType.Param = "param_1"

Put #1, 1, MyType
Close #1
End Sub

Но не работает зараза. Пишет все время "Bad record length". Я уже и не знаю что не так... Подскажите люди добрые...

[Warn]

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

Len = Len(MyType)

Попробуй длину Mytype получить отдельно. Узнаешь, в чем ошибка.

[Gigahard]

Ну... И в чем?

[alibek]

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

[Konst_One]

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

Private Type UsrType
    ID As String
    Param As String * 100
End Type

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

[Konst_One]

2 alibek
пока писал уже ответили, сорри

[Gigahard]

Нда... про о что string должен быть фикировной длинны, я и не подумал...
Делал по примеру из книги... Там просто String указан...

[alibek]

То же относится к Variant и массивам.

[Gigahard]

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

[Twister]

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

Реально, но не реально юзать его с файлом произвольного доступа...