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

UptoLike

ВУЗ: 

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

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

Рубрика: 

22
M = reader.ReadBytes(5)
End Sub
End Class
' Объявление пользовательского типа,
' описывающего структуру записи для
' входных данных справочника – информации о специальности
Public Class TSpec
Public Code As Integer ' учетный номер специальности
Public Number As String = New String(" ", 6)
' шестизначный код специальности
Public Name As String = New String(" ", 100)
' наименование специальности
Public len As Integer = 4 + 7 + 200 ' размер переменной
Public Sub writeToFile(ByVal ff As FileStream)
Dim writer As BinaryWriter = New BinaryWriter(ff)
Dim tempstr As String
If Number.Length > 6 Then
Number = Left(Number, 6)
Else
tempstr = New String(" ", 6 - Number.Length)
Number = Number + tempstr
End If
If Name.Length > 100 Then
Name = Left(Name, 100)
Else
tempstr = New String(" ", 100 - Name.Length)
Name = Name + tempstr
End If
Dim temp() As Byte = _
UnicodeEncoding.Unicode.GetBytes(Number)
writer.Write(Code)
writer.Write(temp)
temp = UnicodeEncoding.Unicode.GetBytes(Name)
writer.Write(temp)
End Sub
Public Sub writeToFile(ByVal ff As FileStream, _
ByVal i As Integer)
ff.Seek((i - 1) * len, SeekOrigin.Begin)
writeToFile(ff)
End Sub

Страницы