Использование средств Visual Basic .NET в создании информационных систем - 21 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

21
FIO = Left(FIO, 20)
Else
tempstr = New String(" ", 20 - FIO.Length)
FIO = FIO + tempstr
End If
writer.Write(Kurs)
writer.Write(Group)
Dim temp() As Byte = _
UnicodeEncoding.Unicode.GetBytes(FIO)
writer.Write(temp)
writer.Write(Spec)
temp = _
UnicodeEncoding.Unicode.GetBytes(DataR.ToString("dd.MM.yyyy"))
writer.Write(temp)
writer.Write(Pol)
writer.Write(Kol)
writer.Write(M)
End Sub
Public Sub writeToFile(ByVal ff As FileStream, _
ByVal i As Integer)
ff.Seek((i - 1) * len, SeekOrigin.Begin)
writeToFile(ff)
End Sub
Public Sub ReadFromFile(ByVal ff As FileStream, _
ByVal i As Integer)
ff.Seek((i - 1) * len, SeekOrigin.Begin)
Dim reader As BinaryReader = New BinaryReader(ff)
Dim temp() As Byte
Kurs = reader.ReadByte()
Group = reader.ReadByte()
temp = reader.ReadBytes(40)
FIO = UnicodeEncoding.Unicode.GetString(temp, 0, 40)
Spec = reader.ReadInt32()
temp = reader.ReadBytes(20)
DataR = _
CType(UnicodeEncoding.Unicode.GetString(temp, 0, 20), Date)
Pol = reader.ReadByte()
Kol = reader.ReadByte()

Страницы