Бинарное чтение Date

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

RCLIO
Новичок
Новичок
 
Сообщения: 30
Зарегистрирован: 20.03.2009 (Пт) 18:23

Бинарное чтение Date

Сообщение RCLIO » 17.08.2016 (Ср) 20:39

Доброго времени суток!
Такой вопрос:
Как бинарного файла прочитать тип данных Date?

Код: Выделить всё
Public Structure FileData
        Dim head As Integer
        Dim сount As Integer
        Dim testNote As String
        Dim testDate As Date 'проблема тут
    End Structure

    Public Function ReadFile(ByVal Path As String, <Runtime.InteropServices.Out()> ByRef File As FileData) As Boolean
        Dim ret As New FileData
        If IO.File.Exists(Path) Then 'проверяем файл на существование
            Try
                Using fs As New IO.FileStream(Path, IO.FileMode.Open, IO.FileAccess.Read)
                    Dim br As New IO.BinaryReader(fs)
                    With ret
                        .head = br.ReadInt32
                        .сount = br.ReadInt32
                        .testNote = System.Text.ASCIIEncoding.Default.GetString(br.ReadBytes(16))
                       
                        File = ret
                        Return True
                    End With
                    fs.Close()
                End Using
            Catch
                'MsgBox(Err.Number)
                Return False
            End Try
        Else
            Return False
        End If
    End Function


Спасибо!

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 20.08.2016 (Сб) 23:59

Чем нормальная сериализация не угодила?

RCLIO
Новичок
Новичок
 
Сообщения: 30
Зарегистрирован: 20.03.2009 (Пт) 18:23

Re:

Сообщение RCLIO » 22.09.2016 (Чт) 9:12

Qwertiy писал(а):Чем нормальная сериализация не угодила?


Программа давно написана и соответственно исходники старые, нужно было лишь добавить дату.
Разобрался извращённо: день, месяц и год записываю и читаю, как 3 байта соответственно.


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13

    TopList