Как преобразовать структуру НЕИЗВЕСТНОЙ ДЛИНЫ в строку?

[0xy]

Желательно методом, отличным от записи в tmp-файл

(мне это нужно для последующего Base64-кодирования и передачи по E-mail)

[tyomitch]

Никак.
Более того, её не удастся записать в tmp-файл.
И что ещё интереснее, её нельзя хранить в переменной.
Откуда она у тебя вообще взялась?

[0xy]

Бp.p.. Сам создал Типа

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


Type a
b as string()
с as long()
..............
end type


Чтоб узнать длину--проще записать ее в файл. Затем можно либо прочесть его обратно (уже как строку), либо посмотреть его длину и юзать VarPtr/MoveMemory

Ток как бы без извратов это сделать?

[Хакер]

Тогда длина наверное всё таки известна.

[jangle]

Желательно методом, отличным от записи в tmp-файл

На VB без извратов никак, в других языках есть такие функции.

[Twister]

Приведи полное определение структуры. Это раз.
Два - что возвращяет Len?
Три - сразу приходит на ум только то, что в структуре есть переменная типа String, длинна которой заранее не известна, но что мешает вычислить длинну каждого члена структуры, а потом сложить?..

Да, и еще - о способе, более кривом, чем запись в темповый файл я еще не слышал...

[0xy]

Да, и еще - о способе, более кривом, чем запись в темповый файл я еще не слышал...

Тем не менее, это, похоже, единственный способ в VB
(Кроме ручного подсчета длины каждой строки)

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

' © 0xy, 2007
Function LenEX&(a as ХЗ) ' юзертайп всё равно хрен передашь!
' зато для массивов строк--то, что нужно!
dim FHandle&
FHandle = FreeFile
Open "nul:" For Binary Access Read Write Lock Read Write As FHandle
Put FHandle, 1, a
LenEX = Seek(FHandle)-1
Close FHandle
End function


Ну а для сериализации придется писать не в нул, а в тмп, и прочесть оттуда уже строку.

2 Moderators
Поскольку дискуссия о сериализации структур развернулась здесь: "Как передать процедуре переменную неизвестного ей типа?", предлагаю объединить эти две темы.