Page 40 - 6735

End Sub

Бінарні файли

Приклад відкриває файл як бінарний і читає його побайтово за
допомогою функції Input. Кінець файлу визначається за
допомогою функції EOF (End Of File).

Public Sub main()
'відкрити файл c:\file1.dat під номером 1 як бінарний
Open "c:\file1.dat" For Binary As #1
Do While Not EOF(1) 'поки не кінець файлу 1
x = Input(1, #1) 'присвоїти 'x' наступний байт із
файлу 1
Debug.Print x; 'вивести 'x'
Loop 'повторити
Close #1 'закрити файл 1
End Sub

Файли довільного доступу

Файли довільного доступу зберігають дані в структурованому
для звернення вигляді. У таких файлах можливий безпосередній
доступ до даних за номером запису. Записуються дані у такі файли
оператором Put, а читаються – оператором Get. У прикладі у файл
довільного доступу записуються дані про студентів – значення
змінних типу student. Після цього дані з файлу читаються і
виводиться інформація про студентів із заданим прізвищем.

Type student 'тип користувача
name As String * 20
Ball As Double
End Type
Dim obj As student 'змінна типу student
Dim s1, s2 As String

40