- Код: Выделить всё
Option Explicit
Private Type MyType
Name As String
Email As String
Date As Date
End Type
Private Sub Form_Load()
Dim fn As Integer
Dim strFile As String
Dim typMT As MyType
Dim strBuffer As String
strFile = App.Path & "\tempfile.tmp"
With typMT
.Name = "Иванов Иван Иванович"
.Email = "ivan@ivanov.ru"
.Date = Now
End With
fn = FreeFile
Open strFile For Binary Access Write Lock Read Write As fn
Put #fn, , typMT
Close fn
fn = FreeFile
Open strFile For Binary Access Read Lock Read Write As fn
strBuffer = String(LOF(fn), vbNullChar)
Get #fn, , strBuffer
Close fn
Kill strFile
End Sub
Для чтения структуры typMT из строки strBuffer примерно также пользуюсь временным файлом...
У меня возник вопрос:
Как можно преобразовать структуру typMT в строку и наоборот без использования временного файла?
Если у кого есть пример, буду рад его посмотреть
[не 'не умею', а именно не могу]