Чтение из файла

Для извлечения записи из файла произвольного доступа применяется оператор:

Get # ДескрипторФайла[, НомерЗаписи], ИмяПеременной

Где:

НомерЗаписи - это номер извлекаемой из файла записи. Если номер не указан, считывается текущая запись.

ИмяПеременной - это имя переменной пользовательского типа, значением которой является запись, извлекаемая из файла.

Вид экрана с текстами процедур создания и обработки файла прямого доступа и формой с результатом показаны на рис. 7.19.

 

Пример решения задачи создания и обработки файла прямого доступа:

Private Type ДанныеСтудент

Фамилия As String * 15

Имя As String * 10

Группа As String * 4

ОцМатем As Integer

ОцИнфор As Integer

ОцФилос As Integer

End Type

Private Sub Command1_Click()

Dim Студент As ДанныеСтудент, i As Integer

Open "danst" For Random As #1 Len = Len(Студент)

For i = 1 To 5

Студент.Фамилия = InputBox("Фамилия")

Студент.Имя = InputBox("Имя")

Студент.Группа = InputBox("Группа")

Студент.ОцМатем = Val(InputBox("Оценка по _ математике"))

Студент.ОцИнфор = Val(InputBox("Оценка по _ информатике"))

Студент.ОцФилос = Val(InputBox("Оценка по _ философии"))

Put #1, i, Студент

Next

Close 1

End Sub

Private Sub Command2_Click()

Dim Студент As ДанныеСтудент, i As Integer

Open "danst" For Random As #1 Len = Len(Студент)

Print

For i = 1 To LOF(1)/Len(Студент)

Get #1, i, Студент

Print " " & Trim(Студент.Фамилия) & " " & _
Trim(Студент.Имя) & " " & Trim(Студент.Группа)

Next i

Close #1

End Sub

 

 

Рис. 7.19. Результат решения задачи создания и обработки файла прямого доступа.